# Re: 有关ODBC使用方法--非常紧急

Posted by 阿毛 on April 16, 1999 at 23:43:31:

In Reply to: 有关ODBC使用方法--非常紧急 posted by KILLY on April 15, 1999 at 16:00:34:

: hi~
: 由于我必须抓别台电脑的一个.txt档.
: 所以我想到的方法,就是使用ODBC.然后连到该pps.txt档
: 连资料库我会..可是怎么连txt档呢..
: set fs=CreateObject("ADODB.Connection")
: set a =
: ^^^^^^^^^^^^^^^^^^^^^^
: 这边该怎么写呢???
: thisline=a.readline

你要读的这个pps.txt 档作用为何??
只是读取资料??(单纯的读出来没有Seek等动作)
那用FileSystemObject不好吗??
给你一段程式码参考一下...
Private Function ReadFromTextFile(strFileName As String)
Dim FSO
Dim tmpString
Dim NowGetChar As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set tmpString = FSO.OpenTextFile(strFileName)

Do While tmpString.AtEndOfStream <> True
NowGetChar = tmpString.ReadLine

Loop
tmpString.Close
End Function

Follow Ups: