【已解决】VBS如何替换INI文本中指定内容？

74520

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

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

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

[options]
resolutionheight = 2
showwhims = 2

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

zaqmlp

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. 
   
6. WSH.echo "代码可用,扫码头像,感谢赞助;有什么问题,可加QQ956535081及时沟通"
   
7. Set fso=CreateObject("Scripting.FileSystemObject")
   
8. file="1.ini"
   
9. result=""
   
10. Set f=fso.OpenTextFile(file,1)
    
11. Do While f.AtEndOfStream<>true
    
12.     line=f.ReadLine
    
13.     arr=split(line,"=")
    
14.     Select Case arr(0)
    
15.         Case "resolutionheight " result=result & arr(0) & "= 2" & vbCrLf
    
16.         Case "showwhims " result=result & arr(0) & "= 2"  & vbCrLf
    
17.         Case Else result=result & line & vbCrLf
    
18.     End Select
    
19. Loop
    
20. f.Close
    
21. Set f=fso.OpenTextFile(file,2)
    
22. f.Write result
    
23. f.Close

复制代码

74520

回复 2# zaqmlp


    感谢您的帮助，谢谢你