高分求解:两个字符串,s1=“abe433fwe4d",s2="a,b,32,4,5,6,8,7,5",如何快速判断s2有中的a,b在S1中?
求优秀算法!!!!!!!!!!!!!!!!!!!!
我有的是分,可以送了又送!

解决方案 »

  1.   

    s1=“abe433fwe4d",s2="a,b,32,4,5,6,8,7,5",
    用Split函数把s2分解到一个数组,然后Instr函数循环判断数组的元素是否在s1中
      

  2.   

    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
      

  3.   

    InStr 就可以,楼主好像没有要求把主字符串按“,”号进行分拆吧
      

  4.   

    看不懂题目,
    判断s2有中的a,b在S1中
    这句是什么意思
      

  5.   

    都不满足要求啊,请请兄弟们继续出主意。
    其实S2有上万个单词,S1是一句话,我要快速判断:S2中的单词有多少个,也就是哪几个在S1中。
      

  6.   

    S2有上万个
    ----------其实faysky2的方法就可以拉啊,你试试看?如果不行,那就用个循环,把单词一个一个提取出来 用instr检测吧。
    如果s2 固定不变, 反而是 s1变,
    那就事先对s2拆分保存 到数据库,做索引。
    然后提取s1的部分来比对s2 的库/。/恩s1的提取和结果的处理倒是有些麻烦