Dim str
Dim tstr
Dim tempstr(100)
Dim tempstring
tempstring=""
str="01001(张三),01002(李四),01003(王五)"
tstr=split(str,",")
For i=0 to ubound(tstr)
tempstr=trim(tstr(i))
tempstr=split(tempstr,"(")
if tempstring="" then
tempstring= tempstr(0)
else
tempstring= tempstring&","&tempstr(0)
end if
Next