User:Robert W King/Sandbox: Difference between revisions

Revision as of 15:55, 9 February 2008

Section 4 - Timeline Table Template (documented in HTML comments)

History of Computing Timeline

+

?? BC

Slamis Tablet

300 BC-500 AD

Roman Hand Abacus

~1200 AD

Modern Chinese Abacus

??

Leonardo Da Vinci writes the "Codex Madrid"

Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken Chicken 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

Template:Timeline Table

CSS Test

~~test~~

@import url(/wiki?title=User:Robert_W_King/monobook.css);

New thing

Template:Recursive

Test

1

2

3

4

5

more test

Template:Bowlingscoresheet

Recursive test

Template:Date1 Template:Date3 Template:!test

Thing from excel

http://en.citizendium.org/wiki/Fire	var	wgPageName	"Fire"
	var	wgTitle	"Fire"
	var	wgArticleId	"100023366"
	var	wgCurRevisionId 	"100193030"

http://en.citizendium.org/wiki?title=Fire&diff=prev&oldid=100193030	var	wgPageName	"Fire"
	var	wgTitle	"Fire"
	var	wgArticleId	"100023366"
	var	wgCurRevisionId 	"100193030"
	<table class='diff'>		
	<td colspan='2' class='diff-otitle'>		
	<div id="mw-diff-otitle1">		
	<a href='/wiki?title=Fire&oldid=100192579'>		
	<div id="mw-diff-otitle2">		
	<a href="/wiki/User:Hayford_Peirce" title="User:Hayford Peirce"		
	<td colspan="2" class="diff-lineno">		
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>-
	<td class='diff-deletedline'>
	<del class="diffchange">
	<td class='diff-marker'>+
	<td class='diff-addedline'>
	<ins class="diffchange">
	<td class='diff-marker'> 
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'> 		
	<td class='diff-context'>		
	<td class='diff-marker'>		
	<td class='diff-context'>		
	<!-- diff cache key cz:diff:version:1.11a:oldid:100192579:newid:100193030 -->		
http://en.citizendium.org/wiki?title=Fire&diff=prev&oldid=100192579	var	wgPageName	"Fire"
	var	wgTitle	"Fire"
	var	wgArticleId	"100023366"
	var	wgCurRevisionId 	"100193030"
	<td colspan='2' class='diff-otitle'>		
	<div id="mw-diff-otitle1">		
	<a href='/wiki?title=Fire&oldid=100192564'>		
	<div id="mw-diff-otitle2">		
	<a href="/wiki/User:Hayford_Peirce" title="User:Hayford Peirce">		
	<td colspan='2' class='diff-ntitle'>		
	<div id="mw-diff-ntitle1">		
	<a href='/wiki?title=Fire&oldid=100192579'>
	<div id="mw-diff-ntitle2">
	<a href="/wiki/User:Hayford_Peirce" title="User:Hayford Peirce">
	<td class='diff-marker'> 
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-deletedline'>
	<del class="diffchange">
	<del class="diffchange">
	<td class='diff-marker'>+
	<td class='diff-addedline'>		
	<ins class="diffchange">		
	<ins class="diffchange">		
	<td class='diff-marker'> 		
	<td class='diff-context'>		
	<td class='diff-marker'> 		
	<td class='diff-context'>		
	<td class='diff-marker'> 		
	<td class='diff-context'>		
	<td class='diff-marker'> 		
	<td class='diff-context'>		
	<!-- diff cache key cz:diff:version:1.11a:oldid:100192564:newid:100192579 -->		
http://en.citizendium.org/wiki?title=Fire&diff=prev&oldid=100192432	var	wgPageName	"Fire"
	var	wgTitle	"Fire"
	var	wgArticleId	"100023366"
	var	wgCurRevisionId 	"100193030"
	<td colspan='2' class='diff-otitle'>
	<div id="mw-diff-otitle1">
	<a href='/wiki?title=Fire&oldid=100192314'>
	<div id="mw-diff-otitle2">
	<a href="/wiki/User:Aleta_Curry" title="User:Aleta Curry">
	<td colspan='2' class='diff-ntitle'>
	<div id="mw-diff-ntitle1">
	<a href='/wiki?title=Fire&oldid=100192432'>
	<div id="mw-diff-ntitle2">
	<a href="/wiki/User:Jeffrey_Scott_Bernstein" title="User:Jeffrey Scott Bernstein">
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>-
	<td class='diff-deletedline'>
	<del class="diffchange">
	<td class='diff-marker'>+
	<td class='diff-addedline'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td colspan="2" class="diff-lineno">
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'> 
	<td class='diff-context'>
	<td class='diff-marker'>-
	<td class='diff-deletedline'>
	<del class="diffchange">
	<td class='diff-marker'>+
	<td class='diff-addedline'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>		
	<td class='diff-marker'>		
	<td class='diff-context'>		
	<td class='diff-marker'>		
	<td class='diff-context'>		
http://en.citizendium.org/wiki?title=Fire&diff=prev&oldid=100192314	var	wgPageName	"Fire"
	var	wgTitle	"Fire"
	var	wgArticleId	"100023366"
	var	wgCurRevisionId 	"100193030"
	<td colspan='2' class='diff-otitle'>		
	<div id="mw-diff-otitle1">		
	<a href='/wiki?title=Fire&oldid=100192191'>		
	<div id="mw-diff-otitle2">		
	<a href="/wiki/User:Robert_W_King" title="User:Robert W King">		
	<td colspan='2' class='diff-ntitle'>		
	<div id="mw-diff-ntitle1">		
	<a href='/wiki?title=Fire&oldid=100192314'>
	<div id="mw-diff-ntitle2">
	<a href="/wiki/User:Aleta_Curry" title="User:Aleta Curry">
	<td colspan="2" class="diff-lineno">
	<td colspan="2" class="diff-lineno">
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>+
	<td class='diff-addedline'>
	<td class='diff-marker'>+
	<td class='diff-addedline'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'>
	<td class='diff-context'>
	<td class='diff-marker'> 
	<td class='diff-context'>

