vb6如何找字串，並取出字串

pinget9
個人積分：75分
文章編號：34322999

75分

樓主

2012-03-06 21:11

假設文字檔如下
as23 43df 231, er56 tt676 2w34 dddww45, dfe4 678, ......
當字串="tt676"時
就把"er56 tt676 2w34 dddww45"取出來
也就是字串符合文字檔中的資料
就把兩個逗號之間的字串取出
麻煩了，謝謝

2012-03-06 21:11 發佈

文章關鍵字 VB6 字串

發光鴕鳥

發光鴕鳥
個人積分：11分
文章編號：34368758

11分

2樓

2012-03-08 19:53

用 InStr（）

ex:

x = "hello"
y = "ll"
i = InStr(x, y)
Debug.Print i

3

sx3052

sx3052
個人積分：66分
文章編號：34369306

66分

3樓

2012-03-08 20:22

先用split~再用instr~

pinget9

pinget9
個人積分：75分
文章編號：34369729

75分

樓主

2012-03-08 20:45

sx3052 wrote:
先用split~再用instr~...(恕刪)

感謝你的說明
不過還是有點不懂
split切成陣列後
instr找出字串位置
以上都了解
接下來
如何把兩個逗號之間的字串取出呢？
謝謝

發光鴕鳥

發光鴕鳥
個人積分：11分
文章編號：34370458

11分

5樓

2012-03-08 21:22

pinget9 wrote:
感謝你的說明不過還是...(恕刪)

千言萬語不如程式源碼

aSTR=split("as23 43df 231, er56 tt676 2w34 dddww45, dfe4 678",",")
for i = 0 to ubound(aSTR)
if instr(aSTR(i)," tt676 ") then
' 抓到了
debug.print aSTR(i)
end if
next

pinget9

pinget9
個人積分：75分
文章編號：34371960

75分

樓主

2012-03-08 22:23

發光鴕鳥 wrote:
千言萬語不如程式源碼...(恕刪)

謝謝你的程式碼