User:Robert W King/Sandbox

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

CSS Test

test

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

more test

Template:Bowlingscoresheet

Template:Bowlingscoresheet

Template:Bowlingscoresheet

Form test

STEP 1. Create the "metadata template." It's OK, you don't need to know what this means.  :-)

STEP 2. Create "approval" page.

STEP 3. Create "Talk" page.

STEP 4. Start the article itself!

Table

		<font-size=20>I need a seasoned contributor to help me, I have no idea what to do!				<font-size=20>Skip the upload wizard (for seasoned contributors)
Where did you obtain this media?
I am the author and...		:*...wish people to reuse my Work with few or no restrictions    GOOD TO GO!
		:*...want to upload a Work of professional quality or rarity    GOOD TO GO!
Someone else made it...
		From flickr    GOOD TO GO!
		Wikimedia Commons or Wikipedia - it is an original Work by a Wikimedian, uploaded under their real name    GOOD TO GO!
It came from a publication...
		Some other internet source that features re-usable media    HELP DEVELOP THIS SECTION!  Go to CZ:Media Assets Workgroup/Development.
		A U.S. government online or print publication    HELP DEVELOP THIS SECTION!  Go to CZ:Media Assets Workgroup/Development.
		Some book, newspaper, or other print publication, as a scan or screen capture    HELP DEVELOP THIS SECTION!   Go to CZ:Media Assets Workgroup/Development.
I have permission!
		From someone who has given me written permission to use their copyrighted material    GOOD TO GO!
I am not sure...
		Somewhere else, but its copyright has expired, or I think it may have    HELP DEVELOP THIS SECTION!   Go to CZ:Media Assets Workgroup/Development.
Other:
		I am an author and need to make a fair use (fair dealing) claim
		I am an editor and need to make a fair use (fair dealing) claim

See All media policies

Template bonanza

Reference templates

Template:Cite book

{{{title}}}. 

Template:Cite_conference

"{{{title}}}". {{{booktitle}}}.

Template:Cite_court

'

Template:Cite_encyclopedia

. 

Template:Cite_journal

"{{{title}}}".

Template:Cite_news

Template error: argument title is required.

Template:Cite_paper

Error on call to Template:cite paper: Parameter title must be specified

Template:Cite_press release

Error on call to Template:cite press release: Parameter title must be specified

Template:Cite_video

. {{{title}}}

Template:Cite_web

Error on call to Template:cite web: Parameters url and title must be specified.

Template:Harvard citation

([[User:Robert W King/Sandbox#CITEREF|]])

Template:Harvard citation no brackets

[[#CITEREF|]]

Template:Harvard reference

{{{author}}} ({{{year}}})

Template:Cite

{{{author}}}. {{{title}}}. [[{{{publisher}}}]], copyright [[{{{date}}}]].

Template:doi

DOI:{{{id}}}

Template:DSMCR

Note: The American Psychiatric Association, which publishes the Diagnostic and Statistical Manual of Mental Disorders, forbids the unauthorized reproduction of their diagnostic criteria. A narrative of the DSM-IV-TR criteria follows.

Template:ITIS

TSN {{{ID}}}. Integrated Taxonomic Information System.

Template:Gutenberg

{{{name}}}, available at Project Gutenberg.

Template:Gutenberg author

Works by Robert W King/Sandbox at Project Gutenberg

Template:Harv

([[User:Robert W King/Sandbox#CITEREF|]])

Template:Harvnb

[[#CITEREF|]]

Template:ICD10

ICD10 F84.0-F84.1

Template:ICD9

{{{1}}}

Template:IUCN2006

{{{assessors}}} ({{{year}}}). {{{title}}}. 2006 IUCN Red List of Threatened Species. IUCN 2006. Retrieved on {{{downloaded}}}.

Template:MedlinePlus

Robert W King/Sandbox - Information for patients from MedlinePlus (United States National Library of Medicine).

Template:MeSHID

{{{2}}}

Template:Note label

[[#ref_{{{1}}}{{{3}}}|^{^}]]

Template:OMIM

Online Mendelian Inheritance in Man, OMIM®. Johns Hopkins University, Baltimore, MD. MIM Number: {{{1}}}. World Wide Web URL: http://omim.org/.

Template:PubMedCentral

Full text at PubMed Central

Template:Quotation

{{{1}}}

Template:R

• [[]] [r]: Add brief definition or description

Template:Ref harvard

[[#endnote_{{{1}}}{{{3}}}|({{{2}}})]]

Template:Ref label

^{[[#endnote_{{{1}}}{{{3}}}|[{{{2}}}]]]}

Template:Sourcetext

Error on call to Template:Sourcetext. Parameter source must be defined.

Template:UnitedStatesCode

[[Title {{{1}}} of the United States Code|{{{1}}} U.S.C.]] § {{{2}}}

Template:US patent

U.S. Patent {{{1}}},

Template:Ussc

{{{1}}} U.S. {{{2}}} ({{{3}}})

Template:WP

Robert W King

Formatting Templates

Template:Archive_box

Robert W King

Current talk page

1, 2, 3, 4

Template:Archive_list

1, 2, 3, 4

Template:Archive_list_long

Archive 1, Archive 2, Archive 3, Archive 4

Template:Chinese_name

This is a Chinese name; the family name is {{{1}}}

Template:Clade

	{{{1}}}

Template:Col-break

Template:Col-end

Template:Cquote

“

Insert the text of the quote here, without quotation marks.

”

Template:DaysInMonth

30

Template:Disambig

This disambiguation page lists articles associated with the same or a similar title.

Template:Done

Template:Editintro

[edit intro]

Template:EMBL_species

Species {{{genus}}} {{{species}}} at the Species2000 Database

Template:Forum_locations

http://forum.citizendium.org

Template:Further

Further information: {{{1}}}

Template:IPA

{{{1}}}

Template:Lang

{{{2}}}

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 tags
    Dim thing
    Dim x
    Dim test
    Dim T
        
    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 = "Continuity"
     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
******************
THIS PART IS KEY *
Stops after the  *
last diff page   *
******************  
     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
           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