請教語法??
[a1],[b1]為文字，假如 b1含有a1任意三個字則....... 語法?? 英文不區分大小寫例如
a1=2a你3我他7 b1=你7要A4去8那裏
a1三個字"a你7" 在b1裏面 [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=118796&ptid=23661]1#[/url] [i]t8899[/i] [/b]
請測試看看，謝謝
Sub test()
Dim a, b, xD, T$, c, j&
Set xD = CreateObject("Scripting.Dictionary")
a = [a1]: b = [b1]
For j = 1 To Len(a)
T = UCase(Mid(a, j, 1)): xD(T) = 1
T = LCase(Mid(a, j, 1)): xD(T) = 1
Next
For j = 1 To Len(b)
T = Mid(b, j, 1): If xD(T) = 1 Then c = c & T
Next
MsgBox c
End Sub
頁:
[1]