User:Robert W King/Sandbox: Difference between revisions

From Citizendium
Jump to navigation Jump to search
imported>Robert W King
imported>Robert W King
Line 46: Line 46:
|width=350px
|width=350px
|color=#EEEEEE
|color=#EEEEEE
|height=40px
|height=30px
|margin=0px
|margin=40px
}}
}}
|}
|}

Revision as of 12:26, 28 April 2008

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. (350)






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
Retrieved from "https://citizendium.org/wiki/index.php?title=User:Robert_W_King/Sandbox&oldid=221622"