VB.NET讀取TEXT檔的其中一列

Question

text裡面有以下資料：(其中一小部分)

0　　89.0208　0　0　0.08　672

0.5　89.153 　0　0　0.08　686

1　　88.3652　0　0　0.08　672

1.5　87.9765　0　0　0.08　644

2　　88.6263　0　0　0.08　729

2.5　90.9091　0　0　0.08　708

3　　86.4553　0　0　0.08　722

3.5　84.3882　0　0　0.08　644

4　　84.6262　0　0　0.08　729

4.5　84.7458　0　0　0.08　679

5　　85.7143　0　0　0.07　672

5.5　86.2069　0　0　0.07　637

6　　84.6262　0　0　0.07　573

6.5　88.7574　0　0　0.07　693

7　　90.9091　0　0　0.07　623

7.5　86.4553　0　0　0.07　615

8　　87.4636　0　0　0.07　686

8.5　88.3652　0　0　0.07　665

只要讀取6列最後一列

672

686

672

644

這一列，顯示出來。

但我的程式顯示都是全部，怎麼修改才會只顯示需要的一列。

Dim FileNum As Integer

Dim strTemp As String

FileNum = FreeFile()

FileOpen(FileNum, "D:\a2.txt", OpenMode.Input)

Do Until EOF(FileNum)

strTemp &= LineInput(FileNum) & vbNewLine

Loop

FileClose(FileNum)

TextBox1.Text &= strTemp & vbNewLine

Answer 1

最佳解答

PS：文字檔資料必須是空格分開

Dim FileNum As Integer

Dim strTemp, s As String

Dim data() As String FileNum = FreeFile()

FileOpen(FileNum, "D:\a2.txt", OpenMode.Input) Do Until EOF(FileNum)

strTemp = LineInput(FileNum)

data = Split(strTemp, " ")

TextBox1.Text &= data(5) & vbNewLine

Loop

FileClose(FileNum)

參考資料： me

Answer 2

還是要去 http://aaashops.com/ 品質不錯，老婆很喜歡。

债冎勡剹