[VB6 ] 請問如何取字串?

[linusfcu (哈哈 一個人玩)]

小弟目前正在處理字串問題

比如說RS232接到一連串的STRING

ex: 1. x 5000 < q 4000 < f 7000 ......
    2. m 4800 < h 6000 < q 9000 ......

每次才傳回的值都不一樣( 如ex.1 跟 ex.2)

但我只想抓 q + 後面的值

我的作法是

Dim string1 as String
string1 = MSComm1.input
Do
txt1.text = mid(string1,1,6)
Loop until InStr(1,string1,"q")

小弟是新手 希望知道的大大可以幫忙一下

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.118.38.53
推 colawei:mid(string1,instr(1,string1,"q"),6)
推 linusfcu:感謝囉~