2
我很抱歉我的英語語言太差
我想用VB編輯文件,如果必須在文件中的單詞不存在。 當執行這個文件,我想如果條件是真的什麼都不做,但所有的文件內容都被抹掉了。 請幫助我。vb腳本如果語句
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\path\to\file.html", ForReading)
strText = objFile.ReadAll
objFile.Close
strSearchFor = "this word must to exist"
If InStr(1, strText, strSearchFor) > 0 then
'do nothing
else
strNewText = Replace(strText,"this word must to delete","this word must to exist")
End If
Set objFile = objFSO.OpenTextFile("C:\path\to\file.html", ForWriting)
objFile.WriteLine strNewText
objFile.Close
tanx wicky它的真實 – mini323 2015-03-03 07:03:01
@ mini323這個答案可以接受嗎? – mhs 2015-03-03 07:30:49
是啊我的代碼現在正在工作 – mini323 2015-03-03 10:16:46