コードコピーは次のとおりです。
<％
function Mover（RSTR）
DIM I、SPSTR
spstr = split（rstr、 "、"）
i = 0からubound（spstr）の場合
i = 0の場合
Mover = Mover＆Spstr（i）＆ "、"
それ以外
If strust（Mover、spstr（i））= 0およびi = ubound（spstr）thenの場合
Mover = Mover＆Spstr（i）
Elseif Instr（Mover、spstr（i））= 0 then
Mover = Mover＆Spstr（i）＆ "、"
ifを終了します
ifを終了します
次
エンド関数
Response.Write Mover（ "ABC、ABC、DGE、GCG、DGE、GCG、DGE、GCG、DIE、DIR、DIE"）％>
その結果、ABC、DGE、GCG、DIE、DIR
2つの配列を比較する場合、同じ配列要素を削除します。
コードコピーは次のとおりです。
<％
関数の動き（Farray、Sarray）
a = split（farray、 "、"）
dic = createObject（ "scripting.dictionary"）を設定します
k = 0からubound（a）
a（k）<> "" then dic.add "_"＆a（k）、a（k）の場合
次
a = split（sarray、 "、"）
k = 0からubound（a）
a（k）<> "" thenの場合
dic.exists（ "_"＆a（k））の場合
dic.remove "_"＆a（k）
ifを終了します
ifを終了します
次
items = dic.items（）
DIC =何も設定しません
Mover = join（items、 "、"）
エンド関数
n1 = "a、b、1,11,12,13,14,15,16,17,19,20,22"
n2 = "a、1,12,14,18,19,20"
Response.Write Move（N1、N2）
％>
消す：
3.配列a（a = array（ "ww"、 "ss"、 "dd"、 ""、 "ee"など）には空の要素があります）、
これらの空の要素を配列Aから削除し、空の要素を削除したアレイをアレイBに割り当てたいと思います。
コードコピーは次のとおりです。
str = ""
i = lbound（a）からubund（a）の場合
a（i）<> "" thenの場合
i <> lbound（a）then str = str + "、" end if if
str = str＆a（i）
ifを終了します
次
b = split（str、 "、"）