UC知道VB如何把TXT文件中的多组数字赋值到
来源：百度知道 编辑：UC知道 时间：2024/05/15 17:21:09
VB如何把TXT文件中的多组数字赋值到
一个二维数组中？
例如：
此文件内容为：
123
987
赋值后的结果为：
A[0,0]=1
A[0,1]=2
A[0,2]=3
A[1,0]=9
A[1,1]=8
A[1,2]=7
一个二维数组中？
例如：
此文件内容为：
123
987
赋值后的结果为：
A[0,0]=1
A[0,1]=2
A[0,2]=3
A[1,0]=9
A[1,1]=8
A[1,2]=7
将txt文件保存到C:\123.txt，然后输入如下代码即可。
Private Sub Command1_Click()
Dim t(0 To 1) As String
Dim A(0 To 1, 0 To 2) As String
Dim i%, j%
Open "c:\123.txt" For Input As #1
For i = 0 To 1
Line Input #1, t(i)
Next i
For i = 0 To 1
For j = 0 To 2
A(i, j) = Mid(t(i), j + 1, 1)
Next j
Next i
Close #1
End Sub
用一个commondialog控件加载文件，flag属性设为4096 ~然后用如下代码：
open commondialog1.filename for input as #1
然后用
line input #1，数组
len（数组）测量长度
用for循环 mid 截取定长
说的笼统~~