Jump to content

User:Dhtwiki/sandbox/GOCE barnstar scripts

From Wikipedia, the free encyclopedia

Attachment #1

[edit]
[-- Attachment #1 --]
[. . .]
(Instructions and script updated October 2017)

1) Open "GOCE Drive.vbs" script and the current month's raw data with a
text editing program.
2) Update the months in the script in four places: the names of the raw
data and the results file, and the rollover column headers.
3) Clean up the raw data as best you can.
a) Remove any unused lines such as "# {{Completed}} [[]] ()".
b) Remove extra commentary and text.
c) Remove entirely sections of users who did not do any copyediting.
4) Adjust the paths to the two text files as you prefer.
5) Run the script.
6) It will almost certainly not work the first time; you'll get an error
window saying what happened. Click OK.
7) Open the results file in a text editor and see where it stopped.
8) Look at the next user's section in the raw text and correct the problem.
9) Repeat steps 4-7 until no error window pops up.
10) Copy entire results file to barnstars subpage for completed drive.

The script isn't perfect; it doesn't handle a lot of corner cases and weird
text, because the overhead wouldn't be worth it compared to the ease of
just fixing the raw file.  The most common issue is the script complaining
about CInt type mismatch. The code looks for numbers in parentheses to get
the article word counts, and is designed to ignore disambiguation
parentheses, but it gets confused if there are more than two sets of
parentheses on a single line, so you'll need to remove extras. Let me know
if you have any other questions or issues with it.


Find and replace strings:

Find: # {{Completed}} [[]] ()
Replace with nothing (regex off)

Find: \# \{\{Working\}\}.*$
Replace with nothing (regex on)

Find: \{\{checked\}\}.*$
Replace with nothing (regex on)

Find: \{\{y\}\}.*$
Replace with nothing (regex on)
[. . .]

Attachment #2

