作者zchien (小建)
看板Visual_Basic
标题[VBA ] 请问如何撷取我需要data的下一栏字元..
时间Sat Dec 31 02:34:50 2011
我预计要用
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
1F：→ zchien:如果Line Input不行..有其他写法吗?? 12/31 02:35
2F：→ MOONRAKER:用两个变数prevItem和prevPrevItem不就结了 12/31 13:35
3F：→ MOONRAKER:运作方式就像一个深度2的stack 每次就比对stack内所有项 12/31 13:36
4F：→ zchien:请问这两个指令怎麽用.我在VBA说明内..搜寻不到用法 12/31 13:53
5F：→ zchien:我用了一个很笨的方式..先把档案汇入到EXCEL的sheet... 12/31 14:57
6F：→ zchien:再一行一行比对...撷取我要的资料 12/31 14:57
7F：→ zchien:有人知道如何不用汇入到EXCEL...就可以直接抓下一栏资料吗 12/31 14:58
8F：→ MOONRAKER:…这不是指令…喔天啊… 12/31 20:30