Dim inputString As String = "BZY0909JC001"
Dim searchStrings As String = "bzy|jc|KL"
Dim substrings() As String = searchStrings.Split("|")
Dim int As Integer=0
' 遍历数组中的每个子字符串，检查 是否包含它
For Each substring As String In substrings
If inputString.ToUpper.Contains(substring.ToUpper) Then
int += 1
End If
Next
If int>0 Then
If int = substrings.Length Then
Output.Show("包含全部子字符串")
Else
Output.Show("包含部分子字符串")
End If
Else
Output.Show("不包含任何子字符串")
End If
加好友 
发短信
Post By：2024/12/5 15:41:00 [显示全部帖子]
