บทความนี้เป็นฟังก์ชันในการลบอาร์เรย์ที่ซ้ำกันภายใต้ asp และได้รับการทดสอบแล้ว
เนื่องจากฉันต้องการเขียนบางอย่างเพื่อใช้ ฉันจึงค้นหาใน Baidu และพบว่าเพื่อนคนหนึ่งเขียนมันแบบสุ่ม และมีจำนวนค่อนข้างมาก ฉันไม่ได้ทดสอบอย่างระมัดระวัง มันใช้งานได้กับตัวอักษรเท่านั้น แต่ใช้ไม่ได้กับตัวเลข มันยังมีความสามารถรอบด้านต่ำและจำเป็นต้องแก้ไข สามารถใช้งานได้จริง ฉันไม่มีทางเลือกอื่นนอกจากต้องเขียนเอง หลังจากทดสอบแล้ว ก็ไม่มีปัญหาใดๆ เลย แนวคิดนี้สะดวกมากและโค้ดก็สั้นมาก ดังนี้
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น cxarraynull (cxstr1, cxstr2)
ถ้า isarray(cxstr1) แล้ว
cxarraynull = "ขออภัย พารามิเตอร์ 1 ไม่สามารถเป็นอาร์เรย์ได้"
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ถ้า cxstr1 = "" หรือ isempty(cxstr1) แล้ว
cxarraynull = "โหนด"
ออกจากฟังก์ชัน
สิ้นสุดถ้า
เอสเอส = แยก(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
เอสเอส = cxs
สำหรับ m = 0 ถึง ubound(ss)
ซีซี = cxstr2&ss(m)&cxstr2
ถ้า instr(sss,cc)=0 แล้ว
sss = sss&ss(m)&cxstr2
สิ้นสุดถ้า
ต่อไป
cxarraynull = ขวา (sss, len (sss) - len (cxstr2))
cxarraynull = ซ้าย (cxarraynull, len (cxarraynull) - len (cxstr2))
ฟังก์ชั่นสิ้นสุด
-
โดยใช้วิธีการและฟังก์ชัน:
1. พารามิเตอร์สองตัวในฟังก์ชัน cxarraynull(cxstr1,cxstr2):
cxstr1: ตัวแปรอาร์เรย์ที่จะตรวจพบสามารถว่างเปล่าหรือข้อมูลข้อผิดพลาดที่ไม่รู้จักอื่น ๆ เมื่อว่างเปล่าหรือมีข้อมูลข้อผิดพลาด "nodate" จะถูกส่งกลับ
cxstr2: สัญลักษณ์การแยกของอาร์เรย์ ซึ่งอาจว่างเปล่าหรือ chr(13) ฯลฯ และเอาต์พุตจะถูกแทนที่โดยอัตโนมัติ
2. รหัสทดสอบ:
-
s="1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
ตอบกลับเขียน
-
เอาท์พุต: 1,2,3,4,5
Script House เวอร์ชันปรับปรุงแก้ปัญหาเครื่องหมายจุลภาคในหลักสุดท้ายของอาร์เรย์
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น cxarraynull (cxstr1, cxstr2)
ถ้า isarray(cxstr1) แล้ว
cxarraynull = "ขออภัย พารามิเตอร์ 1 ไม่สามารถเป็นอาร์เรย์ได้"
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ถ้า cxstr1 = "" หรือ isempty(cxstr1) แล้ว
cxarraynull = "โหนด"
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ทำในขณะที่ instr(cxstr1,",,")>0
cxstr1=แทนที่(cxstr1,",,",",")
วนซ้ำ
ถ้าใช่(cxstr1,1)="," แล้ว
cxstr1=ซ้าย(cxstr1,เลน(cxstr1)-1)
สิ้นสุดถ้า
เอสเอส = แยก(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
เอสเอส = cxs
สำหรับ m = 0 ถึง ubound(ss)
ซีซี = cxstr2&ss(m)&cxstr2
ถ้า instr(sss,cc)=0 แล้ว
sss = sss&ss(m)&cxstr2
สิ้นสุดถ้า
ต่อไป
cxarraynull = ขวา (sss, len (sss) - len (cxstr2))
cxarraynull = ซ้าย (cxarraynull, len (cxarraynull) - len (cxstr2))
ฟังก์ชั่นสิ้นสุด
-
รหัสทดสอบ:
คัดลอกรหัสรหัสดังต่อไปนี้:
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,,66,,66,,,,,,,,,,,,, ,,,,,,,,,,,,"
s=cxarraynull(s,",")
ตอบกลับเขียน