none
想請問關於vb隔行讀取txt檔案的問題... RRS feed

  • 問題

  • 現在小弟有一個關於vb隔行讀取txt檔案的問題,檔案如下
    DEVIATIONS::
    Run Target Data:
    1   1       0.000
    1   2       0.270
    1   3       1.800
    2   3       0.610
    2   2      -1.150
    2   1      -0.650

    ENVIRONMENT::
    Air temp   : -1.000000 -1.000000
    我想只讀取中間有數字的那段就好,我想用EOF做讀取的方式,前面的英文是可以隔行讀取但是最後那幾行英文都會讀入VB中,請問有什麼方法可以只讀中間那段數字就好的方法呢?

    2009年7月1日 上午 03:38

解答

  •     Open "C:\test.txt" For Input As #1
        Input #1, temp
        Input #1, temp
        Do While Not EOF(1)
        Input #1, Data1, Data2, Data3
        If Trim(Data1) = "" Then Exit Do
        MsgBox Data1 & " " & " " & Data2 & " " & Data3
        Loop
        Close #1
    我是判斷當讀入的資料為空時,跳離迴圈,您在試試看
    .NET菜鳥自救會 http://www.dotblogs.com.tw/chou/
    • 已標示為解答 卜榮王 2009年7月1日 上午 04:29
    2009年7月1日 上午 04:28
    版主

所有回覆

  •  
        Open "C:\test.txt" For Input As #1
        Input #1, temp
        Input #1, temp
        Do While Not EOF(1)
        Input #1, Data1, Data2, Data3
        MsgBox Data1 & " " & " " & Data2 & " " & Data3
        If Data1 = " " Then Exit Do
        Loop
        Close #1

    .NET菜鳥自救會 http://www.dotblogs.com.tw/chou/
    2009年7月1日 上午 03:48
    版主
  • 謝謝小歐的回答,但是小弟發現似乎最後兩行英文還是讀進vb了,不曉得哪裡還要修正?謝謝回答

    2009年7月1日 上午 04:19
  • 補充:VBNET 已移除 Open 等相關敘述,所以上面的程式碼是 VB6/VBA 的語法。
    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    2009年7月1日 上午 04:20
  • 您的資料

    2   1      -0.650

    ENVIRONMENT::
    Air temp   : -1.000000 -1.000000

    在數字與 最後的英文中,有隔一行嗎 ?


    .NET菜鳥自救會 http://www.dotblogs.com.tw/chou/
    2009年7月1日 上午 04:21
    版主
  • 在數字與最後的英文中是有隔一行,是不是要在if的判斷式做判斷呢?謝謝

    2009年7月1日 上午 04:23
  •     Open "C:\test.txt" For Input As #1
        Input #1, temp
        Input #1, temp
        Do While Not EOF(1)
        Input #1, Data1, Data2, Data3
        If Trim(Data1) = "" Then Exit Do
        MsgBox Data1 & " " & " " & Data2 & " " & Data3
        Loop
        Close #1
    我是判斷當讀入的資料為空時,跳離迴圈,您在試試看
    .NET菜鳥自救會 http://www.dotblogs.com.tw/chou/
    • 已標示為解答 卜榮王 2009年7月1日 上午 04:29
    2009年7月1日 上午 04:28
    版主
  • 請問各位大大們,小弟想要設定當讀取到Run Target Data:這行時進入迴圈讀取資料,但是不知道該怎麼設定,發生的錯誤為有end if 沒有if,不曉得是哪裏打錯,請大家糾正一下小弟的程式碼,謝謝
        Open "C:\test1.txt" For Input As #1
        Input #1, Data1, Data2, Data3
        If Trim(Data1) = "Run" Then Do While Not EOF(1)
        Input #1, Data1, Data2, Data3
        If Trim(Data1) = "" Then Exit Do
        MsgBox Data1 & " " & " " & Data2 & " " & Data3
        Loop
        Close #1

    2009年7月1日 上午 04:31