VB.NET读取TXT文件数据保存为数组

vb.net读取txt文件数据,并且转换为二维数组~

Public Class Func Public Shared Sub Main() '测试代码！ Dim Temp As String()() = Func.GetArrayByTxt("D:\Test.txt") End Sub Public Shared Function GetArrayByTxt(path As String) As String()() Dim arr As String() = IO.File.ReadAllLines(path, Encoding.Default) Dim par As Char() = {",", "."} Dim result(arr.Length - 1)() As String For i As Integer = 0 To arr.Length - 1 result(i) = arr(i).Split(par) Next Return result End FunctionEnd Class

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

VB.NET编程读取txt文本文档中的数据，并把数据保存为数组，代码如下：

'写配件文件
Private Sub saveIni(ByVal filePath As String, ByVal str As String)
Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw = Nothing
End Sub
'读配件文件
Private Function readIni(ByVal filePath As String)
Dim iniDt As New DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
Dim line As String = ""
While Not sr.EndOfStream
Dim str = sr.ReadLine()'读取当前行
iniDt.Rows.Add(New String() {
      str(0),
      str(1)
 })

End While
sr.Close()
sr = Nothing
Catch ex As Exception

End Try
Return iniDt
End Function

Dim txt As IO.StreamReader = New IO.StreamReader("C:\1.txt", System.Text.Encoding.Default)
Dim str() As String, n As Integer = 0
Do Until txt.EndOfStream
n = n + 1
ReDim Preserve str(n) '数组从1开始
str(n) = txt.ReadLine()
Loop
txt.Close()

---

VB.NET读取TXT文件数据保存为数组视频