User:Robert W King/Sandbox: Difference between revisions

From Citizendium
Jump to navigation Jump to search
imported>Robert W King
m (Text replacement - "CZ:Constabulary" to "CZ:Moderator Group")
 
(399 intermediate revisions by 3 users not shown)
Line 1: Line 1:
==Section 4 - Timeline Table Template (documented in HTML comments) ==
{{AccountNotLive}}
__TOC__
==header thing==


<!-- top of table definition -->
{|width=80% align=center border="0" cellpadding="4" cellspacing="0" style="border-bottom:1px solid #999999; border-top:1px solid #dddddd; border-left:1px solid #aaaaaa; border-right:1px solid #dddddd; margin:0 auto; clear: both;" class="collapsible"  
{|border="1" frame=box rules=none align="right" cellpadding="0" cellspacing="0" width="400" style="margin: 0 0 0 0; background:#e5e5e5;"  
!align=center colspan=3 style="background:#{{{color}}}"| ''Citizendium'' [[CZ:{{{title}}}|{{{title}}}]]
<!-- -->
<!-- Title of table -->
<!-- -->
|align="center" colspan="6" width=100%|History of Computing Timeline
|-
|-
|width=100% colspan="6"|&nbsp;
|style="background:#f5f5f5" align=center colspan=3|{{#if: {{{link1|}}}|{{{link1}}}|}} {{#if: {{{link2|}}}|&#124; {{{link2}}}|}} {{#if: {{{link3|}}}|&#124; {{{link3}}}|}} {{#if: {{{link4|}}}|&#124; {{{link4}}}|}} {{#if: {{{link5|}}}|&#124; {{{link5}}}|}} {{#if: {{{link6|}}}|&#124; {{{link6}}}|}} {{#if: {{{link7|}}}|&#124; {{{link7}}}|}} {{#if: {{{link8|}}}|&#124; {{{link8}}}|}} {{#if: {{{link9|}}}|&#124; {{{link9}}}|}} {{#if: {{{link10|}}}|&#124; {{{link10}}}|}} {{#if: {{{link11|}}}|&#124; {{{link11}}}|}} {{#if: {{{link12|}}}|&#124; {{{link12}}}|}} &#124; [[:Category:{{{title}}}|Other]]{{#if: {{{seealso1|}}}|<br>See also: {{{seealso1}}}|}} {{#if: {{{seealso2|}}}|&#124; {{{seealso2}}}|}} {{#if: {{{seealso3|}}}|&#124; {{{seealso3}}}|}}
|-
|-
|align="center" width=40|+ 
|width=10% align=center style="background:#f5f5f5"|<small>[[CZ:Home|Home]]</small>
|align="center" width=100|?? BC <!-- year -->
|
<!-- -->
{|border="0" align=center cellpadding=3px style="background:#F5F5F5; cell-spacing:2px;"
<!-- Horizontal rule line -->
|align="center" NOWRAP|<small>[[CZ:Getting Started|Getting Started]]</small>
<!-- -->
|align="center" NOWRAP|<small>[[CZ:Organization|Organization]]</small>
|<hr width=40/>
|align="center" NOWRAP|<small>[[CZ:Technical Help|Technical Help]]</small>  
<!-- -->
|align="center" NOWRAP|<small>[[CZ:Content Policy|Content Policy]]</small>
<!-- Event preceeded by a nonbreakingspace -->
|align="center" NOWRAP|<small>[[CZ:Article Lists|Article Lists]]</small>
<!-- -->
|align="left" colspan="3"|&nbsp;Slamis Tablet
|-
|-
<!-- -->
|align="center" NOWRAP|<small>[[CZ:Initiatives|Initiatives]]</small>
<!-- start diagram lines -->
|align="center" NOWRAP|<small>[[CZ:Communication|Communication]]</small>
!style="align: center;"|
|align="center" NOWRAP|<small>[[CZ:Editor Policy|Editor Policy]]</small>
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="left" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center" NOWRAP|<small>[[CZ:Editorial Council|Editorial Council]]</small>
|width=50% height=10px|&nbsp;
|align="center" NOWRAP|<small>[[CZ:Moderator Group|Constabulary]]</small>
|width=50%|&nbsp;
|}
|}
|colspan="5" align="center"|
|width=10% align=center style="background:#F5F5F5"|<small>[[Main Page]]</small>
|-
|width=40|
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="center" style="margin: 0 0 0 0; background: #e5e5e5;"
|width=50% height=40px|&nbsp;
|<hr width=100%/>
|}
|}
<!-- end diagram lines -->
 
<!-- -->
==Timeline==
|align="center" width=100|300 BC-500 AD <!-- year -->
 
|<hr width=40/>
{{timeline
<!-- -->
|height=5
<!-- Event preceeded by a nonbreakingspace -->
|title=&nbsp;}}
<!-- -->
{{tlevent
|align="left" colspan="3"|&nbsp;Roman Hand Abacus
|width=250px
|-
|event=This happened (250 pixels wide)
<!-- -->
|color=#FFF
<!-- start diagram lines -->
}}
!style="align: center;"|
{{tlsubevent
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="left" style="margin: 0 0 0 0; background: #e5e5e5; height=100%;"
|event=something. something. something. something. (350)
|width=50% height=10px|&nbsp;
|width=350px
|width=50%|&nbsp;
|color=#EEEEEE
|height=30px
|margin=40px
}}
{{tlsubevent
|event=something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (500)
|width=500px
|color=#EEEEEE
|height=40px
|margin=40px
}}
{{tlevent
|width=250px
|event=This happened (250 pixels wide)
|color=#FFF
}}
{{tlsubevent
|event=something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (250)
|width=250px
|color=#EEEEEE
|height=30px
|margin=40px
}}
{{tlsubevent
|event=something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (500)
|width=500px
|color=#EEEEEE
|height=150px
|margin=40px
}}
{{tlevent
|width=250px
|event=This other really long thing happened that I can't possibly use to describe in words, other than chicken, chicken, and chicken. (250 pixels wide)
|color=#FFF
}}
{{tlsubevent
|event=something. something. (100)
|width=100px
|color=#EEEEEE
|height=30px
|margin=40px
}}
{{tlsubevent
|event=something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (500)
|width=500px
|color=#EEEEEE
|height=150px
|margin=40px
}}
{{tlevent
|width=250px
|event=This other really long thing happened that I can't possibly use to describe in words, other than chicken, chicken, and chicken. (250 pixels wide)
|color=#FFF
}}
|}
|}
|colspan="5" align="center"|
<br/>
|-
<br/>
|width=40|
<br/>
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="center" style="margin: 0 0 0 0; background: #e5e5e5;"
<br/>
|width=50% height=40px|&nbsp;
<br/>
|<hr width=100%/>
 
