再次请教VB高手

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:17:53
1.本人想弄一个按钮，单机此按钮，过10秒后再运行“1.exe”
2.有一个“1.xml”文件，里边有“gou="5"”、“gou="103"”等一些赋值语句，现在，本人想弄一个按钮，单击此按钮后，把所有的“gou”都赋值为“66”，即全部改为“gou="66"”。
好的追加分。
二楼的朋友，你要清楚的是，“1.xml”文件里有N个不同的“gou”赋值，而且是各不相同的，你要查找替换，那就得先知道所赋数值啊……

1.

放一个Timer,名为timDelay，interval=1000,enabled = false

然后代码：
private sub command1_click() '延迟10秒
timdelay.enabled = true
end sub

private sub timdelay_Timer()
static c as integer
c = c + 1 '增加1秒
if c = 10 then '到时间了
shell App.Path & "\1.exe" '运行
c = 0 '重置
timdelay.enabled = false
end if
end sub

2.VB真不舒服，没有一个字符一个字符读取的……
模拟思维，你看起来应该很清楚，速度也是不错的。

Dim t As String, f As Integer
Dim ls As String, als As String, i As Long
Open App.Path & "\1.xml" For Input As #1
Do Until EOF(1)
Line Input #1, ls
als = als & ls & vbCrLf
Loop
Close #1
'以上代码是全部读取原来内容

Open App.Path & "\1.xml" For Output As #1
For i = 1 To Len(als)
t = Mid(als, i,