Board logo

标题: [问题求助] vbs判断文本中指定字符串是否存在，不存在则追加写入 [打印本页]
作者: yuanyannian    时间: 2014-10-22 07:34     标题: vbs判断文本中指定字符串是否存在，不存在则追加写入

本帖最后由 pcl_test 于 2016-7-27 20:44 编辑

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

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

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

要求：追加写入。

谢谢！！！
作者: pcl_test    时间: 2016-9-7 15:58

  1. Set fso = CreateObject("Scripting.FileSystemObject")

  2. inifile = "F:\aaa\bbb\aaa.ini"

  3. folder = left(inifile,InStrRev(inifile,"\"))

  4. 

  5. If right(folder,1) <> "\" Then folder=folder&"\"

  6. arr = Split(folder, "\")

  7. subfolder = arr(0)

  8. For i = 1 To UBound(arr)-1

  9.     subfolder = subfolder & "\" & arr(i)

  10.     If Not fso.FolderExists(subfolder) Then fso.CreateFolder(subfolder)

  11. Next

  12. 

  13. If Not fso.FileExists(inifile) Then

  14.     fso.CreateTextFile(inifile, 2).Write("[abcd]"&vbCrLf&"abcd=xyz")

  15. Else

  16.     Set f = fso.OpenTextFile(inifile, 1)

  17.     text = f.ReadAll()

  18.     f.Close()

  19.     If InStr(text,"[abcd]")< 1 Then

  20.         fso.OpenTextFile(inifile, 8).Write("[abcd]"&vbCrLf&"abcd=xyz")

  21.     End If

  22. End If
复制代码




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2