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

alwayssnowman 2003-05-17 10:59:39
我有一个在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这台电脑没有,只好问大家了,谢谢。
...全文
35 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lee_j 2003-05-18
既然在windows下用,可以先用replace替换一下.
回复
alwayssnowman 2003-05-18
up
回复
alwayssnowman 2003-05-18
呵呵,是啊是啊
搞定了心情就是好:)
lee_j()你也还没睡觉呢?辛苦辛苦。
帖子我已经结了
谢谢你的回答
以后还请多捧场
回复
lee_j 2003-05-18
对于楼主的第一段程序中 Line Input #1, Str1
换成逐个字符读,应该可以实现预览功能
回复
alwayssnowman 2003-05-18
还是给分吧,谢谢大家支持。
回复
alwayssnowman 2003-05-18
我重新写了代码,不用行读写了(参见代码中的注释掉的部分),改用二进制读写,这样有预览效果了,而且很快,感觉不错:)另外,谢谢大家回答,谢谢。
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 2003-05-18
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 2003-05-17
呵呵
这确实不是不可以
但是,这样我的软件还拿来干什么?我要的是一个把这些功能都包含进去的软件,这是给我女朋友处理她经济数据用的软件,献爱心当然要做的尽量完美。嘿嘿。
回复
bhhxd 2003-05-17
用写字板打开,然后另存为文本文档就可以了
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-17 10:59
社区公告
暂无公告