如何一行一行的读文本文件？

Question

Dim FileNumber
Dim Lstr as String
FileNumber = FreeFile   ' 取得未使用的档案代码。
Open "TEST" For input As #FileNumber
Do While Not EOF(FileNumber)
   Line Input #FileNumber, Lstr
   Text1.Text = Text1.Text + Lstr + Chr(13)+Chr(10)
Loop
Close #FileNumber

Answer 1

playyuer(女㊣爱)　
能否详细点？

Answer 2

先用二进制形式打开，读取其中一段（结尾那一字节的Ascii值最好为十三），Ascii值为十三的就是换行标志，接着做你要干的事情，然后读取下一段……

Answer 3

VB程序员之家  返回首页 
原有信息:
序 号:17234
标 题:网狐叫我写的程序：“将一个文本文件读入TEXTBOX，然后写入另外一个文件，要求完全一样”。 (547字)
发信人:垃圾
时 间:2000-10-24 9:36:02
阅读次数:11
详细信息:呵呵，简单啊…… 
Option Explicit Dim FileLength As Long 
Dim FileContent() As Byte 
Dim FileName As String Private Sub Command1_Click() 
    
    FileName = "c:\test.txt" 
    
    FileLength = FileLen(FileName) 
    ReDim FileContent(FileLength - 1) 
    Open FileName For Binary As #1 
    Get #1, , FileContent 
    Close #1 
    Text1 = StrConv(FileContent, vbUnicode) 
    
End Sub Private Sub Command2_Click() 
    FileName = "c:\test2.txt" 
    Open FileName For Binary As #1 
    Put #1, , FileContent 
    Close #1 
End Sub --------------------------------------------------------------------------------
相关信息:网狐叫我写的程序：“将一个文本文件读入TEXTBOX，然后写入另外一个文件，要求完全一样”。 (547字)(垃圾 10-24 9:36 阅读 11)
哈哈，你的方法读写本身并未经过text1，不信你用print #1,,text1.text保存就变了：) (空)(网狐 10-25 9:33 阅读 0)

Answer 4

log文件，需要一条一条读出来分析，又没有太多的规律，所以不能倒到数据库中

Answer 5

Public Function OpenTextFile(Filename As String) As String
On Error Resume Next
If Dir(Filename) = "" Then Exit Function
Close #1
Dim a$, b$
Open Filename For Input As #1
Line Input #1, b$
Do While Not EOF(1)
Line Input #1, a$
b$ = b$ & Chr(13) & Chr(10) & a$
Loop
Close #1
OpenTextFile = b$
End Function

Answer 6

菜单——〉工程——〉引用——〉Microsoft Scripting RunTime
然后加下面一段代码：
Dim fs As New FileSystemObject
Dim f As TextStream
Private Sub Form_Load()
Set f = fs.OpenTextFile("filename")     '  filename时所选择的文件名（包括路径）
Dim a As String
Do Until f.AtEndOfStream = True
    a = f.ReadLine
    'a是所要读的行
Loop
f.Close这样就可以实现了！
是不是可以给分了？

Answer 7

ipman(吃饭是为了能继续战斗下去)：你要读的log文件是Gateway生成的吗？