我有一个文本文件，我想把文件里的文件按行读取？

[好人乎乎]

我有一个文本文件，我想把文件里的文件按行读取？

[射天狼]

dim strTmp as string , strArray() as string

open "C:\aa.txt" for input as #1
strtmp=strconv(inputb(lof(1),#1),vbuncode)
close #1

strarray=split(strtmp,vbcrlf)'将文件内容放到数组里，一个数组元素带表一行数据

[lyjlee]

Private Sub Form_Load()
Dim strTmp As String, strArray() As String

Open "C:\aa.txt" For Input As #1
Do While Not EOF(1)
Debug.Print Input(LOF(1), #1)
Loop
Close #1
End Sub

[captainivy]

Dim tem_line As String
Open FileName For Input As #1 '打开指定文件路径的文件
Do Until EOF(1) '判断文件是否读完
Line Input #1, tem_line '按行读取
Print tem_line
Loop
Close '关闭文件

[liuliang1020]

fso

readline

[hhjjhjhj]

http://expert.csdn.net/Expert/TopicView1.asp?id=2388661