VB高手进，小弟俺想用一个按钮实现这功能

来源：百度知道 编辑：UC知道 时间：2024/06/05 11:26:05
我想问问
我有一个“01.xml”文件
我想将里边的“shock="99" ”改为“shock="0"”，改完后马上运行同目录下得“01.exe”文件，用一个按钮完成，这个按钮的代码应该怎么写？

我的思路是（这按钮的功能）
1.先用VB打开“01.xml”文件
2.查找“shock="99"”
3.修改“shock="99"”为“shock="0"”
4.保存“01.xml”文件
5.运行“01.exe”文件

不知哪位高手帮我实现这……

private sub command1_click()
dim als as string,ls as string

'Read XML
open app.path & "\01.xml" for input as #1
do until eof(1)
line input #1,ls:als=als & ls & vbcrlf
loop
close #1

'Replace it
als = replace(als,"shock=""99""","shock=""0""")
als = left(als,len(als)-1)

'Write XML
open app.path & "\01.xml" for output as #1
print #1,als
close #1

'Run EXE
shell app.path & "\01.exe"
End Sub

Private Sub Command1_Click()
Set e = CreateObject("scripting.filesystemobject")
t = e.opentextfile("01.xml")
u = e.createtextfile("01.xml")
u.writeline (Replace(t.readall, "Shock=""99""" & vbCrLf, "Shock=""0""" & vbCrLf))
u.Close
Set wsh = CreateOb