联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("Test.txt",1)
While not f.AtEndOfStream
strR = f.ReadLine
if instr(strR,"AA") > 0 Then
strR = Split(strR,"(")
str = Split(strR(1),")")
msgbox str(0)
End If
Wend
f.CloseOriginally posted by zh159 at 2008-1-8 00:40:
适用于文本数据库
Set fso = CreateObject("Scripting.FileSystemObject"
Set f = fso.OpenTextFile("Test.txt",1)
While not f.AtEndOfStream
strR = f.ReadLine
i ...
