VB截取截取字符串问题

[Eaz123]

text1.text中：

{name:"aaa",QQ:"123456"}
{name:"bbb",QQ:"2222222"}
{name:"ccc",QQ:"45646546"}
{name:"ddd",QQ:"987987"}
{name:"ggg",QQ:"555556"}

如何将name全列在list1中
QQ全列在list2中

如：list1:
aaa
bbb
ccc
ddd
ggg

list2:
123456
2222222
45646546
987987
555556

[嗷嗷叫的老马]

dim sName() as string,sQQ() as string,sTmp as string

sInput=replace(sinput,"{","")
sInput=replace(sinput,"}","")
sInput=replace(sinput,"""","")

stmp()=split(sinput,",")

for i=0 to ubound(stmp) step 2
debug.print stmp(i) 'Name
neext

for i=1 to ubound(stmp) step 2
debug.print stmp(i) 'QQ
neext

然后再对结果以冒号SPLIT一下就行了.

[ACMAIN_CHM]

用instr, mid 等函数来配合取出。

[贝隆]

1、使用Instr取得所有：｛的位置
2、再使用Instr取得所用：｝的位置
3、使用取得的位置（成对的）来截取各对：｛ ｝之间的字符串
4、使用Split，以 ：为分隔符 分隔字符串，可以取得Name 和 QQ号码