中国DOS联盟

    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