A cópia do código é a seguinte:
<%
Função Mover (RSTR)
Dim i, spstr
Spstr = dividido (rstr, ",")
Para i = 0 para ubound (spstr)
Se eu = 0 então
Mover = Mover & Spstr (i) & ","
Outro
Se Instr (Mover, SPSTR (I)) = 0 e I = UBOUND (SPSTR) Então
Mover = Mover & Spstr (i)
Elseif Instr (Mover, SPSTR (I)) = 0 Então
Mover = Mover & Spstr (i) & ","
Final se
Final se
Próximo
Função final
Response.Write Mover ("ABC, ABC, DGE, GCG, DGE, GCG, DGE, GCG, Die, Dir, Die")%>
O resultado é: ABC, DGE, GCG, Die, Dir
Se você comparar duas matrizes, remova os mesmos elementos da matriz:
A cópia do código é a seguinte:
<%
Função Move (Farray, Sarray)
a = divisão (Farray, ",")
Set dic = createObject ("script.dictionary")
Para k = 0 a ubound (a)
Se um (k) <> "" então dic.add "_" & a (k), a (k)
Próximo
a = divisão (sarray, ",")
Para k = 0 a ubound (a)
Se um (k) <> "" então
Se dic.exists ("_" & a (k)) então
dic.remove "_" & a (k)
Final se
Final se
Próximo
itens = dic.items ()
Definir dic = nada
Mover = Join (itens, ",")
Função 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)
%>
vire para fora:
3. Existem elementos vazios na matriz A (como a = matriz ("ww", "ss", "dd", "", "ee")),
Quero remover esses elementos vazios da matriz A. e atribuir as matrizes que removeram elementos vazios para a matriz B.
A cópia do código é a seguinte:
str = ""
para i = lbound (a) para ubund (a)
Se um (i) <> "" então
Se eu <> lbound (a) então str = str + "," termine se
str = str & a (i)
final se
próximo
b = divisão (str, ",")