Question

VB判断一个字符串存在于另一个用逗号隔开的字符串中

字符串一：str1=1235,12,23,34,123,21,56,74,1232
字符串二：str2=12
,问题：如何判断str2是否存在str1中，要求准确找出12，不能找出str1中的1235,、123、1232，VB的，不知道使用intr还是charindex函数

Answer 1

str1="1235,12,23,34,123,21,56,74,1232"
str2="12"
str1 = inputbox("请输入原始字符窜str1",,str1)
str2 = inputbox("请输入收索字符窜str2",,str2)
B = 0
AA=split(str1,",")
for i = 1 to ubound(AA)
IF AA(i) = str2 then
B = B+1
end if
NEXT
IF B > 0 THEN
MSGBOX str2 & " 有 " & B & " 个存在" & str1,64,"提示"
ELSEIF B= 0 THEN
MSGBOX str2 & " 不包含在 " & str1 ,64,"提示"
END IF

Answer 2

提供个思路，可以考虑用split函数分解成数组哦

Private Sub Command1_Click()

Dim str1 As String
Dim str2 As String
Dim V As Variant

str1 = "1235,12,23,34,123,21,56,74,1232"
V = Split(str1, ",")
str2 = 12
For i = LBound(V) To UBound(V)
If V(i) = str2 Then
MsgBox V(i)
End If
Next i

End Sub