Vb遍歷字符串查找內容。

修改選項explicit private subform _ activate()dim s as string，arr，I as integers = "" yellow " ":121 "，" online "":0 "，" groupid"":1 "，" name " ":scattered place " arr = split(s，"，" ")for I = 0 toubound(arr)s = trim(replace(arr(I)，" "，" ")print。" = " & amp右(s，Len(s) - InStr(s，":))下壹個結束Sub