La copia del código es la siguiente:
<%
Función Mover (RSTR)
Dim I, Spstr
Spstr = split (rstr, ",")
Para i = 0 a Ubound (spstr)
Si yo = 0 entonces
Mover = Mover & spstr (i) y ","
Demás
If Instr (Mover, spstr (i)) = 0 y i = Ubound (spstr) entonces
Mover = Mover & spstr (i)
Elseif Instr (Mover, spstr (i)) = 0 entonces
Mover = Mover & spstr (i) y ","
Final si
Final si
Próximo
Función final
Response.Write Mover ("ABC, ABC, DGE, GCG, DGE, GCG, DGE, GCG, Die, Dir, Die")%>
El resultado es: ABC, DGE, GCG, Die, Dir
Si compara dos matrices, elimine los mismos elementos de la matriz:
La copia del código es la siguiente:
<%
Función Move (Farray, Sarray)
a = Split (Farray, ",")
Establecer dic = createObject ("scripting.dictionary")
Para k = 0 a Ubound (a)
Si a (k) <> "" entonces dic.add "_" & a (k), a (k)
Próximo
a = Split (Sarray, ",")
Para k = 0 a Ubound (a)
Si a (k) <> "" entonces
If dic.exists ("_" & a (k)) entonces
Dic.remove "_" & A (k)
Final si
Final si
Próximo
elementos = dic.Items ()
Establecer DIC = nada
Mover = unirse (elementos, ",")
Función final
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)
%>
apagar:
3. Hay elementos vacíos en la matriz a (como a = array ("ww", "ss", "dd", "", "ee"),
Quiero eliminar estos elementos vacíos de la matriz A. y asignar las matrices que han eliminado elementos vacíos a la matriz B.
La copia del código es la siguiente:
str = ""
para i = lbound (a) a Ubund (a)
Si a (i) <> "" entonces
Si i <> lbound (a) entonces str = str + "," finalizar si
str = str & a (i)
final si
próximo
b = dividido (str, ",")