코드 사본은 다음과 같습니다.
<%
기능 발동기 (RSTR)
Dim I, SPSTR
spstr = split (rstr, ",")
i = 0에서 ubound (spstr)
i = 0이면
Mover = Mover & SPSTR (I) & ","
또 다른
악기 (Mover, spstr (i)) = 0이고 i = ubound (spstr)
Mover = Mover & SPSTR (I)
Elseif Instr (Mover, SPSTR (i)) = 0
Mover = Mover & SPSTR (I) & ","
끝 If
끝 If
다음
엔드 기능
응답
결과는 ABC, DGE, GCG, DIE, DIR입니다
두 배열을 비교하면 동일한 배열 요소를 제거하십시오.
코드 사본은 다음과 같습니다.
<%
기능 이동 (Farray, Sarray)
a = split (farray, ",")
set dic = createobject ( "scripting.dictionary")
k = 0으로 ubound (a)
a (k) <> "" "그 다음 dic.add"_ "& a (k), a (k)
다음
a = split (sarray, ",")
k = 0으로 ubound (a)
A (k) <> "" "라면
dic.exists ( "_"& a (k)) 인 경우
dic.remove "_"& a (k)
끝 If
끝 If
다음
항목 = dic.Items ()
DIC = 아무것도 설정하지 않습니다
Mover = Join (항목, ",")
엔드 기능
N1 = "A, B, 1,11,12,13,14,15,17,19,20,22"
N2 = "A, 1,12,14,18,19,20"
응답.
%>
나가기 :
3. 배열 A에는 빈 요소가 있습니다 (예 : a = array ( "ww", "ss", "dd", "", "ee"),
배열 A에서 빈 요소를 제거하고 빈 요소를 제거한 배열을 배열 B에 할당하고 싶습니다.
코드 사본은 다음과 같습니다.
str = ""
i = lbound (a)에 Ubund (A)의 경우
A (i) <> "" "라면
I <> lbound (a)이면 str = str + ","끝 If
str = str & a (i)
끝 If
다음
b = split (str, ",")