|}
==Sort test==
<!-- end diagram lines -->
<div style="background-color:#FFF; width:80%">
<!-- -->
<div style="position:relative;
|align="center" width=100|~1200 AD <!-- year -->
left:50px;
|<hr width=40/>
float:left;
<!-- -->
width:auto;
<!-- Event preceeded by a nonbreakingspace -->
background-color:#AAF;"><font style="padding:  2px; margin:2px;">'''5'''</font></div>
<!-- -->
<div style="position:relative;
|align="left" colspan="3"|&nbsp;Modern Chinese Abacus
float:left;
|-
left:100px;
<!-- -->
width:auto;
<!-- start diagram lines -->
background-color:#AFF;"><font style="padding:  2px; margin:2px;">'''4'''</font></div>
!style="align: center;"|
<div style="position:relative;
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="left" style="margin: 0 0 0 0; background: #e5e5e5;"
float:left;
|width=50% height=10px|&nbsp;
left:150px;
|width=50%|&nbsp;
width:auto;
|}
background-color:#FAF;"><font style="padding:  2px; margin:2px;">'''3'''</font></div>
|colspan="5" align="center"|
<div style="position:relative;
|-
float:left;
|width=40|
left:200px;
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="center" style="margin: 0 0 0 0; background: #e5e5e5;"
width:auto;
|width=50% height=40px|&nbsp;
background-color:#FFA;"><font style="padding:  2px; margin:2px;">'''2'''</font></div>
|<hr width=100%/>
<div style="position:relative;
|}
float:left;
<!-- end diagram lines -->
left:250px;
<!-- -->
width:auto;
|align="center" width=100|?? <!-- year -->
background-color:#0FF;"><font style="padding:  2px; margin:2px;">'''1'''</font></div>
|<hr width=40/>
<div style="position:relative;
<!-- -->
float:left;
<!-- Event preceeded by a nonbreakingspace -->
left:300px;
<!-- -->
width:auto;
|align="left" colspan="3"|&nbsp;Leonardo Da Vinci writes the "Codex Madrid"
background-color:#F0F;"><font style="padding: 2px; margin:2px;">'''0'''</font></div>
|-
 
<!-- -->
</div>
<!-- start diagram lines -->
 
!style="align: center;"|
<br/>
{|border="1" frame=void rules=all width=100% cellpadding="0" cellspacing="0" align="left" style="margin: 0 0 0 0; background: #e5e5e5;"
<br/>
|width=50% height=10px|&nbsp;
<br/>
|width=50%|&nbsp;
<br/>
|}
<br/>
|colspan="5" align="center"|
<br/>
|}
<br/>
<!-- bottom of table -->
<br/>
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
 
==pl test==
{{H:title|Hover|Hover over me!}}


==CNW test==


{{cnw|[[hydrogen]]}}


==Section 5 - Periodic Table Template (Documented in HTML comments)==
==U and D test==


