读写文本文件的问题？？急

Question

楼上的办法不错啊！不过如果你是用的统一分隔符号的话，可以用split()函数将内容转成数组，然后将array(0)和array(2)即可！

Answer 1

读出一行数据，存入sTemp中
Mid(sTemp,instr(1,sTemp,"="))

Answer 2

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    dim str as string
    dim i as integer
    dim index as integer    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile ( "c:\testfile.txt",ForReading ,TristateFalse)
    str=f.ReadLine
    
    str=f.ReadLine
    i=instr(1,str,"=")
    index=cint(mid(str,i+1))
    
    str=f.ReadLine
    i=instr(1,str,"=")
    left=cint(mid(str,i+1))
    
   ....
    f.Close
End Sub

Answer 3

何不把这个文本文件写成xml格式？
用ado 2.6（好象2.1也可以）的recordset对象就可以读取
不仅格式严谨，还不容易出错要示例吗？给我写邮件[email protected]

Answer 4

同意楼上的说法但不需要转成XML文件,文本文件ADO一样可以连接读出记录集后,再用MID函数取得想要的字符串

Answer 5

那多麻烦啊，还要用mid函数找来找去的