if WScript.Arguments.Count <> 0 Then
        myFile = Wscript.Arguments(0)
else
    SET oFO = CreateObject("SAFRCFileDlg.FileOpen")
            oFO.OpenFileOpenDlg
            myFile = oFO.FileName
end if
        
     strOld = InputBox("输入T001:")
     if Len(Trim(strOld)) = 0 then Wscript.Quit
        strNew = InputBox("输入修改的套账格式为TXXX:")
     if Len(Trim(strNew)) = 0 then Wscript.Quit
        
with CreateObject("Scripting.FileSystemObject")
    SET FILE = .OpenTextFile(myFile,1,true)
            fStr = FILE.Readall
        FILE.Close
        fStr = Replace(fStr,strOld,strNew,1,999999999)
    SET FILE = .OpenTextFile(myFile,2,true)
        FILE.Write fStr
end with


我想修改成能够替换两个的代码，还有就是第一次的能不能不用输入直接设置成我想要的默认字符啊

if WScript.Arguments.Count <> 0 Then
        myFile = Wscript.Arguments(0)
else
    SET oFO = CreateObject("SAFRCFileDlg.FileOpen")                  '定义打开文件的对话框
            oFO.OpenFileOpenDlg
            myFile = oFO.FileName                                    '得到打开的文件的文件名
end if
        
     strOld = InputBox("输入T001:")                                  '要求输入原来的内容
     if Len(Trim(strOld)) = 0 then Wscript.Quit                      '没输入则结束脚本运行
        strNew = InputBox("输入修改的套账格式为TXXX:")               '要求输入新的内容
     if Len(Trim(strNew)) = 0 then Wscript.Quit
        
with CreateObject("Scripting.FileSystemObject")
    SET FILE = .OpenTextFile(myFile,1,true)                          '打开文件
            fStr = FILE.Readall                                      '读取所有的内容
        FILE.Close               
        fStr = Replace(fStr,strOld,strNew,1,999999999)               '替换
    SET FILE = .OpenTextFile(myFile,2,true)
        FILE.Write fStr                                              '保存文件
end with


1、我想修改成能够替换两个的代码。
重复执行 输入内容和 规划部分就可以了。
2、第一次的能不能不用输入直接设置成我想要的默认字符啊
把输入原字符那里直接加默认字符到命令行

 InputBox（提示，标题，默认内容，坐标X，坐标Y，帮助文件，限制输入字符个数）      这是 VB6 里的提示，VBS 最少前面三个没问题。没测试过。