Function stringToArray(bizDatas)
'与getBizData()方法相对,解析字符串成数组返回。
myString=split(bizDatas," ",-1,1)
For i=LBound(myString) to UBound(myString)
temp_value=myString(i)
If instr(temp_value,"♂♂")>0 Then
myString(i)=replace(temp_value,"♂♂"," ")
elseif temp_value="♀♀" Then
myString(i)=""
else
myString(i)=temp_value
End If
Next
stringToArray=myString
End Function