vb 读取文本文件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/20 11:33:11
文件 c:\chengxujiance.txt 内容如下
[检测程序]
1aa.exe
c:\1aa.exe
[检测程序]
2bb.exe
c:\2bb.exe
[检测程序]
3cc.exe
c:\3cc.exe
……

我想当读取到[检测程序]这个字符串的时候就把下面的进程名称给一个变量然后在把路径给另一个变量，然后在接着读取 一直到读完为止，我把这段程序放在一个Timer1控件里的。但是每次运行后他只能检测到1aa.exe
c:\1aa.exe 这两段字符。请问高手门有什么办法解决 请附加 代码啊。
这个文本里不只是这写字符串还有其他的比如 ip 和网卡地址。
Timer1.Interval 30秒。
我想的是当读到1aa.exe的时候就检测下进程里有没有这程序，至于检测进程的我已经做好了。检测完后在接着向下读，这样一个变量还不够吗。

给你个简单思路...首先把文件所有内容读取到变量strFile

Dim arrFile, arrExe, i, j
arrFile = Split(strFile, "[检测程序]") '拆分到数组
For i = 0 To UBound(arrFile) '循环
If Len(arrFile(i)) > 0 Then
arrExe = Split(arrFile(i), vbCrLf) '按回车符号拆分
For j = 0 To UBound(arrExe)
'到这一步,arrExe里面的每一项都是你要的exe,随便你怎么检测
Debug.Print arrExe(j)
Next
End If
Next

private sub Timer1_Timer()
Static strInput$
Static k&
Open "要打开的文件.txt" For Input As #1
Seek #1,k+1
Line Input #1, strInput
k = k + LenB(Trim(strInput))
If EOF(1) Then Timer1.Enabled = False
Close #1
end sub
上述只是个方法...其实还是建议用循环读取..
可以通过设置文件指针用静态变量读取...
呵呵..上述代码问题很多.这里只是给你个思路.

Timer1.Interval=30000应该不是时间间隔的问题了

1.你没用循环
2.你有那么多字符串要保存，你就用一个变量保存？？
====================================================