OK, here is the best I can do in VBS right now. For this version of the code you specify the name of the FOLDER that you want to work with as the variable CFN on line 14.
It
will process all .htm and .html files in the root of that folder, not dealing with subdirectories.
It
will handle the last two of your 3 criteria:
It will remove the Advert
It will add the text "thumbs\" where appropriate before _small images. It doesn't perform that change twice.
It
will not move the thumbnail images as that is a task I believe can be better handled within Windows Explorer. It's also a task that didn't integrate nicely with the rest of the script and would be just another place for problems to creep up.
It
will fail to identify and process images where the _small.jpg is not entirely in lowercase. The technique I believe I could use to correct for this involves creating a copy of the file entirely in upper or lower case, and this horrifically increases the overall processing time. I guessed that if the pages have been made by a computer system this critical string should be entirely lowercase (or at least consistently cased) on every page anyway, so this possible issue should not arise. If for example every instance is actually "_Small.JPG" then you just have to change line 13 to reflect that.
While I have tested this script as best I can on my own computer, I strongly advise that you make a backup copy of your files before executing the code. Perhaps that is merely a nerd's paranoia for backups talking, but I don't want to be responsible for worsening any situation I join to try to help.
However, I do not know how to execute this command in a specific directory. Can I do this by simply creating a text document containing that syntax and naming it 'thumbs.cmd' then placing it in the relevant directory before double clicking it? Would this code automatically work within Windows 7 or would I have to install some program? That's pretty much a total guess from me but perhaps demonstrates my current understanding of this. But if I can figure out how to execute the code that creates the thumbs directory I should be able to work on the rest with more confidence.
In order to run the script you first need to Open Notepad.
Copy and Paste the contents into the Notepad Window.
Modify Line 14 to point to the folder in which your HTML files are found.
From Notepad Click File and Save as.
Save as any appropriate name ending with .vbs
Double-click the .vbs file to run it.
Although working on 3 mini pages on my machine it was near-instantaneous the program may take a while to complete if you have a lot of long HTML files. Once Finished it will beep and pop up a list of all pages processed.
Dim CFN ' Current Folder Name
Dim CF ' Current Folder, Object
Dim FileNames ' Array of File names in current folder.
Dim FN ' Name of the file. Will be passed from Batch.'
Dim ParseFile ' Entire contents of the HTML file'
Dim TS ' The string constant "_small.jpg"'
Dim FS ' Numeric location of the string TS in UnParsedFile'
Dim FQ ' Numeric Location of the quote mark " before _small.jpg.'
Dim LFS ' Last location of the end of the last TS found'
Dim AllFileNames ' Records all files that have been processed.'
Dim DelStr ' ornj advert to remove'
DelStr = "<p class="+chr(34)+"footnote"+chr(34)+">Photo album created with <a href="+chr(34)+"http://www.ornj.net/"+chr(34)+">Web Album Generator</a></p>"
TS = "_small.jpg"
CFN = "C:\Users\Josiah\Desktop"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set CF = objFSO.GetFolder(CFN)
Set files = CF.Files
' Outside loop, loops through files'
For each objFile In files
FN = objFile.name
' Checks for HTML extension'
If Ucase(right(FN,4)) = ".HTM" or UCASE(right(FN,5)) = ".HTML" then
LFS = 1
Set objFile = objFSO.GetFile(FN)
Set objReadFile = objFSO.OpenTextFile(FN, 1)
ParseFile = objReadFile.ReadAll
objReadFile.Close
'Scans for _small.jpg and prepends "thumbs\" to the file name'
Do
FS = Instr(LFS, ParseFile, TS)
If FS > 0 then
FQ = FS
Do
FQ = FQ - 1
Loop until mid(ParseFile, FQ, 1) = CHR(34)
If not mid(Parsefile, FQ+1,5) = "thumbs\" then
ParseFile = left(ParseFile, FQ) + "thumbs\" + right(ParseFile, len(ParseFile) - FQ)
end if
LFS = FS + 17
end if
Loop until FS = 0
'Gets rid of the Ornj advert'
Do
FQ = Instr(1, ParseFile, DelStr)
If FQ > 0 then
If len(ParseFile) > FQ + Len(DelStr) then
ParseFile = left(ParseFile, FQ - 1) + Right(Parsefile,len(ParseFile) - FQ - Len(DelStr) - 1)
else
ParseFile = left(ParseFile, FQ - 1)
end if
end if
Loop until FQ = 0
' Writes the modified file contents back into place'
Set objFile = objFSO.OpenTextFile(FN, 2, True)
objFile.writeline(ParseFile)
' Records this file in a variable as having been processed'
AllFileNames = AllFileNames + vbCrLf + FN
End if
Next
'Identifies which files have been modified'
Wscript.Echo "File Parse Complete" + vbCrLf + AllFileNames
Edited by JosiahK, 22 December 2010 - 07:28 PM.
Back to top
