Die Codekopie lautet wie folgt:
<%
Funktion MOVER (RSTR)
Dim i, spstr
SPSTR = Split (rstr, ",")
Für i = 0 bis Ubound (SPSTR)
Wenn i = 0 dann
Mover = Mover & Spstr (i) & ",", ",", ",", ",", ",", ",", ",", ",", "
Anders
Wenn instr (Mover, SPSTR (i)) = 0 und i = Ubound (SPSTR) dann
Mover = Mover & SPSTR (i)
Elseif instr (Mover, SPSTR (i)) = 0 dann
Mover = Mover & Spstr (i) & ",", ",", ",", ",", ",", ",", ",", ",", "
Ende wenn
Ende wenn
Nächste
Endfunktion
Antwort.Write Mover ("ABC, ABC, DGE, GCG, DGE, GCG, DGE, GCG, Die, Dir, Die")%>
Das Ergebnis ist: ABC, DGE, GCG, Die, Dir
Wenn Sie zwei Arrays vergleichen, entfernen Sie dieselben Arrayelemente:
Die Codekopie lautet wie folgt:
<%
Funktionsbewegung (FARRAY, SARRAY)
a = split (farray, ",")
Setzen Sie dic = createObject ("scripting.Dictionary")
Für k = 0 bis Ubound (a)
Wenn a (k) <> "" dann dic.add "_" & a (k), a (k)
Nächste
A = Split (Sarray, ",")
Für k = 0 bis Ubound (a)
Wenn a (k) <> "" dann
Wenn dic.exists ("_" & a (k)) dann
dic.remove "_" & a (k)
Ende wenn
Ende wenn
Nächste
items = dic.items ()
Setzen Sie dic = nichts
Mover = Join (Elemente ",")
Endfunktion
N1 = "A, B, 1,11,12,13,14,15,16,17,19,20,22"
N2 = "A, 1,12,14,18,19,20"
Antwort.Write Move (N1, N2)
%>
sich herausstellen:
3.. Es gibt leere Elemente in Array A (wie a = Array ("ww", "ss", "dd", "", "ee"),
Ich möchte diese leeren Elemente aus Array A entfernen und die Arrays zuweisen, die leere Elemente an Array B entfernt haben. B.
Die Codekopie lautet wie folgt:
str = ""
für i = lBund (a) zu Ubund (a)
Wenn a (i) <> "" dann
Wenn ich (a) dann (a) dann bin = str + "," beenden Sie, wenn
str = str & a (i)
Ende wenn
nächste
b = split (str, ",")