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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息