字符串处理问题

Question

Return(result="success" dev_id="0" 
time="2011-08-26 21:29:44" id="102" name="杨" workcode="" status="2" card_src="from_check"  type="face" 
time="2011-08-26 21:30:05" id="102" name="杨" workcode="" status="2" card_src="from_check"  type="face" 
time="2011-08-27 08:05:34" id="607" name="邹" workcode="" status="2" card_src="from_check"  type="face" 
)上述字符串有大量数据，如何分别取出time,id,name,workcode,card_src,type的后面""中的数据，我是使用数组，不知道有没有其它好的方法，处理速度快的！谢谢了

Answer 1

给你举个例子
Dim str As String
str = "time=" & "2011-08-26 21:29:44"
MsgBox Mid(str, InStr(1, str, "time") + 5, 16)
你这些数据都是有规律的很好办

Answer 2

确实有规律的很好办.比如这样
dim aa() as string
dim bb as string
bb=你的字串符内容
aa=split(bb," ")'将空格处做为标识转成数组AA再一条条的取出来就可以了.