تصفية الأحرف غير القانونية <%
الدالة Cutbadchar(str)
badstr=un|حرفي|مسح|حرف|رمز|عمود|جدول|تنسيق|تنسيق
كلمة سيئة = انقسام (badstr، |)
بالنسبة إلى i=0 إلى Ubound(badword)
إذا instr(str,badword(i))> 0 ثم
str=Replace(str,badword(i),***)
نهاية إذا
التالي
Cutbadchar=str
وظيفة النهاية
الرد: كتابة Cutbadchar (اختراع نقطة إطلاق Buadou في الصين)
%>