コードコピーは次のとおりです。
<%
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、 "、")