[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 【已解决】VBS如何替换INI文本中指定内容?

本帖最后由 74520 于 2019-3-10 14:02 编辑

比如有一个“1.ini”文本,文本里面的内容如下:

[options]
resolutionheight = 这后面的数值是随机的,有可能是1、2、3、4、5
showwhims = 这后面的数值是随机的,有可能是1、2、3、4、5

我想直接用把它们设置成:

[options]
resolutionheight = 2
showwhims = 2

请问用VBS该如何写?希望得到帮助,谢谢大家

  1. If LCase(Right(WSH.FullName,12)) = "\wscript.exe" Then
  2.     CreateObject("WScript.Shell").Run "cmd /c cscript.exe -nologo """ & WSH.ScriptFullName & """&pause&exit"
  3.     WSH.Quit
  4. End If
  5. WSH.echo "代码可用,扫码头像,感谢赞助;有什么问题,可加QQ956535081及时沟通"
  6. Set fso=CreateObject("Scripting.FileSystemObject")
  7. file="1.ini"
  8. result=""
  9. Set f=fso.OpenTextFile(file,1)
  10. Do While f.AtEndOfStream<>true
  11.     line=f.ReadLine
  12.     arr=split(line,"=")
  13.     Select Case arr(0)
  14.         Case "resolutionheight " result=result & arr(0) & "= 2" & vbCrLf
  15.         Case "showwhims " result=result & arr(0) & "= 2"  & vbCrLf
  16.         Case Else result=result & line & vbCrLf
  17.     End Select
  18. Loop
  19. f.Close
  20. Set f=fso.OpenTextFile(file,2)
  21. f.Write result
  22. f.Close
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 2# zaqmlp


    感谢您的帮助,谢谢你

TOP

返回列表