Question

I have a file which has multiple lines.

• It is required to have “-” after 8th position in every line.
• I can read lines with “-” at 9th position, but I am not able to write “-” at the 9th position if it is not there.

Any help would be really appreciated.

Answer 1

This vbs will

• open a file C:\temp\log.txt,
• make a global change with a single regexo
• write the new updated text back over the original file

Please change the path to your file to suit in this line
StrFileName = "C:\temp\log.txt"

Const ForReading = 1    
Const ForWriting = 2
Dim objFSO
Dim objTF
Dim objRexex
Dim StrFileName
Dim strTxt

StrFileName = "C:\temp\log.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTF = objFSO.OpenTextFile(StrFileName, ForReading)
Set objregex = CreateObject("vbscript.regexp")
strTxt = objTF.ReadAll
objTF.Close
With objregex
    .Global = True
    .MultiLine = True
    .Pattern = "^(.{8})[^-](.*)$"
    strTxt = .Replace(strTxt, "$1" & "-" & "$2")
End With

Set objTF = objFSO.OpenTextFile(StrFileName, ForWriting)
objTF.Write strTxt
objTF.Close