Open Source_File For Input As #1时换行的问题

[alwayssnowman]

我有一个在Unix下生成的text文件，很大，250M，一千多万行数据，它的换行符是Chr(10)
因为Chr(10)是Unxi/Linux下的换行符（只要一个就可以换行）
而Chr(13)+Chr(10)是Windows下的换行符
所以VB中Open Source_File For Input As #1时判断换行的标准不适用了，每次在打开文件的时候，它都把这1000多万行数据看作一行，不知道我能不能修改Open Source_File For Input As #1 中判断换行的标准？不好意思，MSDN这台电脑没有，只好问大家了，谢谢。

[bhhxd]

用写字板打开，然后另存为文本文档就可以了

[alwayssnowman]

呵呵
这确实不是不可以
但是，这样我的软件还拿来干什么？我要的是一个把这些功能都包含进去的软件，这是给我女朋友处理她经济数据用的软件，献爱心当然要做的尽量完美。嘿嘿。

[alwayssnowman]

250M啊，要是一次性作为字符串打开，那还了得？？？！！！：）
我也想过这个主意，代码如下：
' Do While Not EOF(1) And PreviewLine <= 20
' Line Input #1, Str1
' Str1 = Replace(Str1, Chr(10), vbCrLf)
' PreviewLine = PreviewLine + 1
' RichTextBox1.Text = RichTextBox1.Text + Str1
' Loop
PreviewLine 起到的作用是先生成一个20行的预览
但是这样在处理的时候Str1 还是250M，没有起到部分预览的作用，您的意见呢？

[alwayssnowman]

我重新写了代码，不用行读写了（参见代码中的注释掉的部分），改用二进制读写，这样有预览效果了，而且很快，感觉不错：）另外，谢谢大家回答，谢谢。
Private Sub Form_Load()

Dim PreviewLine, M, N As Integer
Dim Char As String * 1
M = 1
PreviewLine = 0

RichTextBox1.Text = ""

Open Source_File For Binary As #1

'################################################################################
' Do While Not EOF(1) And PreviewLine <= 20
' Line Input #1, Str1
' Str1 = Replace(Str1, Chr(10), vbCrLf)
' PreviewLine = PreviewLine + 1
' RichTextBox1.Text = RichTextBox1.Text + Str1
' Loop
'################################################################################
Do While M <= FileLen(Source_File) And PreviewLine <= 20
Get 1, , Char
If Char <> Chr(10) Then
RichTextBox1.Text = RichTextBox1.Text + Char
Else
RichTextBox1.Text = RichTextBox1.Text + vbCrLf
PreviewLine = PreviewLine + 1
End If
M = M + 1
Loop
Close #1

End Sub

[alwayssnowman]

还是给分吧，谢谢大家支持。

[lee_j]

对于楼主的第一段程序中 Line Input #1, Str1
换成逐个字符读,应该可以实现预览功能

[alwayssnowman]

呵呵，是啊是啊
搞定了心情就是好：）
lee_j()你也还没睡觉呢？辛苦辛苦。
帖子我已经结了
谢谢你的回答
以后还请多捧场

[alwayssnowman]

up

[lee_j]

既然在windows下用,可以先用replace替换一下.