Thing 2

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

@@ Line 185: / Line 185: @@
-==Table==
-{|border="1" width="100%" cellpadding="3" cellspacing="1" style="margin: 0 0 0 0; background:#efefef; wrap=yes"
-|-
-|align=center|[[Image:User Help Icon.png|25px]]
-|align=center|[[Image:Go-next.png|10px]]
-|width=40%|<font-size=20>'''[[CZ:Media_Assets_Workgroup/Help_requests|I need a seasoned contributor to help me, I have no idea what to do!]]'''</font>
-|width=10%|
-|align=center|[[Image:Crystal Clear action bookmark.png|25px]]
-|align=center|[[Image:Go-next.png|10px]]
-|width=40%|<font-size=20>'''[[Special:Upload|Skip the upload wizard]] (for seasoned contributors)'''</font>
-|-
-|colspan=7|Where did you obtain this media?
-|-
-|colspan=2 rowspan=2|I am the author and...
-|colspan=5|:*'''[{{fullurl:Special:Upload|uselang=ownwork}} ...wish people to reuse my Work with few or no restrictions]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(51, 204, 0);"><small>GOOD TO GO!</small></span>
-|-
-|colspan=5|:*'''[{{fullurl:Special:Upload|uselang=ownworkpro}} ...want to upload a Work of professional quality or rarity]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(51, 204, 0);"><small>GOOD TO GO!</small></span>
-|-
-|colspan=7|'''Someone else made it...'''
-|-
-|[[Image:Flickr gamma Trademarked Logo small.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=flickr}} From flickr]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(51, 204, 0);"><small>GOOD TO GO!</small></span>
-|-
-|[[Image:Wikimedia Commons-logo no-text.png|40px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5| '''[{{fullurl:Special:Upload|uselang=wikimedia}} Wikimedia Commons or Wikipedia]''' - it is an original Work by a Wikimedian, uploaded under their real name&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(51, 204, 0);"><small>GOOD TO GO!</small></span>
-|-
-|colspan=7|'''It came from a publication...'''
-|-
-|[[Image:Crystal Clear app linneighborhood.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=all-reuseable}} Some other internet source that features re-usable media]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(204, 153, 51);"><SMALL>HELP DEVELOP THIS SECTION!</SMALL></span><small><small><small>&nbsp;&nbsp;Go to [[CZ:Media Assets Workgroup/Development]].</small></small></small>
-|-
-|[[Image:US-GreatSeal-Obverse-sm.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=pd-usgov}} A U.S. government online or print publication]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(204, 153, 51);"><SMALL>HELP DEVELOP THIS SECTION!</SMALL></span><small><small><small>&nbsp;&nbsp;Go to [[CZ:Media Assets Workgroup/Development]].</small></small></small>
-|-
-|[[Image:Book and news.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=pd-old}} Some book, newspaper, or other print publication, as a scan or screen capture]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(204, 153, 51);"><SMALL>HELP DEVELOP THIS SECTION!</SMALL></span> <small><small><small>&nbsp;&nbsp;Go to [[CZ:Media Assets Workgroup/Development]].</small></small></small>
-|-
-|colspan=7|'''I have permission!'''
-|-
-|[[Image:By-permission-icon.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=bypermission}} From someone who has given me written permission to use their copyrighted material]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(51, 204, 0);"><small>GOOD TO GO!</small></span>
-|-
-|colspan=7|'''I am not sure...'''
-|-
-|[[Image:PD-questioned-icon.png|53px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=pd-old}} Somewhere else, but its copyright has expired, or I think it may have]'''&nbsp;&nbsp;&nbsp;&nbsp;<span style="font-weight: bold; font-style: italic; color: rgb(204, 153, 51);"><SMALL>HELP DEVELOP THIS SECTION!</SMALL></span> <small><small><small>&nbsp;&nbsp;Go to [[CZ:Media Assets Workgroup/Development]].</small></small></small>
-|-
-|colspan=7|<BR><BIG>'''Other:'''</BIG><BR><BR>
-|-
-|[[Image:515px-Scales Of Justice.svg.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=fairuse-author}} I am an <U>author</U> and need to make a fair use (fair dealing) claim]'''
-|-
-|[[Image:515px-Scales Of Justice.svg.png|50px]]
-|[[Image:Go-next.png|15px]]
-|colspan=5|'''[{{fullurl:Special:Upload|uselang=fairuse-editor}} I am an <U>editor</U> and need to make a fair use (fair dealing) claim]'''
-|}
-<BR>
-<center><small><small><small>See [[CZ:Media|All media policies]]</small></small></small></center>
-[[Category:Upload Wizard]]
-[[Category:Media Assets Workgroup]]

User:Robert W King/Sandbox: Difference between revisions

Revision as of 15:55, 9 February 2008

Contents

Section 4 - Timeline Table Template (documented in HTML comments)

test using Template:Timeline_Table

CSS Test

New thing

Test

more test

Recursive test

Thing from excel

Thing 2

Excel VB Script version

Navigation menu

User:Robert W King/Sandbox: Difference between revisions

Revision as of 15:55, 9 February 2008

Section 4 - Timeline Table Template (documented in HTML comments)

test using Template:Timeline_Table

CSS Test

New thing

Test

more test

Recursive test

Thing from excel

Thing 2

Excel VB Script version

Navigation menu

Search