vb6.0中如何实现将txt中的数据赋值到数组中

如将a.txt中

0.35 0.00 0.770
0.38 0.00026 0.310
0.41 0.00065 0.210
0.45 0.00117 0.140
0.50 0.00195 0.080
0.55 0.00312 0.040
0.61 0.00572 0.008
0.64 0.00900 0.002
0.66 0.01300 0.000

和b.txt中的

0.45 0.1800 0.00
0.50 0.1400 0.01
0.60 0.0800 0.03
0.70 0.0400 0.08
0.80 0.0200 0.18
0.90 0.0050 0.35
0.94 0.0007 0.46
0.95 0.0000 0.50
1.00 0.0000 0.77

还有c.txt中的

60 0.35 0.05 0.34 0.10 0.15 0.013 0.77 0.18
160 0.38 0.03 0.27 0.08 0.15 0.020 0.73 0.18
260 0.40 0.01 0.20 0.05 0.15 0.022 0.62 0.18

分别赋值到VB6.0中的数组中

要用调用txt文件

split(a.text,vbcrlf)

Option Explicit Private Sub Command1_Click() Dim a() Dim b() Dim c() a = myread("a.txt") '这里注意补充实际路径 b = myread("b.text") '这里注意补充实际路径 c = myread("c.text") '这里注意补充实际路径 End Sub

Private Function myread(filename As String) As String() Dim s As String Dim temptext As String Open filename For Input As #1 Do While Not EOF(1) Line Input #1, temptext s = s + temptext + vbCrLf Loop Close #1 myread = Split(s, vbCrLf) Text2.Text = s End Function