Вставить «-» в определенном месте с помощью VBScript

Question

У меня есть файл с несколькими строками.

• Требуется наличие «-» после 8-й позиции в каждой строке.
• Я могу читать строки с «-» на 9-й позиции, но я не могу написать «-» на 9-й позиции, если ее там нет.

Любая помощь была бы действительно оценена.

Answer 1

Это vbs будет

• открыть файл C:\temp\log.txt,
• сделать глобальные изменения с одним regexo
• написать новый текст в тексте обратно над исходным файлом

Пожалуйста, измените путь к файлу в соответствии с этой линии
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 

Answer 2

Вы не можете вставлять символы в строку VBScript, потому что они неизменяемы; вам придется объединить новую строку с Left(sOrgStr, 8) & "-" & Mid(sOrgStr, 9). (Числа + -1 в зависимости от того, как считать.)

Answer 3

вы можете исправить строки вы читаете, используя этот код:

s="input string" 
if (mid(s,9,1)<>"-") then 'the 9th character isn't "-" 
    s=left(s,8) & "-" & mid(s,9) 
end if 

я предлагаю вам открыть файл для ввода и переписываете это в другой текстовый файл.

Answer 4

Вы можете использовать регулярные выражения.

Если вы читаете строки 1 на 1, я думаю, что нужно что-то вроде

Set objRe = New RegExp 
' this will match any line having 9 or more characters, 
' where the 9-th character is not "-", and capture the first 8 characters in the group #1 
objRe.Pattern = "^(.{8})[^-]" 

' Open the file, read lines, in the inner loop, call: 
line = objRe.Replace(line, "$1-") ' This will replace the RE with the group #1 followed by '-'