Tag: spammer

Dim FSO As FileSystemObject
Dim FSOFile As TextStream, FSOFileRevised As TextStream
Dim FilePath As String, FilePathRevised As String
Dim l As String
Dim i, j As Long
Dim tagName As String
Dim spamStart As Long
Dim spamLength As Long
Dim spamtext As String
Dim linecounter As Integer

FilePath = "C:\wp_posts.sql" ' create a test.txt file or change this

' adds "_Revised" to your file name
FilePathRevised = Left(FilePath, Len(FilePath) - 4) & "_Revised" & Right(FilePath, 4)
linecounter = 0
Set FSO = New FileSystemObject
If FSO.FileExists(FilePath) Then
' opens the file for reading
Set FSOFile = FSO.OpenTextFile(FilePath, 1, False)
' opens "revised" file in write mode
Set FSOFileRevised = FSO.OpenTextFile(FilePathRevised, 2, True)
Do While Not FSOFile.AtEndOfStream

l = FSOFile.ReadLine
linecounter = linecounter + 1
' write maniplulation code here
' code to remove the spam links with style display:none from a wordpress
' wpaa3a_posts table.

' normalize space or no space in the style
l = Replace(l, "display: none", "display:none")

' keep working until they are all gone
Do While (InStr(l, """display:none") > 0)

i = InStr(l, """display:none")
j = i
' scan left to work out what the tag is
Do While (Mid(l, i, 1) <> "<") And (i > 1)
i = i - 1
DoEvents
Loop
If i = 1 Then
Debug.Print "Error, can't complete"
Stop
End If
tagName = ""
spamStart = i
i = i + 1

Do While Mid(l, i, 1) <> " "
tagName = tagName + Mid(l, i, 1)
i = i + 1
DoEvents
Loop

'ok got the tag so find the close
spamLength = InStr(Mid(l, spamStart, 9999999), "/" + tagName) + Len(tagName) + 1

spamtext = Mid(l, spamStart, spamLength)

l = Replace(l, spamtext, "")
'Debug.Print spamtext
'Debug.Print linecounter

DoEvents
Loop

FSOFileRevised.WriteLine (l)