User:CleanupListingBot/Source
The source of the bot written in vb.net 2.0. Requires the DotNetWikiBot library. Currently alpha...not all exceptions caught.Smallman12q (talk) 17:43, 30 August 2010 (UTC)
Imports DotNetWikiBot
Imports System.Collections
Imports System.IO.File
Imports System.IO
Module Module1
'Structure articlesubcategory
' 'declaring a structure named articlesubcategory
' Dim article As String
' Dim subcategory As String
'End Structure
Dim enWiki As Site = Nothing
Dim catfilecounter As Integer = 0
Dim appbase As String = AppDomain.CurrentDomain.SetupInformation.ApplicationBase()
Dim categorytochecktitles As New ArrayList
Dim report As String = Nothing
Dim directoryindex() As String = Nothing
Sub Main()
'Log in
Dim username, password As String
Console.Write("Please enter username: ")
username = Console.ReadLine()
Console.Write("Please enter password: ")
password = Console.ReadLine()
Console.Clear()
Console.WriteLine("Attempting to log into the english wiki as: " + username)
Console.WriteLine("Please note that https is not used.")
Try
enWiki = New Site("http://wiki.riteme.site", username, password)
Catch e As Exception
Console.WriteLine("Login error: " + e.Message)
quit()
End Try
Console.WriteLine("Log in successful....clearing user name and password for security...")
username = Nothing
password = Nothing
Console.Clear()
'Get the cleanup categories
'Get cleanup categories
'Create a directory for subcategory of them
'Copy articles from each cat to a text file
'Load text files and compare
Console.WriteLine("Loading category: Wikipedia maintenance categories sorted by month")
Dim categoryname As String = "Wikipedia maintenance categories sorted by month"
Dim currentdirectory As String = appbase + "\" + categoryname
If Not Directory.Exists(currentdirectory) Then
Directory.CreateDirectory(currentdirectory)
Console.WriteLine("Category not found locally...begin downloading...")
getcat(categoryname, currentdirectory)
Console.WriteLine("Done downloading cleanup...")
pause()
End If
'Get category to check
Console.Write("Enter category to check: ")
Dim categorytocheck As String = Console.ReadLine()
'Get the category
Dim categorytochecklist As PageList = Nothing 'As New PageList(enWiki) '
Try
Console.WriteLine("Loading category pages...")
categorytochecklist = New PageList(enWiki)
categorytochecklist.FillAllFromCategoryTree(categorytocheck) 'Get category titles
Console.WriteLine("Category loading complete....removing non-articles.")
categorytochecklist.FilterNamespaces({0}) 'Remove non-articles
Console.WriteLine("Category filtering...complete.")
Console.WriteLine("There are " + categorytochecklist.Count.ToString + " articles.")
Catch ex As Exception
exceptionquit("Loading category error", ex)
End Try
'Send the page titles to an arraylist
'Dim categorytochecktitles As New ArrayList 'Global
For Each article As Page In categorytochecklist
categorytochecktitles.Add(article.title)
Next
categorytochecklist = Nothing 'Clear out pagelist
'''''''''''''''''
'Compare
'Check each directory for articles.txt and compare against it
'Write results to 0.txt
'http://www.java2s.com/Code/VB/Data-Structure/ListallDirectoriesunderadirectory.htm
currentdirectory = appbase + "\Wikipedia maintenance categories sorted by month"
intersectcat(currentdirectory)
''''''''''''Report
'Load index
''
'appbase + "\Category directory.txt"
report += "The following is a cleanup report generated on " + Date.UtcNow.ToString
Dim index As New ArrayList
'Read from file 'http://msdn.microsoft.com/en-us/library/db5x7c0d.aspx
Try
' Create an instance of StreamReader to read from a file.
' The using statement also closes the StreamReader.
Using sr As New StreamReader(currentdirectory + "\articles.txt")
Dim line As String
' Read and display lines from the file until the end of
' the file is reached.
Do
line = sr.ReadLine()
If Not (line Is Nothing) Then
'Console.WriteLine("Adding " + line)
Dim parts() As String = line.Split("#") 'c, 2)
'remove the number #
index.Add(parts(1))
End If
Loop Until line Is Nothing
End Using
Catch e As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(e.Message)
End Try
directoryindex = arraylisttostring(index)
index = Nothing
currentdirectory = appbase + "\Wikipedia maintenance categories sorted by month"
reportoncat(currentdirectory, 1)
Dim objWriter As New System.IO.StreamWriter(appbase + "\Report.txt", True) 'Append
objWriter.WriteLine(report) ' + vbNewLine)'it's appended
'Console.WriteLine("Writing...")
objWriter.Close()
'Logout missing?
End Sub
Function intersect(ByRef list1 As ArrayList, ByRef list2 As ArrayList) As String()
Dim intersection As New ArrayList
If (list1.Count > list2.Count) Then
'use list2
For Each piece In list2
If list1.Contains(piece) Then
intersection.Add(piece)
End If
Next
Else
'user list1
For Each piece In list1
If list2.Contains(piece) Then
intersection.Add(piece)
End If
Next
End If
Return arraylisttostring(intersection)
End Function
Function arraylisttostring(ByRef array As ArrayList) As String()
Return DirectCast(array.ToArray(GetType(String)), String())
End Function
Function header(ByVal input As String, ByVal depth As Integer) As String
'Return ("=" * depth) + input + ("=" * depth)'this would've worked in Python *.*
Dim equals As String = "==================================="
Dim equalstoadd = equals.Substring(0, depth)
Return equalstoadd + input + equalstoadd
End Function
Sub reportoncat(ByVal currentdirectory As String, ByVal depth As Integer)
Dim Root As New DirectoryInfo(currentdirectory)
Dim Dirs As DirectoryInfo() = Root.GetDirectories()
'Find category real name
Dim rootname As String = Root.Name
rootname = directoryindex(rootname.Split("#")(0))
report += vbNewLine + header(rootname, depth) + vbNewLine
'check this cat's articles
Dim f As New IO.FileInfo(currentdirectory + "\0.txt")
If (f.Exists = True) Then
'read(File)
Dim pages As New ArrayList
'Read from file 'http://msdn.microsoft.com/en-us/library/db5x7c0d.aspx
Try
' Create an instance of StreamReader to read from a file.
' The using statement also closes the StreamReader.
Using sr As New StreamReader(currentdirectory + "\0.txt")
Dim line As String
' Read and display lines from the file until the end of
' the file is reached.
Do
line = sr.ReadLine()
If Not (line Is Nothing) Then
'Console.WriteLine("Adding " + line)
'pages.Add(line)
report += "* [[" + line + "]]" + vbNewLine
End If
Loop Until line Is Nothing
End Using
Catch e As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(e.Message)
End Try
End If
'Each subcat
For Each DirectoryName As DirectoryInfo In Dirs
Try
reportoncat(DirectoryName.FullName, depth + 1)
Catch E As Exception
Console.WriteLine("Error accessing")
End Try
Next
End Sub
Sub intersectcat(ByVal thecurrentdirectory As String)
Dim Root As New DirectoryInfo(thecurrentdirectory)
Dim Dirs As DirectoryInfo() = Root.GetDirectories()
'check this cat's articles
Dim f As New IO.FileInfo(thecurrentdirectory + "\articles.txt")
If (f.Exists = True) Then
'read(File)
Dim pages As New ArrayList
'Read from file 'http://msdn.microsoft.com/en-us/library/db5x7c0d.aspx
Try
' Create an instance of StreamReader to read from a file.
' The using statement also closes the StreamReader.
Using sr As New StreamReader(thecurrentdirectory + "\articles.txt")
Dim line As String
' Read and display lines from the file until the end of
' the file is reached.
Do
line = sr.ReadLine()
If Not (line Is Nothing) Then
'Console.WriteLine("Adding " + line)
pages.Add(line)
End If
Loop Until line Is Nothing
End Using
Catch e As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(e.Message)
End Try
'Now intersect them
''''''''''''''''''''''''''''Need .Net 4.0 for this
Dim intersection() As String
intersection = intersect(categorytochecktitles, pages)
pages = Nothing
'We now write the intresection to file
If intersection.Length > 0 Then
Dim x As New PageList(enWiki, intersection)
x.SaveTitlesToFile(thecurrentdirectory + "/0.txt")
End If
'categorytochecktitles.inte()
'ArrayA.Intersect(ArrayB).Any()
'Dim intersection =
End If
'Each subcat
For Each DirectoryName As DirectoryInfo In Dirs
Try
intersectcat(DirectoryName.FullName)
Catch E As Exception
Console.WriteLine("Error accessing")
End Try
Next
End Sub
Sub getcat(ByVal categoryname As String, ByVal thecurrrentdirectory As String)
Dim maintenancecategory, maintenancesubcategory As New PageList(enWiki)
maintenancecategory.FillFromCategory(categoryname)
maintenancesubcategory.FillSubsFromCategory(categoryname)
thecurrrentdirectory += "\" + catfilecounter.ToString + "#"
createandrecorddirectory(categoryname, thecurrrentdirectory)
For Each one As Page In maintenancesubcategory
one.RemoveNSPrefix()
Next
'Write articles to file in directory
If (maintenancecategory.Count > 0) Then
maintenancecategory.SaveTitlesToFile(thecurrrentdirectory + "\articles.txt")
Console.WriteLine("Saved files of category" + categoryname)
maintenancecategory = Nothing 'clear out category when done
End If
'Check the subcategories
For Each subcat As Page In maintenancesubcategory
Console.WriteLine("Getting subcategory: '" + subcat.title + " of '" + categoryname + "'")
getcat(subcat.title, thecurrrentdirectory)
Next
End Sub
Sub createandrecorddirectory(ByVal categoryname As String, ByVal thecurrentdirectory As String)
Dim piece As String
piece = catfilecounter.ToString + "#"
catfilecounter += 1
Directory.CreateDirectory(thecurrentdirectory) ' + "\" + piece)
Dim objWriter As New System.IO.StreamWriter(appbase + "\Category directory.txt", True) 'Append
objWriter.WriteLine(piece + categoryname) ' + vbNewLine)'it's appended
'Console.WriteLine("Writing...")
objWriter.Close()
End Sub
Sub quit()
Console.WriteLine("Press any key to quit...")
Console.ReadLine()
End
End Sub
Sub pause()
Console.WriteLine("Press any key to continue...")
Console.ReadLine()
End Sub
Sub exceptionquit(ByVal errorwith As String, ByVal ex As Exception)
Console.WriteLine(errorwith + ":" + ex.Message)
quit()
End Sub
End Module