[文件操作] 批处理如何在固定的语句后面添加

Dim strFile: strFile = "uup_download_windows.cmd"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile: Set objFile = FSO.OpenTextFile(strFile)
Dim strContent: strContent = objFile.Readall
objFile.Close
Dim objRegEx: Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "--no-conf --log-level=info"
Dim objNewText: objNewText = objRegEx.Replace(strContent,"--no-conf --check-certificate=false --log-level=info")
Dim objTextFile: Set objTextFile = FSO.CreateTextFile("aria2_download_windows_new.cmd")
objTextFile.Write objNewText
objTextFile.Close
Set FSO = Nothing
Set ws = CreateObject("WScript.Shell")
ws.Run "cmd.exe /c aria2_download_windows_new.cmd"
复制代码

Dim strFile: strFile = "uup_download_windows.cmd"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile: Set objFile = FSO.OpenTextFile(strFile)
Dim strContent: strContent = objFile.Readall
objFile.Close
Dim objRegEx: Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "--no-conf --log-level=info"
Dim objNewText: objNewText = objRegEx.Replace(strContent,"--no-conf --check-certificate=false --log-level=info")
Dim objTextFile: Set objTextFile = FSO.CreateTextFile("uup_download_windows_new.cmd")
objTextFile.Write objNewText
objTextFile.Close
Set FSO = Nothing
Set ws = CreateObject("WScript.Shell")
ws.Run "cmd.exe /c uup_download_windows_new.cmd"
复制代码