中国DOS联盟

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

Originally posted by zh159 at 2008-1-8 00:40:
适用于文本数据库

Set fso = CreateObject("Scripting.FileSystemObject"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">

Set f = fso.OpenTextFile("Test.txt",1)

While not f.AtEndOfStream

  strR = f.ReadLine

  i ...