Periodic Table Element Template; Large version on right, smaller version in the middle.
C{{U|5}}C{{D|5}}3{{U|7}}x{{D|32}}
{|border="1" width="141" frame=box rules=none align="right" cellpadding="0" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center"|Noble Gas Family <!-- Family Name -->
|-
|&nbsp;
<!-- COLUMN STARTS HERE -->
<!-- change background to reflect position on periodic table -->
{|border="1" width="140" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center" width=100% colspan="4"|'''Helium''' <!-- name of element -->
|-
|-
|width="35"|<font size=1em>4.00</font> <!-- atomic mass -->
<!-- leave blank -->
|align="center" width="35"|&nbsp;
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|rowspan="4" colspan="2" valign="top" align="right" width="35"|<font size=2px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|-
<!-- leave blank -->
|&nbsp;
|rowspan="2" align="center" width="35"|<font size=6px>'''He'''</font><!-- symbol -->
|-
|align="left"|<font size=4px>'''2'''</font><!-- atomic number -->
|-
|align="left"|<font size=2px>x-x</font><!-- electron configuration -->
<!-- leave blank -->
|&nbsp;
|}
|-
|
<!-- change background to reflect position on periodic table -->
{|border="1" width="140" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center" width=100% colspan="4"|'''Neon'''<!-- name of element -->
|-
|-
|width="35"|<font size=1em>20.18</font><!-- atomic mass -->
<!-- leave blank -->
|align="center" width="35"|&nbsp;
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|rowspan="4" colspan="2" valign="top" align="right" width="35"|<font size=2px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|-
<!-- leave blank -->
|&nbsp;
|rowspan="2" align="center" width="35"|<font size=6px>'''Ne'''</font><!-- symbol -->
|-
|align="left"|<font size=4px>'''10'''</font><!-- atomic number -->
|-
|align="left"|<font size=2px>x-x</font><!-- electron configuration -->
<!-- leave blank -->
|&nbsp;
|}
|-
|


<!-- change background to reflect position on periodic table -->
A{{u|b}}c{{d|d}}e{{u|F}}G{{d|H}}
{|border="1" width="140" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center" width=100% colspan="4"|'''Argon'''<!-- name of element -->
|-
|-
|width="35"|<font size=1em>39.95</font><!-- atomic mass -->
<!-- leave blank -->
|align="center" width="35"|&nbsp;
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|rowspan="4" colspan="2" valign="top" align="right" width="35"|<font size=2px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|-
<!-- leave blank -->
|&nbsp;
|rowspan="2" align="center" width="35"|<font size=6px>'''Ar'''</font><!-- symbol -->
|-
|align="left"|<font size=4px>'''18'''</font><!-- atomic number -->
|-
|align="left"|<font size=2px>x-x</font><!-- electron configuration -->
<!-- leave blank -->
|&nbsp;
|}
|-
|


<!-- change background to reflect position on periodic table -->
==PD table==
{|border="1" width="140" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center" width=100% colspan="4"|'''Krypton'''<!-- name of element -->
|-
|-
|width="35"|<font size=1em>83.80</font><!-- atomic mass -->
<!-- leave blank -->
|align="center" width="35"|&nbsp;
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|rowspan="4" colspan="2" valign="top" align="right" width="35"|<font size=2px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|-
<!-- leave blank -->
|&nbsp;
|rowspan="2" align="center" width="35"|<font size=6px>'''Kr'''</font><!-- symbol -->
|-
|align="left"|<font size=4px>'''36'''</font><!-- atomic number -->
|-
|align="left"|<font size=2px>x-x</font><!-- electron configuration -->
<!-- leave blank -->
|&nbsp;
|}
|-
|


<!-- change background to reflect position on periodic table -->
{|border="1" width=100% style="border:1px solid #FFF;"
{|border="1" width="140" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"  
|colspan=10 align="center" style="background-color:#FFDAA2;"|<big>'''Unpublished Works'''</big>
|align="center" width=100% colspan="4"|'''Xenon'''<!-- name of element -->
|-
|-
|align="center" style="background-color:#FFF1E8;"|Author type
|align="center" style="background-color:#FFF1E8;"|Author status
|align="center" style="background-color:#FFF1E8;"|Date of Death
|align="center" style="background-color:#FFF1E8;"|Created date
|align="center" style="background-color:#FFF1E8;"|Was it Published?
|align="center" style="background-color:#FFF1E8;"|Has Copyright notice?
|align="center" style="background-color:#FFF1E8;"|Is registered?
|align="center" style="background-color:#FFF1E8;"|Is it a Corporate work?
|align="center" style="background-color:#FFF1E8;"|When PD
|align="center" style="background-color:#FFF1E8;"|As of 1 Jan 2008?
|-
|-
|width="35"|<font size=1em>131.29</font><!-- atomic mass -->
|align="center"|Named
<!-- leave blank -->
|align="center"|Dead
|align="center" width="35"|&nbsp;
|align="center"|Before 1938
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|align="center"|&nbsp;
|rowspan="4" colspan="2" valign="top" align="right" width="35"|<font size=2px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|align="center"|n/a
|align="center"|n/a
|align="center"|no
|align="center"|no
|align="center"|Death + 70 yrs
|align="center"|yes
|-
|-
<!-- leave blank -->
|align="center"|<nowiki>--</nowiki>
|&nbsp;
|align="center"|Dead
|rowspan="2" align="center" width="35"|<font size=6px>'''Xe'''</font><!-- symbol -->
|align="center"|Before 1938
|align="center"|Before 1978
|align="center"|After 2002
|align="center"|n/a
|align="center"|no
|align="center"|&nbsp;
|align="center"|Death + 70 years
|align="center"|Verify based on conditions
|-
|-
|align="left"|<font size=4px>'''54'''</font><!-- atomic number -->
|align="center"|<nowiki>--</nowiki>
|align="center"|Dead
|align="center"|Death unknown
|align="center"|Before 1888
|align="center"|n/a
|align="center"|n/a
|align="center"|no
|align="center"|&nbsp;
|align="center"|Creation + 120 yrs
|align="center"|yes
|-
|-
|align="left"|<font size=2px>x-x</font><!-- electron configuration -->
|align="center"|Anonymous
<!-- leave blank -->
|align="center"|unknown
|&nbsp;
|align="center"|unknown
|}
|align="center"|Before 1888
|align="center"|n/a
|align="center"|n/a
|align="center"|no
|align="center"|no
|align="center"|Creation + 120 yrs
|align="center"|yes
|-
|-
|
|align="center"|Pseudonymous
 
|align="center"|unknown
<!-- change background to reflect position on periodic table -->
|align="center"|unknown
{|border="1" width="140" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"  
|align="center"|Before 1888
|align="center" width=100% colspan="4"|'''Radon'''<!-- name of element -->
|align="center"|n/a
|align="center"|n/a
|align="center"|no
|align="center"|no
|align="center"|Creation + 120 yrs
|align="center"|yes
|-
|-
|align="center"|For hire/corporate
|align="center"|unknown
|align="center"|unknown
|align="center"|Before 1888
|align="center"|n/a
|align="center"|n/a
|align="center"|no
|align="center"|'''yes'''
|align="center"|Creation + 120 yrs
|align="center"|yes
|-
|-
|width="35"|<font size=1em>(222.02)</font><!-- atomic mass -->
|colspan=10 align="center" style="background-color:#FFDAA2;"|<big>'''Published Works'''</big>
<!-- leave blank -->
|align="center" width="35"|&nbsp;
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|rowspan="4" colspan="2" valign="top" align="right" width="35"|<font size=2px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|-
|-
<!-- leave blank -->
|align="center"|<nowiki>--</nowiki>
|&nbsp;
|align="center"|<nowiki>--</nowiki>
|rowspan="2" align="center" width="35"|<font size=6px>'''Rn'''</font><!-- symbol -->
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|Before 1923
|align="center"|n/a
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|yes
|-
|-
|align="left"|<font size=4px>'''86'''</font><!-- atomic number -->
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|1923 -> 1977
|align="center"|No CR notice
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|yes
|-
|-
|align="left"|<font size=2px>x-x</font><!-- electron configuration -->
|align="center"|<nowiki>--</nowiki>
<!-- leave blank -->
|align="center"|<nowiki>--</nowiki>
|&nbsp;
|align="center"|<nowiki>--</nowiki>
|}
|align="center"|<nowiki>--</nowiki>
|}
|align="center"|1978 -> 1-Mar-1989
<!-- Smaller Version -->
|align="center"|No CR notice
<!-- begin here      -->
|align="center"|no
<!--                -->
|align="center"|&nbsp;
{|border="1" width="113" frame=box rules=none align="right" cellpadding="0" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"  
|align="center"|&nbsp;
|align="center"|Noble Gas Family<!-- Family Name -->
|align="center"|yes
<!-- COLUMN STARTS HERE -->
<!-- change background to reflect position on periodic table -->
{|border="1" width="112" frame=box rules=none align="right" cellpadding="3" cellspacing="0" style="margin: 0 0 0 0; background:#e5e5e5;"
|align="center" width=100% colspan="4"|<font size=2px>'''Helium'''</font><!-- name of element -->
|-
|-
|width="28" valign="top" align="left"|<font size=1px>4.00</font><!-- atomic mass -->
|align="center"|<nowiki>--</nowiki>
<!-- leave blank -->
|align="center"|<nowiki>--</nowiki>
|align="center" width="28"|&nbsp;
|align="center"|<nowiki>--</nowiki>
<!-- selected oxidation states, add a nonbreakingspace in front of each number-->
|align="center"|<nowiki>--</nowiki>
|rowspan="4" colspan="2" valign="top" align="right" width="28"|<font size=1px>&nbsp;xx &nbsp;xx &nbsp;xx</font>
|align="center"|1923 -> 1963
|align="center"|Yes, not renewed
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|yes
|-
|-
<!-- leave blank -->
|colspan=10 align="center" style="background-color:#FFDAA2;"|<big>'''Works published outside the US'''</big>
|&nbsp;
|rowspan="2" align="center" width="28"|<font size=3px>'''He'''</font><!-- symbol -->
|-
|-
|align="left"|<font size=2px>'''2'''</font><!-- atomic number -->
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|Before 1923
|align="center"|<nowiki>--</nowiki>
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|&nbsp;
|align="center"|yes
|-
|-
|align="left"|<font size=1px>x-x</font><!-- electron configuration -->
|align="center"|<nowiki>--</nowiki>
<!-- leave blank -->
|align="center"|<nowiki>--</nowiki>
|&nbsp;
|align="center"|<nowiki>--</nowiki>
|}
|align="center"|<nowiki>--</nowiki>
|align="center"|1923 -> 1977
|align="center"|no
|align="center"|no
|align="center"|&nbsp;
|align="center"|If in origin as of 1/1/96
|align="center"|yes
|-
|-
|
|align="center"|<nowiki>--</nowiki>
 
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|<nowiki>--</nowiki>
|align="center"|After 1-Jan-1978
|align="center"|no
|align="center"|no
|align="center"|&nbsp;
|align="center"|If in origin as of 1/1/96
|align="center"|yes
|}
|}


Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken
== test using Template:Timeline_Table ==


