如何用vb读取一个5列n行的数组,并且第一行是汉字
发布网友
发布时间：2024-10-23 22:41
共1个回答
热心网友
时间：2024-10-24 15:01
朋友，问问题一定要详细。读数组，从哪里读？读了以后又怎么办？
提供一份代码，是从TXT文件里读取5列n行的数组，并显示在文本框里。无论是汉字还是数字都可以读取的。
Private Sub Command1_Click()Dim s1 As String
Dim s2() As String
Dim S3() '用来存放读出来的数
Dim I As Long
Dim J As Long
Dim K As Long
I = 0
Open "数组.txt" For Input As #1
'读取数据放入二维数组S3里
Do While Not EOF(1)
Line Input #1, s1
ReDim Preserve S3(4, I)
s2 = Split(s1, ",")
For J = 0 To 4
S3(J, I) = s2(J)
Next J
I = I + 1
Loop
Close #1
'输出数组到文本框
K = UBound(S3, 2)
For J = 0 To K
For I = 0 To 4
Text1.Text = Text1.Text + S3(I, J) + "，"
Next I
Text1.Text = Text1.Text & vbCrLf
Next J
End Sub
运行效果图：
提供源代码一份
