''''-----接受要处理的字符串------- Function Tool_disTest(ByVal TextBefore As String) Dim TextAfter() As String Dim intNum, intTextLen, k, i As Integer intNum = 1 intTextLen = Len(TextBefore) ''''--------计算有多少的查询条件-------- For i = 1 To intTextLen If Mid(TextBefore, i, 1) = "," Then intNum = intNum + 1 End If Next ''''----------------------------------- ReDim TextAfter(intNum) k = 1 ''''--------把每个条件放到数组里--------- For i = 1 To intTextLen If Mid(TextBefore, i, 1) = "," Then k += 1 Else TextAfter(k) = TextAfter(k) & Mid(TextBefore, i, 1) End If Next ''''---------------------- Dim strTemp As String ''''--------为每一个条件加上''''''''---------- For i = 1 To intNum strTemp = TextAfter(i) TextAfter(i) = "''''" & strTemp & "''''" Next ''''---------------------- strTemp = "" ''''------添加分隔条件用的","------ For i = 1 To intNum strTemp = strTemp & TextAfter(i) & "," Next ''''------------------ ''''------去除最后一个,------ strTemp = Mid(strTemp, 1, Len(strTemp) - 1) ''''------------------- Return strTemp End Function