{{Timeline_Table
|                tlWidth=350
|                tlTitle=The History of this Timeline Template
|                  tlYear=05/29/2007
|                tlEvent=So far at the end of this day, this template still doesn't work correctly; trying to get it so I can add more than one date.
|                  tlYear=09/14/2007
|                tlEvent=still no worky.
}}


==VB Module for Extracting Contributions==
<pre>
Module Module1


<br/>
    Dim url
<br/><br/><br/><br/><br/><br/>
    Dim CZ
    Dim wikipath
    Dim totalcdata
    Dim title
    Dim currentid
    Dim articleid
    Dim oldid
    Dim latestid
    Dim diffclass


==CSS Test==
    Sub Main()
        Dim T


        T = 0
        initCZ()
        title = "fire"
        url = wikipath + "/" + title
        CZ.navigate(url)
        Do Until CZ.readyState = 4


<s>test</s>
        Loop
        getcdata()


@import url(/wiki?title=User:Robert_W_King/monobook.css);
        articleid = Right(Mid(totalcdata, InStr(totalcdata, "wgArticleId"), 24), 9)
        currentid = Right(Mid(totalcdata, InStr(totalcdata, "CurRevisionId"), 26), 9)


==New thing==
        navtorecentdiff()
{{Recursive
|year1=1900
|event1=something.
|year2=1901
|event2=some.
|year3=1902
|event3=sometime.
|year4=1903
|event4=somebody.
}}


        Do
            getoldid()
            If latestid <> oldid Then


