代碼如下:
函數QCF(S為字符串)
昏暗的ZD
Set ZD = CreateObject("腳本。字典》)
QCF = " "
對於I = 1到Len(S)
？MYT = Mid(S，I，1)
？如果不是ZD。存在(MYT)
？ZD。添加MYT，1
？QCF = QCF & amp；MYT
？如果…就會結束
接下來我
結束功能
效果如圖所示: