不換行的話，
要用 Console.Write(string) 輸出
然後再一個 Console.WriteLine() 換行

Dim inputdata(2, 2) As Single
Dim alltxt As String = My.Computer.FileSystem.ReadAllText("") '把所有的文字檔讀入成字串
Dim row1() As String = Split(alltxt, vbNewLine) '把字串切割成許多橫列
Dim column1(1) As String
For i = 0 To row1.Count - 1 '把每一個橫列切割一欄欄數字字串
column1 = Split(row1(i), ",")
For j = 0 To column1.Count - 1
inputdata(i, j) = Val(column1(j)) '把數字字串存入陣列
Next
Next

回小魚:
Using MyReader As New Microsoft.VisualBasic. FileIO.TextFieldParser( "D:\test.txt") MyReader.TextFieldType = FileIO.FieldType.Delimited MyReader.SetDelimiters(",") Dim currentRow As String() While Not MyReader.EndOfData Try currentRow = MyReader.ReadFields() Dim currentField As String For Each currentField In currentRow Console.WriteLine(currentField) Console.ReadLine() Next Catch ex As Microsoft.VisualBasic. FileIO.MalformedLineException MsgBox(ex.Message) End Try End While End Using
這是我的程式碼

如果照你的方法的話 該怎麼樣改呢?

回練武功:

把txt文字檔讀入後再存入陣列的概念懂了!

但迴圈的部分還有點不太清楚...
假設陣列為3階2維陣列 txt中輸入9個元素
1,3,8
9,8,5
0,6,7(假設這樣)

那這樣row1的部分 是把元素換行作為分割成9列嗎?

還是遇到換行 就自動分割成列字串
遇到 ,逗點 就分割成行字串?

但結果還是索引在陣列之外...
是不是我哪部分理解錯誤了?

Console.ReadLine()拿掉，那段應該留在最後，不過我習慣用Console.ReadKey()

已經很接近了，主要是迴圈那邊要改一下，改完如下

Using MyReader As New Microsoft.VisualBasic. FileIO.TextFieldParser( "D:\test.txt") MyReader.TextFieldType = FileIO.FieldType.Delimited MyReader.SetDelimiters(",") Dim currentRow As String() While Not MyReader.EndOfData Try currentRow = MyReader.ReadFields() Dim currentField As String For Each currentField In currentRow Console.Write(currentField + vbTab) Next Console.WriteLine() Catch ex As Microsoft.VisualBasic. FileIO.MalformedLineException MsgBox(ex.Message) End Try End While End Using Console.ReadKey()

畫面如下

按照你的例子，切割完的row1個元素值應該=
row1(0)="1,3,8"
row1(1)="9,8,5"
row1(2)="0,6,7"

這裡容易出現的錯誤是你的txt內容在"0,6,7"最後一列又按一個Enter，結果row1切割完多出row1(3)=空白
而inputdata只有設定到2，所以會產生錯誤。
你可以在Dim row1() As String =....這行下方多加個
redim inputdata(row1.count-1,2)
應該就不會出現錯誤。不過陣列各維的長度會和你的預想不同。
所以最好檢查txt內容是不是多一列。如同5樓的畫面，txt內容的游標在第4列。

回小魚:

原來直接把換行部分改掉 加上空白就行了
害我一直想好久
感謝你!

回練武功:

懂你意思了!
原來txt編輯的結果也有差
但txt編輯的陣列維度似乎會被程式宣告的限制
(例如txt繼續輸入3、4、5階...以上)
也謝謝你的回答!

如果要轉成數字做運算，因為不知道確切數量，我習慣用List來接資料

宣告一個List
Dim numList As List(Of Decimal) = New List(Of Decimal)

增加一個項目，這裡是利用回圈內的String
Dim number As Decimal Decimal.TryParse(currentField, number)

加入一個項目
If number > 0 Then numList.Add(number)

顯示List內容
For i = 0 To numList.Count - 1 Console.Write(numList(i).ToString() + " ") Next

大概是這樣的，
其他的變化就請自己想了，
視需求可以做不同的變化。

因為你有小數，
所以我用Decimal來接資料，
不用Integer來接資料。

謝謝小魚和練武功
程式終於能夠跑出我要的結果了!!