返回列表 上一主題 發帖

[發問] 請教語法??

[發問] 請教語法??

[a1],[b1]為文字,假如 b1含有a1任意三個字則.......  語法?? 英文不區分大小寫
例如
a1=2a你3我他7  b1=你7要A4去8那   
a1三個字"a你7" 在b1堶

回復 1# t8899

請測試看看,謝謝

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

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題