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

[zchien (小建)]

我預計要用

    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
→ zchien:如果Line Input不行..有其他寫法嗎??
→ MOONRAKER:用兩個變數prevItem和prevPrevItem不就結了
→ MOONRAKER:運作方式就像一個深度2的stack 每次就比對stack內所有項
→ zchien:請問這兩個指令怎麼用.我在VBA說明內..搜尋不到用法
→ zchien:我用了一個很笨的方式..先把檔案匯入到EXCEL的sheet...
→ zchien:再一行一行比對...擷取我要的資料
→ zchien:有人知道如何不用匯入到EXCEL...就可以直接抓下一欄資料嗎
→ MOONRAKER:…這不是指令…喔天啊…