Кода -копия выглядит следующим образом:
<%
Функциональный двигатель (RSTR)
DIM I, SPSTR
Spstr = split (rstr, ",")
Для i = 0 до ubound (spstr)
Если я = 0, тогда
Mover = mover & spstr (i) & ","
Еще
Если instr (mover, spstr (i)) = 0 и i = ubound (spstr), тогда
Mover = Mover & Spstr (I)
Elseif instr (Mover, spstr (i)) = 0 тогда
Mover = mover & spstr (i) & ","
Конец, если
Конец, если
Следующий
Конечная функция
response.Write Mover ("ABC, ABC, DGE, GCG, DGE, GCG, DGE, GCG, DIE, DIR, DIE")%>
Результат: ABC, DGE, GCG, Die, Dir
Если вы сравниваете два массива, удалите одни и те же элементы массива:
Кода -копия выглядит следующим образом:
<%
Функциональное движение (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)
Если (k) <> "", тогда
Если dic.exists ("_" & a (k)) тогда
dic.remove "_" & a (k)
Конец, если
Конец, если
Следующий
элементы = dic.items ()
Установить DIC = ничего
Mover = Join (элементы, ",")
Конечная функция
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")),
Я хочу удалить эти пустые элементы из массива А. и назначить массивы, которые удалили пустые элементы для массива B.
Кода -копия выглядит следующим образом:
str = ""
для i = lbound (a) до ubund (a)
Если (i) <> "" Тогда
Если я <> lbound (a), то str = str + "," end if
str = str & a (i)
конец, если
следующий
b = split (str, ",")