نسخة الكود كما يلي:
<٪
وظيفة محرك (RSTR)
قاتمة أنا ، spstr
spstr = split (rstr ، "،")
لأني = 0 إلى Ubound (SPSTR)
إذا كنت = 0 ثم
MOVER = MOVER & SPSTR (I) & "،" ، "
آخر
إذا instr (المحرك ، spstr (i)) = 0 و i = ubound (spstr) ثم
المحرك = المحرك و SPSTR (i)
elseif instr (المحرك ، 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
إذا قارنت صفيفتين ، فقم بإزالة عناصر الصفيف نفسها:
نسخة الكود كما يلي:
<٪
حركة الوظيفة (فاراي ، ساراي)
أ = انقسام (فاراي "،")
SET DIC = createObject ("scripting.dictionary")
لـ K = 0 إلى Ubound (أ)
إذا كان A (k) <> "" ثم dic.add "_" & a (k) ، a (k)
التالي
أ = انقسام (ساراي "،")
لـ K = 0 إلى Ubound (أ)
إذا كان (ك) <> "" ثم
إذا كان dic.exists ("_" & a (k)) ثم
dic.remove "_" & a (k)
إنهاء إذا
إنهاء إذا
التالي
العناصر = dic.items ()
تعيين DIC = لا شيء
المحرك = الانضمام (العناصر "،")
وظيفة نهاية
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. هناك عناصر فارغة في Array A (مثل A = Array ("WW" ، "SS" ، "DD" ، "" ، "EE") ،
أرغب في إزالة هذه العناصر الفارغة من Array A. وتعيين المصفوفات التي أزالت عناصر فارغة إلى Array B.
نسخة الكود كما يلي:
str = ""
ل I = lbound (أ) إلى أوبوند (أ)
إذا كان (i) <> "" ثم
إذا كنت <> lbound (a) ثم str = str + "،" end if
str = str & a (i)
إنهاء إذا
التالي
ب = انقسام (str ، "،")