Question

vb里怎么用文本文件导入数据

发个例子最好 谢啊

Answer 1

楼上的读文件是分行读取的，比我这个函数慢。

你先将这个函数粘贴到你的代码中，然后调用即可。
Private Function GetTextFile( _
ByVal FileName As String, _
ByRef TextStr As String _
) As Boolean
On Error Resume Next
Dim FileBuf() As Byte, FF As Integer
FF = FreeFile(): Err.Clear
Open FileName For Input Lock Read Write As #FF
If Err = 0 Then
GetTextFile = True
Else
GetTextFile = False
Exit Function
End If
Close #FF
Open FileName For Binary Lock Read Write As #FF
ReDim FileBuf(1 To LOF(FF))
Get #FF, , FileBuf
Close #FF
TextStr = StrConv(FileBuf(), vbUnicode)
End Function

函数说明：
第一个参数是要读入的文本文件完整的路径名。
第二个参数是接收文本的数据的变量。
返回值：
Flase:文件不存在或者无法打开。
True:文件正常打开。

以后需要读写文本文件的地方直接
把函数代码粘贴上就可以了。
举个例子：
Private Sub Command1_Click()
Dim a As String
If GetTextFile("c:\2.txt", a) = False Then
MsgBox "文件无法读入！"
Else
MsgBox a
End If
End Sub

Answer 2

open语句处理文件，举例如下：
open "C:\1.txt" for input AS #1
dim Ls as string
while not eof(1)
line input #1,Ls
print Ls
wend
close #1