紧急求助！如何把data.dat 文件读入数组？（正文会给出该文件）(页 1) - VB6论坛

sugarzong 发表于 2008-6-22 19:43

紧急求助！如何把data.dat 文件读入数组？（正文会给出该文件）

[attach]35661[/attach]
是编一个银行查询系统用的。
要求：按“打开“（”文件“菜单下的）打开data.dat，把它读入数组。然后用它查询帐户的余额(在文本框内输入帐号)。并统计总余额和帐户数（是不是通过ubound找到数组的下界呀？能不能教教我具体的程序呀）。最后再把帐户信息保存到磁盘）。
ps;data文件中有空的

我编的程序；
Option Base 1
Dim x(), i%, j%

Private Sub about_Click()
Form2.Show
End Sub

Private Sub cx_Click()
Text1.Text , a()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()
Label1.Alignment = 1
Label1.Caption = "请输入帐号"
Label1.FontSize = 10
Text1.Text = ""

End Sub

Private Sub open_Click()
Dim FilePath As String
Dim FileText As String

CommonDialog1.Filter = "文本文件(*.dat)|*.dat"
CommonDialog1.Action = 1
CommonDialog1.DialogTitle = "打开 "

If Len(CommonDialog1.FileName) = 0 Then
Exit Sub
End If

FilePath = CommonDialog1.FileName

Form1.Caption = Form1.Caption

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then cx.SetFocus
End Sub

Private Sub zhongzh_Click()
MsgBox "总帐户数为" & zhs(a())
End Sub

Private Sub zye_Click()
总余额为 "&zye(a())"
End Sub

半成品在下面的压缩文件
[attach]35659[/attach]

[[it] 本帖最后由 sugarzong 于 2008-6-22 19:48 编辑 [/it]]

sugarzong 发表于 2008-6-22 19:47

data文件

"101187","阮娜",62530
"102206","何密",9697
"103304","蒋媛蒣",58553
"104443","蒋荈",31992
"105555","卢蝡",33296
"106660","白羽",34922
"107746","赖烫胃",57657
"108822","李吓",11154
"109907","周斯",8638
"","",0
.........还有很多

[attach]35660[/attach]

[attach]35662[/attach]
[attach]35663[/attach]

[[it] 本帖最后由 sugarzong 于 2008-6-22 19:49 编辑 [/it]]

三断笛 发表于 2008-6-22 21:54

用input 一个个读,每次读三个将数据写入到一个二维数组中,记住要用动态的

随风逐流 发表于 2008-6-23 17:21

什么个情况？
你一行一行的读出来不就行了？
读到一行的时候用SPLIT分割成数组

三断笛 发表于 2008-6-23 20:16

split效率不高啊用一个Input一次读三个变量效率高很多很多.....我读过一个近两百万的数据........

[[it] 本帖最后由三断笛于 2008-6-23 22:48 编辑 [/it]]

jxyga111 发表于 2008-6-23 20:24

真的假的啊

multiple1902 发表于 2008-6-23 22:11

反正我用fso处理，效率低就低吧，反正低不了多少

页: [1]