La copie de code est la suivante:
<%
Fonction Mover (RSTR)
Dim I, spstr
Spstr = split (rstr, ",")
Pour i = 0 à Ubound (SPSTR)
Si i = 0 alors
Mover = Mover & spstr (i) & ","
Autre
Si instr (mover, spstr (i)) = 0 et i = ubound (spstr) alors
Mover = Mover & SPSTR (I)
Elseif instlin (mover, spstr (i)) = 0 alors
Mover = Mover & spstr (i) & ","
Terminer si
Terminer si
Suivant
Fonction finale
Response.Write Mover ("ABC, ABC, DGE, GCG, DGE, GCG, DGE, GCG, DIE, DIR, DIE")%>
Le résultat est: ABC, DGE, GCG, DIE, DIR
Si vous comparez deux tableaux, supprimez les mêmes éléments du tableau:
La copie de code est la suivante:
<%
Déplacement de la fonction (Farray, Sarray)
A = Split (Farray, ",")
Set dic = createObject ("scripting.dictionary")
Pour k = 0 à ubound (a)
Si a (k) <> "" alors dic.add "_" & a (k), a (k)
Suivant
A = Split (Sarray, ",")
Pour k = 0 à ubound (a)
Si a (k) <> "" alors
Si dic.exists ("_" & a (k)) alors
dic.remove "_" & a (k)
Terminer si
Terminer si
Suivant
éléments = dic.items ()
Définir DIC = rien
mover = join (items, ",")
Fonction finale
n1 = "a, b, 1,11,12,13,14,15,16,17,19,20,22"
N2 = "A, 1,12,14,18,19,20"
Réponse.Write Move (N1, N2)
%>
s'avérer:
3. Il y a des éléments vides dans le tableau A (comme a = array ("ww", "ss", "dd", "", "ee")),
Je souhaite supprimer ces éléments vides du tableau A. et attribuer les tableaux qui ont supprimé les éléments vides au tableau B.
La copie de code est la suivante:
str = ""
pour i = lbound (a) à ubund (a)
Si un (i) <> "" alors
Si je <> lbound (a) alors str = str + "," fini si
str = str & a (i)
terminer si
suivant
b = fendre (str, ",")