Board logo

¼ÐÃD: [µo°Ý] ½Ð±Ð»yªk?? [¥´¦L¥»­¶]

§@ªÌ: t8899    ®É¶¡: 2022-5-12 20:19     ¼ÐÃD: ½Ð±Ð»yªk??

[a1],[b1]¬°¤å¦r¡A°²¦p b1§t¦³a1¥ô·N¤T­Ó¦r«h.......  »yªk?? ­^¤å¤£°Ï¤À¤j¤p¼g
¨Ò¦p
a1=2a§A3§Ú¥L7  b1=§A7­nA4¥h8¨ºùØ   
a1¤T­Ó¦r"a§A7" ¦bb1ùØ­±
§@ªÌ: samwang    ®É¶¡: 2022-5-12 22:00

¦^´_ 1# t8899

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

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




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)