如何用vb逐字符读文本文件

Question

我有个一unix平台下的文本文件，换行是用的一个换行符（0A），而不象window下的使用一个回车(0D)和一个换行(0A)进行换行的，用vb的逐行读取，识别出来是就是整个文本文件就是一行，所以就不能使用vb的逐行读取文本文件了。不知道vb有什么方法读取我这个文件，（逐行读取）。
谢谢！

Answer 1

split(str,chr(10)) 
返回的数组就是每一行
  
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

Answer 2

800M的文件呢，变成一个str有点过分了吧

Answer 3

1，把文本文件的内容一行一行地读入文本框。
text1.text=""
open "myfile.txt" for input as #1
do while not eof(1)
line input#1,inputdata
text1.text=text1.text+inputdata+vbcrlf
loop
close #1
2,把文本文件的内容一次性读入文本框text1.text=""
open "myfile.txt"for input as #1
text1.text=input(lof(1) ,1)
close #1
3,把文本文件的内容一个字符一个字符地读入文本框。
dim inputdata as string *1
text1.text=""
open "myfile.txt" for input as #1
do while not eof(1)
inputdata=(1,#1)
text1.text=text1.text+inputdata
loop
close #1
----------
www.vicmiao.com
努力就有美好时光！

Answer 4

不好意思，本人vb比较水，您说的一次读1M我不知道怎么读，您说的手动拆分是说用split吗？
劳请简单代码提示，实在不好意思

Answer 5

800M的文件 用hn123的方法铁定死机......

Answer 6

Dim lngJ            As Long             '一行的BYTE数
    Dim intFileNo       As Integer          '当前处理的文件号
    Dim btTemp          As Byte             '从文件中读取的一个字节
    Dim btStr()         As Byte             '从文件中读取的一行的内容
    Dim strLine         As String           '存放一行的字符串
    Dim strTemp         As String    lngJ = 0
    lngLineNo = 0
    lngLineOffSet = 0
    intFileNo = FreeFile                                '得到一个文件号    Open strFileName For Binary Access Read Lock Write As #intFileNo
    Do Until EOF(intFileNo)
        btTemp = AscB(InputB(1, #intFileNo))            '从文件中读取一个字节
        If btTemp = 13 Then
            '怎么处理自己写
        ElseIf btTemp = 10 Then                         '如果读到的是Chr(10)，作为新的一行开始
            '怎么处理自己写
        Else
        '如果不是Chr(13)，则把这个字节追加到“btStr”字符数组里面
            ReDim Preserve btStr(lngJ)
            btStr(UBound(btStr)) = btTemp
            lngJ = lngJ + 1
        End If
    Loop