Question

VB.NET读取固定格式TXT文件数据为二维数组的方法

比如说如下一个文本文件：
1，2，3
4，5，6
7，8，9
数据中间间隔为“，”，每一行换行符用回车。我希望能够读入一个二位数组中，然后用此二维数组填充DataTable。希望各位高手帮忙解决一下，给出源代码，谢谢。

Answer 1

Dim rootlist() As String
Dim data(0, 0) As String
Dim tmp() As String
Dim listLengh As Int32
Dim I As Integer, II As Integer
rootlist = Split(IO.File.OpenText("C:/001.txt").ReadToEnd, vbCrLf)
listLengh = UBound(rootlist)
ReDim data(listLengh, 0)
For I = 0 To listLengh
tmp = Split(rootlist(I), "，")
ReDim Preserve data(listLengh, UBound(tmp))
For II = 0 To UBound(tmp)
data(I, II) = tmp(II)
Next
Next

For I = 0 To 2
For II = 0 To 2
MsgBox(data(I, II))
Next
Next