==Test==
                getinsdiffchange()
                getdeldiffchange()
                navolddiff()
            End If


<div align="left" border="0" style="background-color: #cccccc; margin:0.5em; position:relative;display:table;">
        Loop While latestid <> oldid
{|class=noprint width="100%" border="1" cellpadding="1" cellspacing="0" style="background:#ffffff;display:table;"
|1||2||3||4||5||width=25px align=center bgcolor="#cccccc" style="white-space: nowrap; border-bottom:2px solid #eeeeee; border-top:2px solid #dddddd; border-right:2px solid #dddddd; border-left:2px solid #bbbbbb; position:relative; display:table;"|{{click|image=Subpages.png|link=CZ:Subpage Pilot |width=17px|height=17px}}
|style="background-color: #FFFFff; border-bottom:2px solid #eeeeee;"|&nbsp;
|-
|colspan=20 style="padding: 5px 5px 5px 5px; background:#C4D2DF"|
{| height=25px align="right" border="0" cellpadding="2" cellspacing="0"
|{{clickurl|image=Print button.png|link=http://en.citizendium.org/wiki?title={{FULLPAGENAMEE}}&printable=yes|width=17px|height=17px}}
|{{click|image=Metadata.png|link=Template:{{BASEPAGENAME}}/Metadata|width=17px|height=17px}}
|{{click|image=Approval button.png|link={{BASEPAGENAME}}/Approval |width=17px|height=17px}}
|{{click|image=Unused button.png|link={{BASEPAGENAME}}/Unused|width=17px|height=17px}}
|}
|}</div>


==more test==
    End Sub
{|cellpadding="0" margin="0 0 0 0" border="0" cellspacing="0"
    Function initCZ()
|{{bowlingscoresheet
        wikipath = "http://en.citizendium.org/wiki"
|rollone=1
        CZ = CreateObject("InternetExplorer.Application")
|rolltwo=2
        CZ.Toolbar = 0
|frametotal=3
        CZ.Visible = 1
}}
        CZ.navigate(wikipath)
|{{bowlingscoresheet
        Do Until CZ.readyState = 4
|rollone=3
        Loop
|rolltwo=2
        Return CZ
|frametotal=8
    End Function
}}
|{{bowlingscoresheet
|rollone=9
|rolltwo=/
|frametotal=18
}}


|}
    Function getcdata()
        Dim tags
        Dim thing
        Dim x
        Dim test


        x = 0
        tags = CZ.document.getElementsbyTagName("script")


==Recursive test==
        For Each Items In tags
            thing = tags.Item(x).innerHtml
            test = InStr(thing, "CDATA")
            If test <> 0 Then
                totalcdata = thing
                Exit For
            End If
            x = x + 1
        Next
        Return totalcdata
    End Function


    Function navtorecentdiff()
        url = wikipath + "?title=" + title + "&diff=prev&oldid=" + (Right(currentid, 9))
        CZ.navigate(url)
        Do Until CZ.readystate = 4


        Loop
        Return url
    End Function


    Function getoldid()
        Dim tags
        Dim thing
        Dim x
        Dim test


==Form test==
        x = 0
        tags = CZ.document.getElementsbyTagName("a")


'''STEP 1. Create the "metadata template."'''  It's OK, you don't need to know what this means.  :-)
        For Each Items In tags
<inputbox>
            thing = tags.Item(x).outerHtml
type=create
            test = InStr(thing, "oldid")
default=Template:ARTICLE_NAME/Metadata
            If test <> 0 Then
preload=Template:Blank metadata
                latestid = oldid
editintro='''See [[CZ:The Article Checklist]] and [[Template:Subpages]] for more instructions for filling this out!'''
                oldid = Mid(thing, test + 6, 9)
buttonlabel=Create metadata template
                Exit For
</inputbox>
            End If
            x = x + 1
        Next


'''STEP 2.  Create "approval" page.'''
        Return oldid
<inputbox>
    End Function
type=create
default=ARTICLE_NAME/Approval
preload=Template:Subpages_name
editintro='''Just hit save!'''
buttonlabel=Create "approval" page
</inputbox>


'''STEP 3.  Create "Talk" page.'''
    Function navolddiff()
<inputbox>
        url = wikipath + "?title=" + title + "&diff=prev&oldid=" + oldid
type=create
        CZ.navigate(url)
default=Talk:ARTICLE_NAME
        Do Until CZ.readystate = 4
preload=Template:Subpages_name
editintro='''Just hit save!'''
buttonlabel=Create "Talk" page
</inputbox>


'''STEP 4.  Start the article itself!'''
        Loop
<inputbox>
        Return url
type=create
default=ARTICLE_NAME
preload=Template:Subpages_name
editintro='''Start your article on the line below <nowiki>{{subpages}}</nowiki>!'''
buttonlabel=Create new article
</inputbox>


    End Function


==Table==
    Function getinsdiffchange()
        Dim tags
        Dim thing
        Dim x
        Dim test
        Dim totalwrite


{|class="wikitable"
        x = 0
|colspan=2 align=center style="color:#FFFFF0; background:darkgreen"|<big>'''Tabella Nemorosus'''</big>
        tags = CZ.document.getElementsbyTagName("ins")
|-
|
{{Col-begin}}


        For Each Items In tags
            thing = tags.Item(x).innerHtml
            test = InStr(thing, "class=diffchange")
            If thing <> Nothing Then
                diffclass = diffclass + "+" + "'" + thing + "'" + "; "
            End If
            x = x + 1
        Next
        totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
        IO.File.AppendAllText(("c:\" + title + "_insdiffchange.txt"), totalwrite)
        diffclass = Nothing
        Return diffclass
    End Function


    Function getdeldiffchange()
        Dim tags
        Dim thing
        Dim x
        Dim test
        Dim totalwrite


__NOTOC__
        x = 0
<!-- BEGIN DASHBOARD -->
        tags = CZ.document.getElementsbyTagName("del")
{{Col-break|width=33%}}


== New project planning ==
        For Each Items In tags
*Item One
            thing = tags.Item(x).innerHtml
            test = InStr(thing, "class=diffchange")
            If thing <> Nothing Then
                diffclass = diffclass + "-" + "'" + thing + "'" + "; "
            End If
            x = x + 1
        Next
        totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
        IO.File.AppendAllText(("c:\" + title + "_deldiffchange.txt"), totalwrite)
        diffclass = Nothing
        Return diffclass
    End Function


{{Col-break|width=33%}}
End Module
</pre>


== Governance policymaking ==
==Excel VB Script version==
*Item One
<pre>
Function grabdiffdata()
    Dim url
    Dim CZ
    Dim wikipath
    Dim totalcdata
    Dim title
    Dim currentid
    Dim articleid
    Dim oldid
    Dim latestid
    Dim diffclass
    Dim T
    Dim tags
    Dim thing
    Dim x
    Dim test
    Dim totalwrite


{{Col-break|width=33%}}
    T = 0


== Recruitment Step 1 ==
    wikipath = "http://en.citizendium.org/wiki"
*Item One
    Set CZ = CreateObject("InternetExplorer.Application")
    CZ.Toolbar = 0
    CZ.Visible = 1
    CZ.navigate (wikipath)
        Do Until CZ.readyState = 4
        Loop


{{Col-end}}
    title = "fire"
    url = wikipath + "/" + title
    CZ.navigate (url)
        Do Until CZ.readyState = 4
        Loop


|-
    x = 0
|
    Set tags = CZ.document.getElementsByTagName("script")
{{Col-begin}}
        For Each Items In tags
{{Col-break|width=34%}}
            thing = tags.Item(x).innerHTML
__NOTOC__
            test = InStr(thing, "CDATA")
== Recruitment Step 2 ==
            If test <> 0 Then
*Item One
                totalcdata = thing
                Exit For
            End If
            x = x + 1
        Next


{{Col-break|width=33%}}
    articleid = Right(Mid(totalcdata, InStr(totalcdata, "wgArticleId"), 24), 9)
== Implementation ==
    currentid = Right(Mid(totalcdata, InStr(totalcdata, "CurRevisionId"), 26), 9)
* Item One


{{Col-break|width=33%}}
    url = wikipath + "?title=" + title + "&diff=prev&oldid=" + (Right(currentid, 9))
== Other Tasks ==
    CZ.navigate (url)
* Item One
        Do Until CZ.readyState = 4
        Loop


{{Col-end}}
        Do
            x = 0
            Set tags = CZ.document.getElementsByTagName("a")
                For Each Items In tags
                    thing = tags.Item(x).outerHTML
                    test = InStr(thing, "oldid")
                    If test <> 0 Then
                        latestid = oldid
                        oldid = Mid(thing, test + 6, 9)
                        Exit For
                    End If
                x = x + 1
                Next


|}
            If latestid <> oldid Then
                x = 0
                Set tags = CZ.document.getElementsByTagName("ins")
                    For Each Items In tags
                        thing = tags.Item(x).innerHTML
                        test = InStr(thing, "class=diffchange")
                        If thing <> Empty Then
                            diffclass = diffclass + "+" + "'" + thing + "'" + "; "
                        End If
                    x = x + 1
                    Next
                totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
                'IO.File.AppendAllText(("c:\" + title + "_insdiffchange.txt"), totalwrite)
                diffclass = Empty
       
                x = 0
                Set tags = CZ.document.getElementsByTagName("del")
                For Each Items In tags
                    thing = tags.Item(x).innerHTML
                    test = InStr(thing, "class=diffchange")
                    If thing <> Empty Then
                        diffclass = diffclass + "-" + "'" + thing + "'" + "; "
                    End If
                    x = x + 1
                Next
                totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
                'IO.File.AppendAllText(("c:\" + title + "_deldiffchange.txt"), totalwrite)
                diffclass = Empty
           
                url = wikipath + "?title=" + title + "&diff=prev&oldid=" + oldid
                CZ.navigate (url)
                    Do Until CZ.readyState = 4
                    Loop
        End If
        Loop While latestid <> oldid
 
End Function
</pre>

Latest revision as of 10:46, 7 March 2024


The account of this former contributor was not re-activated after the server upgrade of March 2022.


header thing

Citizendium [[CZ:{{{title}}}|{{{title}}}]]
| [[:Category:{{{title}}}|Other]]
Home
Getting Started Organization Technical Help Content Policy Article Lists
Initiatives Communication Editor Policy Editorial Council Constabulary
Main Page

Timeline

This happened (250 pixels wide)
something. something. something. something. (350)
something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (500)
This happened (250 pixels wide)
something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (250)
something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (500)
This other really long thing happened that I can't possibly use to describe in words, other than chicken, chicken, and chicken. (250 pixels wide)
something. something. (100)
something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. something. (500)
This other really long thing happened that I can't possibly use to describe in words, other than chicken, chicken, and chicken. (250 pixels wide)






Sort test

5
4
3
2
1
0









pl test

Hover over me!

CNW test

Template:Cnw

U and D test

CCTemplate:D3xTemplate:D

AcTemplate:DeGTemplate:D

PD table

Unpublished Works
Author type Author status Date of Death Created date Was it Published? Has Copyright notice? Is registered? Is it a Corporate work? When PD As of 1 Jan 2008?
Named Dead Before 1938   n/a n/a no no Death + 70 yrs yes
-- Dead Before 1938 Before 1978 After 2002 n/a no   Death + 70 years Verify based on conditions
-- Dead Death unknown Before 1888 n/a n/a no   Creation + 120 yrs yes
Anonymous unknown unknown Before 1888 n/a n/a no no Creation + 120 yrs yes
Pseudonymous unknown unknown Before 1888 n/a n/a no no Creation + 120 yrs yes
For hire/corporate unknown unknown Before 1888 n/a n/a no yes Creation + 120 yrs yes
Published Works
-- -- -- -- Before 1923 n/a       yes
-- -- -- -- 1923 -> 1977 No CR notice       yes
-- -- -- -- 1978 -> 1-Mar-1989 No CR notice no     yes
-- -- -- -- 1923 -> 1963 Yes, not renewed       yes
Works published outside the US
-- -- -- -- Before 1923 --       yes
-- -- -- -- 1923 -> 1977 no no   If in origin as of 1/1/96 yes
-- -- -- -- After 1-Jan-1978 no no   If in origin as of 1/1/96 yes


VB Module for Extracting Contributions

Module Module1

    Dim url
    Dim CZ
    Dim wikipath
    Dim totalcdata
    Dim title
    Dim currentid
    Dim articleid
    Dim oldid
    Dim latestid
    Dim diffclass

    Sub Main()
        Dim T

        T = 0
        initCZ()
        title = "fire"
        url = wikipath + "/" + title
        CZ.navigate(url)
        Do Until CZ.readyState = 4

        Loop
        getcdata()

        articleid = Right(Mid(totalcdata, InStr(totalcdata, "wgArticleId"), 24), 9)
        currentid = Right(Mid(totalcdata, InStr(totalcdata, "CurRevisionId"), 26), 9)

        navtorecentdiff()

        Do
            getoldid()
            If latestid <> oldid Then

                getinsdiffchange()
                getdeldiffchange()
                navolddiff()
            End If

        Loop While latestid <> oldid

    End Sub
    Function initCZ()
        wikipath = "http://en.citizendium.org/wiki"
        CZ = CreateObject("InternetExplorer.Application")
        CZ.Toolbar = 0
        CZ.Visible = 1
        CZ.navigate(wikipath)
        Do Until CZ.readyState = 4
        Loop
        Return CZ
    End Function

    Function getcdata()
        Dim tags
        Dim thing
        Dim x
        Dim test

        x = 0
        tags = CZ.document.getElementsbyTagName("script")

        For Each Items In tags
            thing = tags.Item(x).innerHtml
            test = InStr(thing, "CDATA")
            If test <> 0 Then
                totalcdata = thing
                Exit For
            End If
            x = x + 1
        Next
        Return totalcdata
    End Function

    Function navtorecentdiff()
        url = wikipath + "?title=" + title + "&diff=prev&oldid=" + (Right(currentid, 9))
        CZ.navigate(url)
        Do Until CZ.readystate = 4

        Loop
        Return url
    End Function

    Function getoldid()
        Dim tags
        Dim thing
        Dim x
        Dim test

        x = 0
        tags = CZ.document.getElementsbyTagName("a")

        For Each Items In tags
            thing = tags.Item(x).outerHtml
            test = InStr(thing, "oldid")
            If test <> 0 Then
                latestid = oldid
                oldid = Mid(thing, test + 6, 9)
                Exit For
            End If
            x = x + 1
        Next

        Return oldid
    End Function

    Function navolddiff()
        url = wikipath + "?title=" + title + "&diff=prev&oldid=" + oldid
        CZ.navigate(url)
        Do Until CZ.readystate = 4

        Loop
        Return url

    End Function

    Function getinsdiffchange()
        Dim tags
        Dim thing
        Dim x
        Dim test
        Dim totalwrite

        x = 0
        tags = CZ.document.getElementsbyTagName("ins")

        For Each Items In tags
            thing = tags.Item(x).innerHtml
            test = InStr(thing, "class=diffchange")
            If thing <> Nothing Then
                diffclass = diffclass + "+" + "'" + thing + "'" + "; "
            End If
            x = x + 1
        Next
        totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
        IO.File.AppendAllText(("c:\" + title + "_insdiffchange.txt"), totalwrite)
        diffclass = Nothing
        Return diffclass
    End Function

    Function getdeldiffchange()
        Dim tags
        Dim thing
        Dim x
        Dim test
        Dim totalwrite

        x = 0
        tags = CZ.document.getElementsbyTagName("del")

        For Each Items In tags
            thing = tags.Item(x).innerHtml
            test = InStr(thing, "class=diffchange")
            If thing <> Nothing Then
                diffclass = diffclass + "-" + "'" + thing + "'" + "; "
            End If
            x = x + 1
        Next
        totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
        IO.File.AppendAllText(("c:\" + title + "_deldiffchange.txt"), totalwrite)
        diffclass = Nothing
        Return diffclass
    End Function

End Module

Excel VB Script version

Function grabdiffdata()
    Dim url
    Dim CZ
    Dim wikipath
    Dim totalcdata
    Dim title
    Dim currentid
    Dim articleid
    Dim oldid
    Dim latestid
    Dim diffclass
    Dim T
    Dim tags
    Dim thing
    Dim x
    Dim test
    Dim totalwrite

    T = 0

    wikipath = "http://en.citizendium.org/wiki"
    Set CZ = CreateObject("InternetExplorer.Application")
    CZ.Toolbar = 0
    CZ.Visible = 1
    CZ.navigate (wikipath)
        Do Until CZ.readyState = 4
        Loop

    title = "fire"
    url = wikipath + "/" + title
    CZ.navigate (url)
        Do Until CZ.readyState = 4
        Loop

    x = 0
    Set tags = CZ.document.getElementsByTagName("script")
        For Each Items In tags
            thing = tags.Item(x).innerHTML
            test = InStr(thing, "CDATA")
            If test <> 0 Then
                totalcdata = thing
                Exit For
            End If
            x = x + 1
        Next

    articleid = Right(Mid(totalcdata, InStr(totalcdata, "wgArticleId"), 24), 9)
    currentid = Right(Mid(totalcdata, InStr(totalcdata, "CurRevisionId"), 26), 9)

    url = wikipath + "?title=" + title + "&diff=prev&oldid=" + (Right(currentid, 9))
    CZ.navigate (url)
        Do Until CZ.readyState = 4
        Loop

        Do
            x = 0
            Set tags = CZ.document.getElementsByTagName("a")
                For Each Items In tags
                    thing = tags.Item(x).outerHTML
                    test = InStr(thing, "oldid")
                    If test <> 0 Then
                        latestid = oldid
                        oldid = Mid(thing, test + 6, 9)
                        Exit For
                    End If
                x = x + 1
                Next

            If latestid <> oldid Then
                x = 0
                Set tags = CZ.document.getElementsByTagName("ins")
                    For Each Items In tags
                        thing = tags.Item(x).innerHTML
                        test = InStr(thing, "class=diffchange")
                        If thing <> Empty Then
                            diffclass = diffclass + "+" + "'" + thing + "'" + "; "
                        End If
                    x = x + 1
                    Next
                totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
                'IO.File.AppendAllText(("c:\" + title + "_insdiffchange.txt"), totalwrite)
                diffclass = Empty
        
                x = 0
                Set tags = CZ.document.getElementsByTagName("del")
                For Each Items In tags
                    thing = tags.Item(x).innerHTML
                    test = InStr(thing, "class=diffchange")
                    If thing <> Empty Then
                        diffclass = diffclass + "-" + "'" + thing + "'" + "; "
                    End If
                    x = x + 1
                Next
                totalwrite = title + " | " + articleid + " | " + latestid + " | " + diffclass + vbCrLf
                'IO.File.AppendAllText(("c:\" + title + "_deldiffchange.txt"), totalwrite)
                diffclass = Empty
             
                url = wikipath + "?title=" + title + "&diff=prev&oldid=" + oldid
                CZ.navigate (url)
                    Do Until CZ.readyState = 4
                    Loop
        End If
        Loop While latestid <> oldid
   
End Function