配列の重複排除[VBS]

関数quchongfu（srcstr、IG、SP）
 薄暗いobjDict、X、Y
 srcarr =スプリット（トリム（srcstr）、SP）
 を設定objDict =のCreateObject（ "Scripting.Dictionary"）
 srcArrにおける各xについて
  もしx <> ""そして
   もしIG = trueの場合、
    Y = LCASE（x）は
   エルス
    のy = xは
   場合は終了
   後objDict.Addのx、yがない場合はobjDict.Exists（y）が
  終了した場合
 次は
 、X =（objDict.Items、SP）を参加
 権（X場合は、1 ）= SP次に
  quchongfu =左（X、レン（X）-1）
 エルス
  quchongfu = xが
 終了する場合
 の設定objDict =何も
エンド機能
 
のMsgBox quchongfu（「AAA、SSS ,,, AAA、CCC、AAA、AAA、ZZZ、SSSSSS ,, "trueの場合、"、」）

ます。https：//www.cnblogs.com/aspphpvbs/archive/2013/04/21/3034282.htmlで再現