'用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
'不会出错,我老用这些代码。
在标准模块里这样写。。。。
'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
我想关键是需要进行什么样的处理。如果，需要把最后一条也读进来，才能进行处理那就慢得多了。VB的执行速度是不快，但是对于千万行得这么大量的数据，算法是关键。算法没想好，用那一个语言估计都费劲。
不过，按照一般的大型软件项目来说，这类批处理的后台工作通常都是用Pro*C，或者Pro*Cobol来完成的。你可以查查相关的数据库手册。
可以,做成阵列就可以,但必须多线程处理.单线程的话再好的算法也白搭.
直接导入数据库，然后VB读库处理就可以了。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024