
CODE: [Copy to clipboard]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.Close
| Quote: | |
|

| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |