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

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

2 個解答

評分
  • 7 年前
    最佳解答

    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
  • 匿名使用者
    7 年前

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

    债冎勡剹

還有問題?馬上發問,尋求解答。