[edit]
[-- Attachment #2: GOCE Drive.vbs.txt --]
[. . .]
                                                                                                                                                                                                  
Dim objFS                                                                                                                                                                                         
Dim objFile                                                                                                                                                                                       
Dim objInput                                                                                                                                                                                      
Dim objOutput
Dim strText
Dim strName                                                                                                                                                                                       
Dim strLine                                                                                                                                                                                       
Dim strArticleWordCount                                                                                                                                                                           
Dim nStart                                                                                                                                                                                        
Dim nFinish                                                                                                                                                                                       
Dim nRawWordTotal                                                                                                                                                                                 
Dim nGrandWordTotal                                                                                                                                                                               
Dim nBonusWordTotal                                                                                                                                                                               
Dim nNewRolloverTotal                                                                                                                                                                             
Dim nOldRolloverTotal
Dim nArticleCount                                                                                                                                                                                 
Dim nOldArticleCount                                                                                                                                                                              
Dim nArticleWordCount                                                                                                                                                                             
Dim nLargestArticle                                                                                                                                                                               
Dim nFiveKCount                                                                                                                                                                                   
Dim TempWordCount                                                                                                                                                                                 
Dim strAward
Dim nEveryoneRaw                                                                                                                                                                                  
Dim nEveryoneArticle                                                                                                                                                                              
Dim nEveryoneOld                                                                                                                                                                                  
Dim nEveryoneFiveK                                                                                                                                                                                
                                                                                                                                                                                                  
nRawWordTotal = 0.0                                                                                                                                                                               
nGrandWordTotal = 0.0                                                                                                                                                                             
nBonusWordTotal = 0.0                                                                                                                                                                             
nNewRolloverTotal = 0.0
nOldRolloverTotal = 0.0
nArticleCount = 0
nOldArticleCount = 0
nArticleWordCount = 0.0                                                                                                                                                                           
nLargestArticle = 0
nFiveKCount = 0                                                                                                                                                                                   
nTempWordCount = 0                                                                                                                                                                                
strAward = ""                                                                                                                                                                                     
strRollover = ""
nEveryoneRaw = 0.0
nEveryoneArticle = 0                                                                                                                                                                              
nEveryoneOld = 0                                                                                                                                                                                  
nEveryoneFiveK = 0                                                                                                                                                                                
                                                                                                                                                                                                  
Set objFS = CreateObject("Scripting.FileSystemObject")                                                                                                                                            
Set objInput = objFS.OpenTextFile("C:\Users\Joe\Documents\GOCE-2015-March.txt")
Set objOutput = objFS.CreateTextFile("C:\Users\Joe\Documents\GOCE-2015-March-Results.txt", True)
strText = objInput.ReadLine                                                                                                                                                                       
objOutput.WriteLine "{|class=" & Chr(34) & "wikitable sortable" & Chr(34)
objOutput.WriteLine "|-"                                                                                                                                                                          
objOutput.WriteLine "!Name"                                                                                                                                                                       
objOutput.WriteLine "!Raw total"                                                                                                                                                                  
objOutput.WriteLine "!Bonus total"                                                                                                                                                                
objOutput.WriteLine "!Old rollover total (DO NOT USE FOR MAY)"
objOutput.WriteLine "!Grand total"                                                                                                                                                                
objOutput.WriteLine "!New rollover total (USE THIS NUMBER FOR MAY)"                                                                                                                               
objOutput.WriteLine "!Article count"                                                                                                                                                              
objOutput.WriteLine "!Old article count"                                                                                                                                                          
objOutput.WriteLine "!Largest article"                                                                                                                                                            
objOutput.WriteLine "!5k article count"
objOutput.WriteLine "!Word count award"
objOutput.WriteLine "|-"                                                                                                                                                                          
Do While objInput.AtEndOfStream <> True                                                                                                                                                           
        If InStr(1, strText, "==", 1) Then                                                                                                                                                        
                nStart = InStr(1, strText, "==", 1) + 2                                                                                                                                           
                nFinish = InStr (nStart, strText, "==", 1)                                                                                                                                        
                strName = Mid(strText, nStart, nFinish - nStart)                                                                                                                                  
                GetTotals                                                                                                                                                                         
                GetNewRolloverTotal                                                                                                                                                               
        End If                                                                                                                                                                                    
        strLine = "|" & strName
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nRawWordTotal                                                                                                                                                             
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nBonusWordTotal                                                                                                                                                           
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nOldRolloverTotal                                                                                                                                                         
        objOutput.WriteLine strLine
        strLine = "|" & nGrandWordTotal                                                                                                                                                           
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nNewRolloverTotal                                                                                                                                                         
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nArticleCount                                                                                                                                                             
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nOldArticleCount                                                                                                                                                          
        objOutPut.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nLargestArticle
        objOutput.WriteLine strLine
        strLine = "|" & nFiveKCount
        objOutput.WriteLine strLine
        strLine = "|" & strAward                                                                                                                                                                  
        objOutput.WriteLine strLine
        strLine = "|-"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
        nRawWordTotal = 0.0                                                                                                                                                                       
        nGrandWordTotal = 0.0
        nBonusWordTotal = 0.0
        nNewRolloverTotal = 0.0                                                                                                                                                                   
        nOldRolloverTotal = 0.0                                                                                                                                                                   
        nArticleCount = 0                                                                                                                                                                         
        nOldArticleCount = 0                                                                                                                                                                      
        nArticleWordCount = 0.0                                                                                                                                                                   
        nLargestArticle = 0                                                                                                                                                                       
        nFiveKCount = 0                                                                                                                                                                           
        nTempWordCount = 0                                                                                                                                                                        
        strName = ""                                                                                                                                                                              
        strAward = ""                                                                                                                                                                             
        strRollover = ""                                                                                                                                                                          
Loop                                                                                                                                                                                              
        strLine = "| Totals"                                                                                                                                                                      
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nEveryoneRaw                                                                                                                                                              
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|0"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|0"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|0"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|0"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nEveryoneArticle                                                                                                                                                          
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nEveryoneOld                                                                                                                                                              
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|0"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|" & nEveryoneFiveK
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|n/a"                                                                                                                                                                          
        objOutput.WriteLine strLine                                                                                                                                                               
        strLine = "|-"                                                                                                                                                                            
        objOutput.WriteLine strLine                                                                                                                                                               
Set objFS = Nothing                                                                                                                                                                               
objOutput.WriteLine "|}"                                                                                                                                                                          
objInput.Close                                                                                                                                                                                    
objOutput.Close                                                                                                                                                                                   
Sub GetTotals                                                                                                                                                                                     
  'MsgBox "Trying to get next line"                                                                                                                                                               
        Do While objInput.AtEndOfStream <> True                                                                                                                                                   
                strText = objInput.ReadLine                                                                                                                                                       
                If InStr(1, strText, "==", 1) Then                                                                                                                                                
                        Exit Sub                                                                                                                                                                  
                End If                                                                                                                                                                            
                If InStr(1, strText, "{Completed}", 1) Then
                        nStart = InStr(1, strText, "(", 1) + 1
                        nFinish = InStr (nStart, strText, ")", 1)
                        nArticleCount = nArticleCount + 1                                                                                                                                         
                        If nStart > 0 Then
                                strArticleWordCount = Mid(strText, nStart, nFinish - nStart)                                                                                                      
                                If IsNumeric (strArticleWordCount) <> True Then                                                                                                                   
                                        nStart = InStr(nFinish, strText, "(", 1) + 1                                                                                                              
                                        nFinish = InStr (nStart, strText, ")", 1)
                                        strArticleWordCount = Mid(strText, nStart, nFinish - nStart)
                                End If                                                                                                                                                            
                                nArticleWordCount = CInt(strArticleWordCount)                                                                                                                     
                                If nLargestArticle = 0 Then                                                                                                                                       
                                        nLargestArticle = nArticleWordCount                                                                                                                       
                                ElseIf nLargestArticle < nArticleWordCount Then                                                                                                                   
                                        nLargestArticle = nArticleWordCount                                                                                                                       
                                End If                                                                                                                                                            
                                nTempWordCount = nArticleWordCount                                                                                                                                
                                Do While nTempWordCount > 5000                                                                                                                                    
                                        nFiveKCount = nFiveKCount + 1                                                                                                                             
                                        nTempWordCount = nTempWordCount - 5000                                                                                                                    
                                Loop                                                                                                                                                              
                                nRawWordTotal = nRawWordTotal + nArticleWordCount                                                                                                                 
                                If InStr(1, strText, "*O", 1) Then                                                                                                                                
                                        nOldArticleCount = nOldArticleCount + 1                                                                                                                   
                                        nArticleWordCount = nArticleWordCount * 1.5                                                                                                               
                                        nGrandWordTotal = nGrandWordTotal + nArticleWordCount                                                                                                     
                                ElseIf InStr(1, strText, "*R", 1) Then                                                                                                                            
                                        nArticleWordCount = nArticleWordCount * 1.5                                                                                                               
                                        nGrandWordTotal = nGrandWordTotal + nArticleWordCount                                                                                                     
                                Else                                                                                                                                                              
                                        nGrandWordTotal = nGrandWordTotal + nArticleWordCount                                                                                                     
                                End If                                                                                                                                                            
                        End If                                                                                                                                                                    
                ElseIf InStr(1, strText, "rollover-words", 1) Then                                                                                                                                
                        nStart = InStr(1, strText, "=", 1) + 1                                                                                                                                    
                        nFinish = Len (strText)                                                                                                                                                   
                        strRollover = Mid(strText, nStart, nFinish - nStart + 1)                                                                                                                  
                        Trim(strRollover)                                                                                                                                                         
                        If IsNumeric (strRollover) Then                                                                                                                                           
                                nOldRolloverTotal = CLng(strRollover)
                        End If                                                                                                                                                                    
                        'MsgBox "Name: " & strName & vbCrLf & "Bonus: " & nBonusWordTotal & vbCrLf & "Grand: " & nGrandWordTotal & vbCrLf & "Raw: " & nRawWordTotal                               
                        nBonusWordTotal = nGrandWordTotal - nRawWordTotal                                                                                                                         
                        nGrandWordTotal = nGrandWordTotal + nOldRolloverTotal                                                                                                                     
                        nEveryoneRaw = nEveryoneRaw + nRawWordTotal                                                                                                                               
                        nEveryoneArticle = nEveryoneArticle + nArticleCount                                                                                                                       
                        nEveryoneOld = nEveryoneOld + nOldArticleCount                                                                                                                            
                        nEveryoneFiveK = nEveryoneFiveK + nFiveKCount                                                                                                                             
                End If                                                                                                                                                                            
        Loop                                                                                                                                                                                      
End Sub                                                                                                                                                                                           
                                                                                                                                                                                                  
Sub GetNewRolloverTotal                                                                                                                                                                           
        If nGrandWordTotal > 100000 Then                                                                                                                                                          
                nNewRolloverTotal = nGrandWordTotal - 100000                                                                                                                                      
                strAward = "Most Excellent Caretaker"                                                                                                                                             
        ElseIf nGrandWordTotal > 80000 Then                                                                                                                                                       
                nNewRolloverTotal = nGrandWordTotal - 80000                                                                                                                                       
                strAward = "Order of Superior Scribe"                                                                                                                                             
        ElseIf nGrandWordTotal > 60000 Then                                                                                                                                                       
                nNewRolloverTotal = nGrandWordTotal - 60000
                strAward = "Diligence"                                                                                                                                                            
        ElseIf nGrandWordTotal > 40000 Then                                                                                                                                                       
                nNewRolloverTotal = nGrandWordTotal - 40000                                                                                                                                       
                strAward = "Modern GOCE"                                                                                                                                                          
        ElseIf nGrandWordTotal > 30000 Then                                      
                nNewRolloverTotal = nGrandWordTotal - 30000                                                                                                                                       
                strAward = "Old school LOCE"                                                                                                                                                      
        ElseIf nGrandWordTotal > 20000 Then                                                                                                                                                       
                nNewRolloverTotal = nGrandWordTotal - 20000                                                                                                                                       
                strAward = "Tireless Contributor"                                                                                                                                                 
        ElseIf nGrandWordTotal > 12000 Then                                                                                                                                                       
                nNewRolloverTotal = nGrandWordTotal - 12000                                                                                                                                       
                strAward = "Cleanup"                                                                                                                                                              
        ElseIf nGrandWordTotal > 8000 Then                                                                                                                                                        
                nNewRolloverTotal = nGrandWordTotal - 8000                                                                                                                                        
                strAward = "Working Wikipedian"                                                                                                                                                   
        ElseIf nGrandWordTotal > 4000 Then                                                                                                                                                        
                nNewRolloverTotal = nGrandWordTotal - 4000                                                                                                                                        
                strAward = "Modest"                                                                                                                                                               
        Else                                                                                                                                                                                      
                If nRawWordTotal > 0 Then                                                                                                                                                         
                        nNewRolloverTotal = nGrandWordTotal                                                                                                                                       
                        If strAward = "" Then                                                                                                                                                     
                                If nArticleCount > 0 Then                                                                                                                                         
                                        strAward = "Minor"                                                                                                                                        
                                End If                                                                                                                                                            
                        End If                                                                                                                                                                    
                End If                                                                                                                                                                            
        End If                                                                                                                                                                                    
End Sub                                                                                                                                                                                           


[-- Attachment #2: goce.txt --]                                                                                   
[. . .]                                                            
                                                                                                                  
Dim objFS                                                                                                         
Dim objFile                                                                                                       
Dim objInput                                                                                                      
Dim objOutput                                                                                                     
Dim strText                                                                                                       
Dim strName                                                                                                       
Dim strLine                                                                                                       
Dim strArticleWordCount                                                                                           
Dim nStart                                                                                                        
Dim nFinish                                                                                                       
Dim nRawWordTotal                                                                                                 
Dim nGrandWordTotal                                                                                               
Dim nBonusWordTotal                                                                                               
Dim nNewRolloverTotal                                                                                             
Dim nOldRolloverTotal                                                                                             
Dim nArticleCount                                                                                                 
Dim nOldArticleCount                                                                                              
Dim nArticleWordCount                                                                                             
Dim nLargestArticle                                                                                               
Dim nFiveKCount                                                                                                   
Dim TempWordCount                                                                                                 
Dim strAward                                                                                                      
Dim nEveryoneRaw                                                                                                  
Dim nEveryoneArticle                                                                                              
Dim nEveryoneOld                                                                                                  
Dim nEveryoneFiveK                                                                                                
                                                                                                                  
nRawWordTotal = 0.0                                                                                               
nGrandWordTotal = 0.0                                                                                             
nBonusWordTotal = 0.0                                                                                             
nNewRolloverTotal = 0.0                                                                                           
nOldRolloverTotal = 0.0                                                                                           
nArticleCount = 0                                                                                                 
nOldArticleCount = 0                                                                                              
nArticleWordCount = 0.0                                                                                           
nLargestArticle = 0                                                                                               
nFiveKCount = 0     
nTempWordCount = 0                                                                                                
strAward = ""                                                                                                     
strRollover = ""                                                                                                  
nEveryoneRaw = 0.0                                                                                                
nEveryoneArticle = 0                                                                                              
nEveryoneOld = 0                                                                                                  
nEveryoneFiveK = 0                                                                                                
                                                                                                                  
Set objFS = CreateObject("Scripting.FileSystemObject")                                                            
Set objInput = objFS.OpenTextFile("C:\Users\afwi2\Documents\Wikipedia\GOCE-input.txt")                            
Set objOutput = objFS.CreateTextFile("C:\Users\afwi2\Documents\Wikipedia\GOCE-2020-January-Results.txt", True)    
strText = objInput.ReadLine                                                                                       
objOutput.WriteLine "{|class=" & Chr(34) & "wikitable sortable" & Chr(34)                                         
objOutput.WriteLine "|-"                                                                                          
objOutput.WriteLine "!Name"                                                                                       
objOutput.WriteLine "!Raw total"                                                                                  
objOutput.WriteLine "!Bonus total"                                                                                
objOutput.WriteLine "!Old rollover total (DO NOT USE FOR MARCH)"                                                  
objOutput.WriteLine "!Grand total"                                                                                
objOutput.WriteLine "!New rollover total (USE THIS NUMBER FOR MARCH)"                                             
objOutput.WriteLine "!Article count"                                                                              
objOutput.WriteLine "!Old article count"                                                                          
objOutput.WriteLine "!Largest article"                                                                            
objOutput.WriteLine "!5k article count"                                                                           
objOutput.WriteLine "!Word count award"                                                                           
objOutput.WriteLine "|-"                                                                                          
Do While objInput.AtEndOfStream <> True                                                                           
        If InStr(1, strText, "==", 1) Then                                                                        
                nStart = InStr(1, strText, "==", 1) + 2                                                           
                nFinish = InStr (nStart, strText, "==", 1)                                                        
                strName = Mid(strText, nStart, nFinish - nStart)                                                  
                GetTotals                                                                                         
                GetNewRolloverTotal                                                                               
        End If                                                                                                    
        strLine = "|" & strName                                                                                   
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nRawWordTotal                                                                             
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nBonusWordTotal                                                                           
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nOldRolloverTotal                                                                         
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nGrandWordTotal                                                                           
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nNewRolloverTotal                                                                         
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nArticleCount                                                                             
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nOldArticleCount                                                                          
        objOutPut.WriteLine strLine                                                                               
        strLine = "|" & nLargestArticle                                                                           
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nFiveKCount                                                                               
        objOutput.WriteLine strLine          
        strLine = "|" & strAward                                                                                  
        objOutput.WriteLine strLine                                                                               
        strLine = "|-"                                                                                            
        objOutput.WriteLine strLine                                                                               
        nRawWordTotal = 0.0                                                                                       
        nGrandWordTotal = 0.0                                                                                     
        nBonusWordTotal = 0.0                                                                                     
        nNewRolloverTotal = 0.0                                                                                   
        nOldRolloverTotal = 0.0                                                                                   
        nArticleCount = 0                                                                                         
        nOldArticleCount = 0                                                                                      
        nArticleWordCount = 0.0                                                                                   
        nLargestArticle = 0                                                                                       
        nFiveKCount = 0                                                                                           
        nTempWordCount = 0                                                                                        
        strName = ""                                                                                              
        strAward = ""                                                                                             
        strRollover = ""                                                                                          
Loop                                                                                                              
        strLine = "| Totals"                                                                                      
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nEveryoneRaw                                                                              
        objOutput.WriteLine strLine                                                                               
        strLine = "|0"                                                                                            
        objOutput.WriteLine strLine                                                                               
        strLine = "|0"                                                                                            
        objOutput.WriteLine strLine                                                                               
        strLine = "|0"                                                                                            
        objOutput.WriteLine strLine                                                                               
        strLine = "|0"                                                                                            
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nEveryoneArticle                                                                          
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nEveryoneOld                                                                              
        objOutput.WriteLine strLine                                                                               
        strLine = "|0"                                                                                            
        objOutput.WriteLine strLine                                                                               
        strLine = "|" & nEveryoneFiveK                                                                            
        objOutput.WriteLine strLine                                                                               
        strLine = "|n/a"                                                                                          
        objOutput.WriteLine strLine                                                                               
        strLine = "|-"                                                                                            
        objOutput.WriteLine strLine                                                                               
Set objFS = Nothing                                                                                               
objOutput.WriteLine "|}"                                                                                          
objInput.Close                                                                                                    
objOutput.Close                                                                                                   
Sub GetTotals                                                                                                     
  'MsgBox "Trying to get next line"                                                                               
        Do While objInput.AtEndOfStream <> True                                                                   
                strText = objInput.ReadLine                                                                       
                If InStr(1, strText, "==", 1) Then                                                                
                        Exit Sub                                                                                  
                End If                                                  
                If InStr(1, strText, "{Completed}", 1) Then                                                       
                        nStart = InStr(1, strText, "(", 1) + 1                                                    
                        nFinish = InStr (nStart, strText, ")", 1)                                                 
                        nArticleCount = nArticleCount + 1                                                         
                        If nStart > 0 Then                                                                        
                                strArticleWordCount = Mid(strText, nStart, nFinish - nStart)                      
                                If IsNumeric (strArticleWordCount) <> True Then                                   
                                        nStart = InStr(nFinish, strText, "(", 1) + 1                              
                                        nFinish = InStr (nStart, strText, ")", 1)                                 
                                        strArticleWordCount = Mid(strText, nStart, nFinish - nStart)              
                                End If                                                                            
                                nArticleWordCount = CInt(strArticleWordCount)                                     
                                If nLargestArticle = 0 Then                                                       
                                        nLargestArticle = nArticleWordCount                                       
                                ElseIf nLargestArticle < nArticleWordCount Then                                   
                                        nLargestArticle = nArticleWordCount                                       
                                End If                                                                            
                                nTempWordCount = nArticleWordCount                                                
                                Do While nTempWordCount > 5000                                                    
                                        nFiveKCount = nFiveKCount + 1                                             
                                        nTempWordCount = nTempWordCount - 5000                                    
                                Loop                                                                              
                                nRawWordTotal = nRawWordTotal + nArticleWordCount                                 
                                If InStr(1, strText, "*O", 1) Then                                                
                                        nOldArticleCount = nOldArticleCount + 1                                   
                                        nArticleWordCount = nArticleWordCount * 1.5                               
                                        nGrandWordTotal = nGrandWordTotal + nArticleWordCount                     
                                ElseIf InStr(1, strText, "*R", 1) Then                                            
                                        nArticleWordCount = nArticleWordCount * 1.5                               
                                        nGrandWordTotal = nGrandWordTotal + nArticleWordCount                     
                                Else                                                                              
                                        nGrandWordTotal = nGrandWordTotal + nArticleWordCount                     
                                End If                                                                            
                        End If                                                                                    
                ElseIf InStr(1, strText, "rollover-words", 1) Then                                                
                        nStart = InStr(1, strText, "=", 1) + 1                                                    
                        nFinish = Len (strText)                                                                   
                        strRollover = Mid(strText, nStart, nFinish - nStart + 1)                                  
                        Trim(strRollover)                                                                         
                        If IsNumeric (strRollover) Then                                                           
                                nOldRolloverTotal = CLng(strRollover)                                             
                        End If                                                                                    
                        'MsgBox "Name: " & strName & vbCrLf & "Bonus: " & nBonusWordTotal & vbCrLf & "Grand: " & nGrandWordTotal & vbCrLf & "Raw: " & nRawWordTotal                                                               
                        nBonusWordTotal = nGrandWordTotal - nRawWordTotal                                         
                        nGrandWordTotal = nGrandWordTotal + nOldRolloverTotal                                     
                        nEveryoneRaw = nEveryoneRaw + nRawWordTotal                                               
                        nEveryoneArticle = nEveryoneArticle + nArticleCount                                       
                        nEveryoneOld = nEveryoneOld + nOldArticleCount                                            
                        nEveryoneFiveK = nEveryoneFiveK + nFiveKCount                                             
                End If                                                                                            
        Loop                                                                                                      
End Sub                    

Attachment #3 – Old instructions

[edit]
[-- Attachment #3: Jonesey's instruxions.txt --]                                                                  
[. . .]                                                            
                                                                                                                  
1) Copy the user tracking section of the drive page into the GOCE-input.txt file.                                 
2) Clean up the raw data as best you can.                                                                         
a) Remove any unused lines such as "# {{Completed}} [[]] ()".                                                     
b) Remove extra commentary and text. (e.g. {{y}} username etc.)                                                   
c) Remove entirely sections of users who did not do any copyediting.                                              
3) Run the script.                                                                                                
4) It will almost certainly not work the first time; you'll get an error window saying what happened (it will probably say error in line 157). Click OK.                                                                       
5) Open the results file in a text editor and see where it stopped.                                               
6) a) Look at the next user's section in the raw text and correct the problem. If it gets stuck on line 157, look at the output file to see the last editor it processed. The next editor has a typo. Look for incorrect punctuation like [ or { instead of (. Look for dual parens and extra text. Look for *0 (zero) instead of *O.     
b) (only if there are problems:) The code looks for numbers in parentheses at the end of each line to get the article word counts, so it gets confused if there are parenthetical notes after the word count.                  
c) (only if there are problems:) Look for problems like "'''*O'''" (remove bolding), "R*" (should be *R), unclosed parens around word counts or square brackets around word counts instead of parens.                               
7) Repeat steps 3-6 until no error window pops up.                                                                
8) Copy the entire results file (GOCE-output.txt) to the barnstars subpage for the completed drive.

