神马品牌网梦幻西游斧子转剑:在VB 怎么读取大的TXT文件？
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 20:52:23
假如有一个这样的TXT文件，格式如下：
用户ID号 用户名 语文成绩 数学成绩
1 小明 86分 95分
2 小强 92分 87分
3 小华 75分 82分
4 小王 84分 98分
5 小梦 65分 72发
6 小李 86分 68分
如果这样的数据有一千万多行,而且有很多这样的文件，将这些数据根据不同的条件分析后存入数据库，
请问VB有没有办法在短时间内处理？如果VB没有请问什么语言能在短时间内处理？
我想关键是需要进行什么样的处理。如果，需要把最后一条也读进来，才能进行处理那就慢得多了。VB的执行速度是不快，但是对于千万行得这么大量的数据，算法是关键。算法没想好，用那一个语言估计都费劲。
不过，按照一般的大型软件项目来说，这类批处理的后台工作通常都是用Pro*C，或者Pro*Cobol来完成的。你可以查查相关的数据库手册。
可以,做成阵列就可以,但必须多线程处理.单线程的话再好的算法也白搭.
直接导入数据库，然后VB读库处理就可以了。。
http://zhidao.baidu.com/question/10166662.html
上述网址有解决此问题的VB方法，你可参考。
在标准模块里这样写。。。。
'Option Explicit
Sub putdata(a() As Integer, n As Integer)
Dim sFile As String
sFile = "\out.txt"
Open App.Path & sFile For Output As #1
For i = 1 To n
Print #1, a(i);
Next
Close #1
End Sub
在FORM里这样写。（读入用的是COMMAND按键）
Private Sub Cmd1_Click()
Dim j As Integer
Open App.Path & "\in.txt" For Input As #1
For j = 1 To 100
Input #1, i(j)
Text1.Text = Text1.Text & i(j) & Space(5)
Next
Close #1
End Sub
'用RictTextBox叫R
'在Form_Load中编写
dim a,b as string
a=inputbox("输入文件名路径")
open a for input as #1
do while not(eof(1))
lineinput #1,b
R.text=R.text + b + chr(13) + chr(10)'也可以用vbCrLf换行
loop
close #1
'不会出错,我老用这些代码。