VB.net 如果讀取txt數據(或十進制dat數據)

vb.net雖也有input語句，但壹次只能讀取到壹個變量中，可以用TextFieldParser類代替，但似乎沒以前的方便。不過比以前的更靈活。寫入文件Write還是可以用，在Microsoft.VisualBasic.FileIO中。

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?fileName?As?String?=?"E:\User?Documents\Master\My?Documents\電子閱讀\股票\table2.csv"

Using?Recrods?As?New?Microsoft.VisualBasic.FileIO.TextFieldParser(fileName)?'建立TextFieldParser對象

'MyReader.TextFieldType?=?FieldType.Delimited

Recrods.SetDelimiters(",")?'把字段分隔符設置為","

Dim?curRow()?As?String

Do?Until?Recrods.EndOfData

curRow?=?Recrods.ReadFields()?'讀取記錄行，返回字符串數組，所以不同字段類型需要自己轉換。

Debug.Print(Join(curRow,?vbTab))

Loop

End?Using

End?Sub