Python script (not GOCE script proper)

[edit]
[Python script]
from vb2py.vbfunctions import *
from vb2py.vbdebug import *

objFS = Variant()
objFile = Variant()
objInput = Variant()
objOutput = Variant()
strText = Variant()
strName = Variant()
strLine = Variant()
strArticleWordCount = Variant()
nStart = Variant()
nFinish = Variant()
nRawWordTotal = Variant()
nGrandWordTotal = Variant()
nBonusWordTotal = Variant()
nNewRolloverTotal = Variant()
nOldRolloverTotal = Variant()
nArticleCount = Variant()
nOldArticleCount = Variant()
nArticleWordCount = Variant()
nLargestArticle = Variant()
nFiveKCount = Variant()
TempWordCount = Variant()
strAward = Variant()
nEveryoneRaw = Variant()
nEveryoneArticle = Variant()
nEveryoneOld = Variant()
nEveryoneFiveK = Variant()

def GetTotals():
    #MsgBox "Trying to get next line"
    while objInput.AtEndOfStream != True:
        strText = objInput.ReadLine
        if InStr(1, strText, '==', 1):
            return
        if InStr(1, strText, '{Completed}', 1):
            nStart = InStr(1, strText, '(', 1) + 1
            nFinish = InStr(nStart, strText, ')', 1)
            nArticleCount = nArticleCount + 1
            if nStart > 0:
                strArticleWordCount = Mid(strText, nStart, nFinish - nStart)
                if IsNumeric(strArticleWordCount) != True:
                    nStart = InStr(nFinish, strText, '(', 1) + 1
                    nFinish = InStr(nStart, strText, ')', 1)
                    strArticleWordCount = Mid(strText, nStart, nFinish - nStart)
                nArticleWordCount = CInt(strArticleWordCount)
                if nLargestArticle == 0:
                    nLargestArticle = nArticleWordCount
                elif nLargestArticle < nArticleWordCount:
                    nLargestArticle = nArticleWordCount
                nTempWordCount = nArticleWordCount
                while nTempWordCount > 5000:
                    nFiveKCount = nFiveKCount + 1
                    nTempWordCount = nTempWordCount - 5000
                nRawWordTotal = nRawWordTotal + nArticleWordCount
                if InStr(1, strText, '*O', 1):
                    nOldArticleCount = nOldArticleCount + 1
                    nArticleWordCount = nArticleWordCount * 1.5
                    nGrandWordTotal = nGrandWordTotal + nArticleWordCount
                elif InStr(1, strText, '*R', 1):
                    nArticleWordCount = nArticleWordCount * 1.5
                    nGrandWordTotal = nGrandWordTotal + nArticleWordCount
                else:
                    nGrandWordTotal = nGrandWordTotal + nArticleWordCount
        elif InStr(1, strText, 'rollover-words', 1):
            nStart = InStr(1, strText, '=', 1) + 1
            nFinish = Len(strText)
            strRollover = Mid(strText, nStart, nFinish - nStart + 1)
            Trim(strRollover)
            if IsNumeric(strRollover):
                nOldRolloverTotal = CLng(strRollover)
            #MsgBox "Name: " & strName & vbCrLf & "Bonus: " & nBonusWordTotal & vbCrLf & "Grand: " & nGrandWordTotal & vbCrLf & "Raw: " & nRawWordTotal
            nBonusWordTotal = nGrandWordTotal - nRawWordTotal
            nGrandWordTotal = nGrandWordTotal + nOldRolloverTotal
            nEveryoneRaw = nEveryoneRaw + nRawWordTotal
            nEveryoneArticle = nEveryoneArticle + nArticleCount
            nEveryoneOld = nEveryoneOld + nOldArticleCount
            nEveryoneFiveK = nEveryoneFiveK + nFiveKCount

