If it were not for the spammer. I’ve got a new rev of Camera Control nearly ready to release but have spent all my “free” time today cleaning up.
Wrote this VBA code which helped a bit to clean up the posts table:
' Manipulating a text file with VBA
' Loops through text file and creates revised one
' This code requires a reference (Tools > References) to Microsoft Scripting Runtime
' based on a sample here: http://www.ozgrid.com/forum/showthread.php?t=61822
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)
Loop
FSOFile.Close
FSOFileRevised.Close
Else
MsgBox (FilePath & " does not exist")
End If
But the spammer was not entirely consistent or correct in his html coding, so I still had to remove a lot by hand. If you see any left over spam links in old posts please do drop me a comment. Thanks.
I’m going to bed now as it is really late (yet again) but here are a list of the changes so far in my 4.2 development version:
' 4.2 changes
'
' save raw/jpg value between session
' fix raw/jpg bug where wrong type is used if not explicitly selected
' improved Time Lapse time gap calculation
' correctly save/load registry settings first time when they don't already exist
' make preview size saved
' more preview size options such as 50%/100%
' simple viewer to let you preview previous shots
' save the tethering status
' fix which should allow negative expo comp in vista
' made bracketing work in manual mode by using changes in shutter speed
' primitive mark/unmark selected images using file renames (marked will be first when shorted by filename)