هذه المقالة عبارة عن وظيفة لحذف المصفوفات المكررة ضمن asp وقد تم اختبارها.
لأنني أردت أن أكتب شيئًا للاستخدام، فقد بحثت في بايدو ووجدت أن أحد الأصدقاء قد كتبه بشكل عشوائي، وكان هناك الكثير منه ولم أختبره بعناية، وكان يعمل فقط مع الأحرف، ولكن ليس مع الأرقام. كما أنها كانت ذات تنوع ضعيف وتحتاج إلى تعديل ويمكن استخدامها بالفعل. لم يكن لدي خيار سوى كتابته بنفسي، بعد الاختبار، لم تكن هناك مشكلة على الإطلاق، وكانت الفكرة مريحة للغاية وكان الكود قصيرًا جدًا، كما يلي:
انسخ رمز الكود كما يلي:
<%
الدالة cxarraynull(cxstr1,cxstr2)
إذا كان isarray(cxstr1) إذن
cxarraynull = "عذرًا، لا يمكن أن تكون المعلمة 1 مصفوفة"
وظيفة الخروج
نهاية إذا
إذا كان cxstr1 = "" أو فارغًا (cxstr1) إذن
cxarraynull = "عقدة"
وظيفة الخروج
نهاية إذا
سس = انقسام (cxstr1، cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
لـ m = 0 إلى ubound(ss)
سم مكعب = cxstr2&ss(m)&cxstr2
إذا كان instr(sss,cc)=0 إذن
sss = sss&ss(m)&cxstr2
نهاية إذا
التالي
cxarraynull = حق(sss,len(sss) - لين(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
وظيفة النهاية
%>
استخدام الأساليب والوظائف:
1. معلمتان في الدالة cxarraynull(cxstr1,cxstr2):
cxstr1: يمكن أن يكون متغير المصفوفة المراد اكتشافه فارغًا أو بيانات خطأ غير معروفة أخرى، وعندما يكون فارغًا أو بيانات خطأ، يتم إرجاع "nodate".
cxstr2: رمز تقسيم المصفوفة، والذي يمكن أن يكون فارغًا أو chr(13) وما إلى ذلك، وسيتم استبدال الإخراج تلقائيًا.
2. رمز الاختبار:
<%
ق = "1،2،3،4،2،3،5،3"
الصورة = cxarraynull(s،"،"،)
استجابة.اكتب ق
%>
الإخراج: 1،2،3،4،5
تعمل النسخة المحسنة من Script House على حل مشكلة الفاصلة في الرقم الأخير من المصفوفة.
انسخ رمز الكود كما يلي:
<%
الدالة cxarraynull(cxstr1,cxstr2)
إذا كان isarray(cxstr1) إذن
cxarraynull = "عذرًا، لا يمكن أن تكون المعلمة 1 مصفوفة"
وظيفة الخروج
نهاية إذا
إذا كان cxstr1 = "" أو فارغًا (cxstr1) إذن
cxarraynull = "عقدة"
وظيفة الخروج
نهاية إذا
افعل ذلك أثناء instr(cxstr1,,,")>0
cxstr1=replace(cxstr1"،،،"،"،")
حلقة
إذا كان صحيحًا (cxstr1،1) = "،" إذن
cxstr1=يسار(cxstr1,لين(cxstr1)-1)
نهاية إذا
سس = انقسام (cxstr1، cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
لـ m = 0 إلى ubound(ss)
سم مكعب = cxstr2&ss(m)&cxstr2
إذا instr(sss,cc)=0 إذن
sss = sss&ss(m)&cxstr2
نهاية إذا
التالي
cxarraynull = حق(sss,len(sss) - لين(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
وظيفة النهاية
%>
رمز الاختبار:
انسخ رمز الكود كما يلي:
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,, ,,,,,,,,,,,"
الصورة = cxarraynull(s،"،"،)
استجابة.اكتب ق