nRawWordTotal = 0.0
nGrandWordTotal = 0.0
nBonusWordTotal = 0.0
nNewRolloverTotal = 0.0
nOldRolloverTotal = 0.0
nArticleCount = 0
nOldArticleCount = 0
nArticleWordCount = 0.0
nLargestArticle = 0
nFiveKCount = 0
nTempWordCount = 0
strAward = ''
strRollover = ''
nEveryoneRaw = 0.0
nEveryoneArticle = 0
nEveryoneOld = 0
nEveryoneFiveK = 0
objFS = CreateObject('Scripting.FileSystemObject')
objInput = objFS.OpenTextFile('C:\\Users\\afwi2\\Documents\\Wikipedia\\GOCE-input.txt')
objOutput = objFS.CreateTextFile('C:\\Users\\afwi2\\Documents\\Wikipedia\\GOCE-2020-January-Results.txt', True)
strText = objInput.ReadLine
objOutput.WriteLine('{|class=' + Chr(34) + 'wikitable sortable' + Chr(34))
objOutput.WriteLine('|-')
objOutput.WriteLine('!Name')
objOutput.WriteLine('!Raw total')
objOutput.WriteLine('!Bonus total')
objOutput.WriteLine('!Old rollover total (DO NOT USE FOR MARCH)')
objOutput.WriteLine('!Grand total')
objOutput.WriteLine('!New rollover total (USE THIS NUMBER FOR MARCH)')
objOutput.WriteLine('!Article count')
objOutput.WriteLine('!Old article count')
objOutput.WriteLine('!Largest article')
objOutput.WriteLine('!5k article count')
objOutput.WriteLine('!Word count award')
objOutput.WriteLine('|-')
while objInput.AtEndOfStream != True:
    if InStr(1, strText, '==', 1):
        nStart = InStr(1, strText, '==', 1) + 2
        nFinish = InStr(nStart, strText, '==', 1)
        strName = Mid(strText, nStart, nFinish - nStart)
        GetTotals()
        GetNewRolloverTotal()
    strLine = '|' + strName
    objOutput.WriteLine(strLine)
    strLine = '|' + nRawWordTotal
    objOutput.WriteLine(strLine)
    strLine = '|' + nBonusWordTotal
    objOutput.WriteLine(strLine)
    strLine = '|' + nOldRolloverTotal
    objOutput.WriteLine(strLine)
    strLine = '|' + nGrandWordTotal
    objOutput.WriteLine(strLine)
    strLine = '|' + nNewRolloverTotal
    objOutput.WriteLine(strLine)
    strLine = '|' + nArticleCount
    objOutput.WriteLine(strLine)
    strLine = '|' + nOldArticleCount
    objOutPut.WriteLine(strLine)
    strLine = '|' + nLargestArticle
    objOutput.WriteLine(strLine)
    strLine = '|' + nFiveKCount
    objOutput.WriteLine(strLine)
    strLine = '|' + strAward
    objOutput.WriteLine(strLine)
    strLine = '|-'
    objOutput.WriteLine(strLine)
    nRawWordTotal = 0.0
    nGrandWordTotal = 0.0
    nBonusWordTotal = 0.0
    nNewRolloverTotal = 0.0
    nOldRolloverTotal = 0.0
    nArticleCount = 0
    nOldArticleCount = 0
    nArticleWordCount = 0.0
    nLargestArticle = 0
    nFiveKCount = 0
    nTempWordCount = 0
    strName = ''
    strAward = ''
    strRollover = ''
strLine = '| Totals'
objOutput.WriteLine(strLine)
strLine = '|' + nEveryoneRaw
objOutput.WriteLine(strLine)
strLine = '|0'
objOutput.WriteLine(strLine)
strLine = '|0'
objOutput.WriteLine(strLine)
strLine = '|0'
objOutput.WriteLine(strLine)
strLine = '|0'
objOutput.WriteLine(strLine)
strLine = '|' + nEveryoneArticle
objOutput.WriteLine(strLine)
strLine = '|' + nEveryoneOld
objOutput.WriteLine(strLine)
strLine = '|0'
objOutput.WriteLine(strLine)
strLine = '|' + nEveryoneFiveK
objOutput.WriteLine(strLine)
strLine = '|n/a'
objOutput.WriteLine(strLine)
strLine = '|-'
objOutput.WriteLine(strLine)
objFS = None
objOutput.WriteLine('|}')
objInput.Close()
objOutput.Close()