Board logo

標題: [發問] 請教語法?? [打印本頁]
作者: t8899    時間: 2022-5-12 20:19     標題: 請教語法??

[a1],[b1]為文字，假如 b1含有a1任意三個字則.......  語法?? 英文不區分大小寫
例如
a1=2a你3我他7  b1=你7要A4去8那裏   
a1三個字"a你7" 在b1裏面
作者: samwang    時間: 2022-5-12 22:00

回復 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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)