[问题求助] vbs判断文本中指定字符串是否存在，不存在则追加写入

yuanyannian

感谢论坛中老师的无私帮助！！现有新问题求助：

比如文件夹 F:\aaa\bbb 中，如果存在文件 aaa.ini，
判断或查找 aaa.ini 中是否存在字符串（或行）“[abcd]”，如果不存在字符串（或行）“[abcd]”，就追加写入该字符串（或行），
判断或查找 aaa.ini 中是否存在字符串（或行）“abcd=xyz”，如果不存在字符串（或行）“abcd=xyz”，就追加写入该字符串（或行）。

如果不存在文件 aaa.ini，则创建该文件，并追加写入上述字符串（或行）。

要求：追加写入。

谢谢！！！

pcl_test

Set fso = CreateObject("Scripting.FileSystemObject")
inifile = "F:\aaa\bbb\aaa.ini"
folder = left(inifile,InStrRev(inifile,"\"))

If right(folder,1) <> "\" Then folder=folder&"\"
arr = Split(folder, "\")
subfolder = arr(0)
For i = 1 To UBound(arr)-1
    subfolder = subfolder & "\" & arr(i)
    If Not fso.FolderExists(subfolder) Then fso.CreateFolder(subfolder)
Next

If Not fso.FileExists(inifile) Then
    fso.CreateTextFile(inifile, 2).Write("[abcd]"&vbCrLf&"abcd=xyz")
Else
    Set f = fso.OpenTextFile(inifile, 1)
    text = f.ReadAll()
    f.Close()
    If InStr(text,"[abcd]")< 1 Then
        fso.OpenTextFile(inifile, 8).Write("[abcd]"&vbCrLf&"abcd=xyz")
    End If
End If
复制代码