[VBA ] 請問如何擷取我需要data的下一欄字元..

看板Visual_Basic作者 (小建)時間14年前 (2011/12/31 02:34), 編輯推噓0(008)
留言8則, 2人參與, 最新討論串1/1
我預計要用 Result_data = ActiveWorkbook.Path & "\result.txt" Open Result_data For Input As #1 Do While Not EOF(1) Line Input #1, ReadLine 去讀出我要的內容 例如:我的內容如下 EEEE ZZZZ AAAA BBBB 33333 CCCC FFFF GGGGG 我想要卡兩個條件... 當我符合AAAA條件之後..在去比對下一欄是否是BBBB 如果是的話...就把BBBB後面的3333 給匯出來 如果是單一行的... 我就直接用 if mid(ReadLine,0,4) = "AAAA" then ...... 但是如果是有要考慮AAAA和他下一欄的話...我該怎麼寫呢???? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.40.78.52

12/31 02:35, , 1F
如果Line Input不行..有其他寫法嗎??
12/31 02:35, 1F

12/31 13:35, , 2F
用兩個變數prevItem和prevPrevItem不就結了
12/31 13:35, 2F

12/31 13:36, , 3F
運作方式就像一個深度2的stack 每次就比對stack內所有項
12/31 13:36, 3F

12/31 13:53, , 4F
請問這兩個指令怎麼用.我在VBA說明內..搜尋不到用法
12/31 13:53, 4F

12/31 14:57, , 5F
我用了一個很笨的方式..先把檔案匯入到EXCEL的sheet...
12/31 14:57, 5F

12/31 14:57, , 6F
再一行一行比對...擷取我要的資料
12/31 14:57, 6F

12/31 14:58, , 7F
有人知道如何不用匯入到EXCEL...就可以直接抓下一欄資料嗎
12/31 14:58, 7F

12/31 20:30, , 8F
…這不是指令…喔天啊…
12/31 20:30, 8F
文章代碼(AID): #1E_WHDyF (Visual_Basic)