CODE: [Copy to clipboard]
SFile = GetFileName()
Msg = "替换字符格式为:" & vbtab & "str1:=str2" & vblf
Msg = Msg & "省略str2可以删除str1"
Str = inputbox(Msg,"输入要插入的字符:")
if len(Str) = 0 then Wscript.Quit
'先把文件读到StrOld中,然后把处理后的字符串StrNew写回到文件
with CreateObject("Scripting.FileSystemObject")
set F = .OpenTextFile(SFile,1,True)
StrOld = F.ReadAll
set F = Nothing
set F = .OpenTextFile(SFile,2,True)
if len(Str) > 1 and instr(Str,":=") then
StrArray = split(Str,":=")
StrNew = Replace(StrOld,StrArray(0),StrArray(1))
else
StrNew = InertStr()
end if
F.Write(StrNew)
end with
'插入字符函数,依次读入每个字符并判断是否为空格,回车,换行
Function InertStr()
for i = 1 to len(StrOld)
if mid(StrOld,i,1) = space(1) or _
asc(mid(StrOld,i,1)) = 13 or _
asc(mid(StrOld,i,1)) = 10 then
strTmp = strTmp & mid(StrOld,i,1)
else
strTmp = strTmp & mid(StrOld,i,1) & Str
end if
next
InertStr = strTmp
End Function
'获得被操作文件名
Function GetFileName()
if WScript.Arguments.Count <> 0 Then
GetFileName = Wscript.Arguments(0)
else
with CreateObject("UserAccounts.CommonDialog")
.Filter = "文本文件|*.txt|所有文件|*.*"
.ShowOpen
GetFileName = .Filename
end with
end if
if len(trim(GetFileName)) = 0 then Wscript.Quit
End Function
保存为 字符处理.vbs 后把要处理的文件拖到它上面或直接双击运行都可以,在弹出的对话框中输入你想插入的符号。