Private Sub Form_Load() Dim s1 As String, s2 As String, arrTmp() As String, i As Long s1 = "abe433fwe4d" s2 = "a,b,32,4,5,6,8,7,5" arrTmp = Split(s2, ",") For i = 0 To UBound(arrTmp) If InStr(s1, arrTmp(i)) <> 0 Then Debug.Print arrTmp(i) & " In s1" Next End Sub
用Split函数把s2分解到一个数组,然后Instr函数循环判断数组的元素是否在s1中
Dim s1 As String, s2 As String, arrTmp() As String, i As Long
s1 = "abe433fwe4d"
s2 = "a,b,32,4,5,6,8,7,5"
arrTmp = Split(s2, ",")
For i = 0 To UBound(arrTmp)
If InStr(s1, arrTmp(i)) <> 0 Then Debug.Print arrTmp(i) & " In s1"
Next
End Sub
判断s2有中的a,b在S1中
这句是什么意思
其实S2有上万个单词,S1是一句话,我要快速判断:S2中的单词有多少个,也就是哪几个在S1中。
----------其实faysky2的方法就可以拉啊,你试试看?如果不行,那就用个循环,把单词一个一个提取出来 用instr检测吧。
如果s2 固定不变, 反而是 s1变,
那就事先对s2拆分保存 到数据库,做索引。
然后提取s1的部分来比对s2 的库/。/恩s1的提取和结果的处理倒是有些麻烦