UC知道vb初学者，如何将
来源：百度知道 编辑：UC知道 时间：2024/09/24 13:13:31
-86.15,-68.99,36589.41,25273.32,2195.17
-53.40,82.21,37631.08,31324.51,728.69
-14.78,-76.63,39100.97,24934.98,2386.50
10.46,64.43,40426.54,30319.81,757.31
以上是一个txt文档中的内容
如何将它赋给一个多维数组
-53.40,82.21,37631.08,31324.51,728.69
-14.78,-76.63,39100.97,24934.98,2386.50
10.46,64.43,40426.54,30319.81,757.31
以上是一个txt文档中的内容
如何将它赋给一个多维数组
Open "Text.txt" For Binary As #1
TextText = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
TextRow = Split(TextText, vbCrLf)
For i = 0 To UBound(TextRow)
TextTxt = Split(TextRow(i), ",")
Dim a()
ReDim a(UBound(TextRow), UBound(TextTxt))
For j = 0 To UBound(TextTxt)
a(i, j) = TextTxt(j)
Next j
Next i