Fatal编程技术网

Vbscript 覆盖异常

vbscript

Vbscript 覆盖异常,vbscript,Vbscript,我有一个VBScript-如果我运行它，我不希望它重复它正在替换的单词。我是否可以添加If语句来阻止它这样做 Option Explicit Const ForReading = 1 Const ForWriting = 2 Dim objFSO,objFile,strText,strNewText Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Users

我有一个VBScript-如果我运行它，我不希望它重复它正在替换的单词。我是否可以添加
If
语句来阻止它这样做

Option Explicit
Const ForReading = 1
Const ForWriting = 2
Dim objFSO,objFile,strText,strNewText
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\newtons\Desktop\Text.txt",ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "<Jim","<!--<Jim")

'<pseudocode>
IF "<!--<Jim" = EXIST THEN DO NOTHING
END IF
'</pseudocode>

Set objFile = objFSO.OpenTextFile("C:\Users\newtons\Desktop\Text.txt",ForWriting)
objFile.WriteLine strNewText
objFile.Close
set objFSO = Nothing
set objFile = 

选项显式
常数ForReading=1
写入常数=2
Dim objFSO、objFile、strText、strNewText
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFile=objFSO.OpenTextFile（“C:\Users\newtons\Desktop\Text.txt”，用于阅读）
strText=objFile.ReadAll
objFile.Close
strNewText=Replace（strText，您可以使用来检查
strText
是否包含“Jim”或“James”，并根据您真正想要实现的内容进行替换或保存


Replace（）
的文档解释了如何限制替换的数量-如果这正是您的“执行”/“重复”所暗示的

演示：


Replace
能否澄清“重复”部分？您正在将文件中的文本读取到变量中，将该变量中的所有“Jim”实例替换为“James”，然后将文件中的文本替换为该变量中的文本。问题出在哪里？如果我运行脚本x2=我需要，请查看我的编辑

>> WScript.Echo Replace("AA", "A", "a", 1, 1, vbTextCompare)
>>
aA
>>