vb script if statement

Question

Мне очень жаль, мой английский язык слишком плохой
Я хочу отредактировать файл с 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 

Answer 1

это becouse strNewText будет null если ваши условия истинны. и все еще заменяйте strText пустым strNewText. Держите свои работы в стороне if(). поэтому он решит проблему.

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") 

     Set objFile = objFSO.OpenTextFile("C:\path\to\file.html", ForWriting) 
     objFile.WriteLine strNewText 
     objFile.Close 
    End If