การคัดลอกรหัสมีดังนี้:
-
ผู้เสนอญัตติฟังก์ชั่น (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, ตาย, Dir, ตาย")%>
ผลที่ได้คือ: abc, dge, gcg, ตาย, dir
หากคุณเปรียบเทียบสองอาร์เรย์ให้ลบองค์ประกอบอาร์เรย์เดียวกัน:
การคัดลอกรหัสมีดังนี้:
-
ฟังก์ชั่นย้าย (Farray, Sarray)
a = split (farray, ",")
ตั้งค่า 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)
สิ้นสุดถ้า
สิ้นสุดถ้า
ต่อไป
รายการ = dic.items ()
ตั้งค่า dic = ไม่มีอะไร
mover = เข้าร่วม (รายการ, ",")
ฟังก์ชันสิ้นสุด
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")),
ฉันต้องการลบองค์ประกอบที่ว่างเปล่าเหล่านี้ออกจากอาร์เรย์ A และกำหนดอาร์เรย์ที่ได้ลบองค์ประกอบที่ว่างเปล่าไปยังอาร์เรย์ B.
การคัดลอกรหัสมีดังนี้:
str = ""
สำหรับ i = lbound (a) ถึง ubund (a)
ถ้า a (i) <> "" แล้ว
ถ้าฉัน <> lbound (a) แล้ว str = str + "," จบถ้า
str = str & a (i)
สิ้นสุดถ้า
ต่อไป
b = แยก (str, ",")