I would be grateful for any help anyone can give with this VBS script. I originally just wanted to have a script which would cycle through a folder of HTML files and then list the title text of all the HTML files in an output file. I managed this then realized that what I really required as well was the ability to amend the title text, save the HTML file and output the amended text to the list in the output file.

I have managed, after a fashion, to cobble up this script which lets me view the text between the title tags [ie <title>text</title>], amend it and output the amended title text to a list in the outputfile. However, I'm now stuck because I still need to work out how to save each amended HTML file in the folder while using their original file name.



I am a newbie so my knowledge as yet is still quite limited and I put the script together using whatever samples I could find. I have searched for scripts which will cover this final stage I need to include but have drawn a blank.

Any help, pointers, script directions would be very welcome

Thank you

AltnNaMara

Apologies everyone I have attached the wrong script. Here is the correct one

AltNaMara

Hi MilesAhead thank you for your reply. I should have said that the error message quotes the error as arising at line 94 of the script ie "strFilePath = objFile.Name".

I can't figure out what is wrong as I thought that the same variable "objFile.Name" would be used as this time writing to the file is being called

Thank you

AltNaMara

Hello AltNaMara

I'm sorry for the late response,
but here is a script which I hope does what you want.
If there are other questions, just ask.
I will do my best to answer it.
I have omitted the text file Totals.txt.
If you still want to have it, I can work something out.


Sweet


____________________


Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='J:\VBS-Data_Analysis'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In colFiles
If objFile.Extension = "html" Then
Set objFile = objFSO.OpenTextFile(objFile.Name, ForReading)
strContents = objFile.ReadAll
objFile.Close
strStartText = "<title>"
strEndText = "</title>"
intStart = InStr(strContents, strStartText)
intStart = intStart + Len(strStartText)
intEnd = InStr(strContents, strEndText)
intCharacters = intEnd - intStart
strCount = Mid(strContents, intStart, intCharacters)
MsgBox strCount
Message = "Please Enter New Title "
Text1 = "User input canceled "
Text2 = "You entered: " & vbCrLf
result = InputBox(Message)
If result = "" Then
MsgBox Text1
Else
MsgBox Text2 & result
End If
Set oFSo = CreateObject("Scripting.FileSystemObject")
Set sptF = oFSo.CreateTextFile("J:\VBS-Data_Analysis\" & result & ".html", True)
OstrNewText = Replace(strContents, strCount, Result)
sptF.WriteLine OstrNewText
sptF.Close
strText = strText & strCount & vbCrLf
End If : Next


____________________

Hi Sweet, apologies for the delay in responding but this is the first chance I have had to have a look. A thousand thanks for your script! It successfully puts the "amended text" between the title tags in the HTML files, something I couldn't achieve on my own! However, the resultant HTML file is saved using the "amended text" as the file name instead of the original HTML file name. I have had a look but wasn't able to figure out how to do it. I could certainly get round it by using a batch renamer on all the HTML files in the folder but I would be really grateful if you could amend the script for me.

Many thanks

AltNaMara

Hi AltNaMara

First take a look at the script I've attached.
It also creates a folder called Totals in the folder VBS-Data_Analysis,
and then places the text files (With date and time in the filename), containing information about the changed titles,
in the folder Totals.

I suppose you only want to change the title of the HTML file, without creating a new file.
I'll see what I can cobble together, but now I dive into my bed,
because it's getting late.

Sweet