看论坛的帮助网页
如果是1,2,3,4,5,6的话
精确判断可以进行逐个判断,比InStr精确
比如判断某个ID是否在这串字符串里出现过
Function IsHaveID(IDStr,ID) Dim i,IsHave,tAry() tAry=Split(IDStr,",") IsHave=False For i=0 To UBound(tAry) IF tAry(i)=CStr(ID) Then IsHave=True End IF Next IsHaveID=IsHave
End Function