User:Robert W King/Sandbox: Difference between revisions
Jump to navigation
Jump to search
imported>Robert W King (Undo revision 100309771 by Robert W King (Talk)) |
John Leach (talk | contribs) m (Text replacement - "CZ:Constabulary" to "CZ:Moderator Group") |
||
(203 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
{{AccountNotLive}} | |||
__TOC__ | __TOC__ | ||
==header thing== | |||
{|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" | |||
!align=center colspan=3 style="background:#{{{color}}}"| ''Citizendium'' [[CZ:{{{title}}}|{{{title}}}]] | |||
|- | |||
|style="background:#f5f5f5" align=center colspan=3|{{#if: {{{link1|}}}|{{{link1}}}|}} {{#if: {{{link2|}}}|| {{{link2}}}|}} {{#if: {{{link3|}}}|| {{{link3}}}|}} {{#if: {{{link4|}}}|| {{{link4}}}|}} {{#if: {{{link5|}}}|| {{{link5}}}|}} {{#if: {{{link6|}}}|| {{{link6}}}|}} {{#if: {{{link7|}}}|| {{{link7}}}|}} {{#if: {{{link8|}}}|| {{{link8}}}|}} {{#if: {{{link9|}}}|| {{{link9}}}|}} {{#if: {{{link10|}}}|| {{{link10}}}|}} {{#if: {{{link11|}}}|| {{{link11}}}|}} {{#if: {{{link12|}}}|| {{{link12}}}|}} | [[:Category:{{{title}}}|Other]]{{#if: {{{seealso1|}}}|<br>See also: {{{seealso1}}}|}} {{#if: {{{seealso2|}}}|| {{{seealso2}}}|}} {{#if: {{{seealso3|}}}|| {{{seealso3}}}|}} | |||
|- | |||
|width=10% align=center style="background:#f5f5f5"|<small>[[CZ:Home|Home]]</small> | |||
| | |||
{|border="0" align=center cellpadding=3px style="background:#F5F5F5; cell-spacing:2px;" | |||
|align="center" NOWRAP|<small>[[CZ:Getting Started|Getting Started]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Organization|Organization]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Technical Help|Technical Help]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Content Policy|Content Policy]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Article Lists|Article Lists]]</small> | |||
|- | |||
|align="center" NOWRAP|<small>[[CZ:Initiatives|Initiatives]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Communication|Communication]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Editor Policy|Editor Policy]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Editorial Council|Editorial Council]]</small> | |||
|align="center" NOWRAP|<small>[[CZ:Moderator Group|Constabulary]]</small> | |||
|} | |||
|width=10% align=center style="background:#F5F5F5"|<small>[[Main Page]]</small> | |||
|} | |||
==Timeline== | |||
{{timeline | |||
|height=5 | |||
|title= }} | |||
{{tlevent | |||
|width=250px | |||
|event=This happened (250 pixels wide) | |||
|color=#FFF | |||
}} | |||
{{tlsubevent | |||
|event=something. something. something. something. (350) | |||
|width=350px | |||
|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 | |||
}} | |||
|} | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
==Sort test== | ==Sort test== | ||
<div style="background-color:#FFF; width:80%"> | |||
<div style="position:relative; | |||
left:50px; | |||
float:left; | |||
width:auto; | |||
background-color:#AAF;"><font style="padding: 2px; margin:2px;">'''5'''</font></div> | |||
<div style="position:relative; | |||
float:left; | |||
left:100px; | |||
width:auto; | |||
background-color:#AFF;"><font style="padding: 2px; margin:2px;">'''4'''</font></div> | |||
<div style="position:relative; | |||
float:left; | |||
left:150px; | |||
width:auto; | |||
background-color:#FAF;"><font style="padding: 2px; margin:2px;">'''3'''</font></div> | |||
<div style="position:relative; | |||
float:left; | |||
left:200px; | |||
width:auto; | |||
background-color:#FFA;"><font style="padding: 2px; margin:2px;">'''2'''</font></div> | |||
<div style="position:relative; | |||
float:left; | |||
left:250px; | |||
width:auto; | |||
background-color:#0FF;"><font style="padding: 2px; margin:2px;">'''1'''</font></div> | |||
<div style="position:relative; | |||
float:left; | |||
left:300px; | |||
width:auto; | |||
background-color:#F0F;"><font style="padding: 2px; margin:2px;">'''0'''</font></div> | |||
</div> | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
<br/> | |||
==pl test== | ==pl test== | ||
Line 193: | Line 321: | ||
|} | |} | ||
==VB Module for Extracting Contributions== | ==VB Module for Extracting Contributions== |
Latest revision as of 09: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 |
|
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
U and D test
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