Salinan kode adalah sebagai berikut:
<%
Function Mover (RSTR)
Redup i, spstr
Spstr = split (rstr, ",")
Untuk i = 0 ke ubound (SPSTR)
Jika i = 0 lalu
Penggerak = penggerak & spstr (i) & ","
Kalau tidak
If instr (penggerak, spstr (i)) = 0 dan i = ubound (spstr)
Penggerak = penggerak & spstr (i)
Elseif instr (penggerak, spstr (i)) = 0 lalu
Penggerak = penggerak & spstr (i) & ","
Akhiri jika
Akhiri jika
Berikutnya
Fungsi akhir
Response.write Mover ("ABC, ABC, DGE, GCG, DGE, GCG, DGE, GCG, Die, Dir, Die")%>
Hasilnya adalah: ABC, DGE, GCG, Die, Dir
Jika Anda membandingkan dua array, hapus elemen array yang sama:
Salinan kode adalah sebagai berikut:
<%
Function Move (Farray, Sarray)
a = split (farray, ",")
Set dic = createObject ("Scripting.Dictionary")
Untuk k = 0 ke ubound (a)
Jika a (k) <> "" maka DIC.Add "_" & a (k), a (k)
Berikutnya
a = split (Sarray, ",")
Untuk k = 0 ke ubound (a)
Jika a (k) <> "" lalu
Jika DIC.exists ("_" & a (k)) lalu
DIC.Remove "_" & a (k)
Akhiri jika
Akhiri jika
Berikutnya
Item = DIC.Items ()
Atur DIC = tidak ada
penggerak = bergabung (item, ",")
Fungsi akhir
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)
%>
ternyata:
3. Ada elemen kosong dalam array a (seperti a = array ("ww", "ss", "dd", "", "ee"), "
Saya ingin menghapus elemen -elemen kosong ini dari Array A. dan menetapkan array yang telah menghapus elemen kosong ke array B.
Salinan kode adalah sebagai berikut:
str = ""
untuk i = lbound (a) ke ubund (a)
Jika a (i) <> "" lalu
Jika saya <> lbound (a) maka str = str + "," akhiri jika
str = str & a (i)
akhiri jika
Berikutnya
b = split (str, ",")