يتم استخدامه بشكل أساسي لإزالة البرنامج النصي وiframe وعلامات HTML الأخرى في HTML ويمكن للأصدقاء المحتاجين الرجوع إليها. انسخ رمز الكود كما يلي:
'=======================================================
'تنسيق HTML، نسخة محسنة من SDCMS
'=======================================================
الدالة Nohtml(ByVal t0)
إذا كان Len(t0)=0 أو IsNull(t0) إذن
Nohtml=
وظيفة الخروج
نهاية إذا
التسجيلات الخافتة، المباريات، المباراة
تعيين Regs = Regexp الجديد
Regs.Ignorecase=صحيح
Regs.Global=صحيح
'قم بتصفية JS وIframe
Regs.pattern =<script.+?/script>
t0=Regs.Replace(t0,)
Regs.pattern =<iframe.+?/iframe>
t0=Regs.Replace(t0,)
"تصفية أخرى."
Regs.Pattern=<.+?>
تعيين التطابقات=Regs.Execute(t0)
إذا Matches.Count>0 ثم
لكل مباراة في المباريات
t0=استبدال(t0,Match.value,)
التالي
نهاية إذا
t0=استبدال(t0, ,)
t0=استبدال(t0,vbCrLf,)
t0=استبدال(t0, ,)
t0=استبدال(t0, ,)
t0=استبدال(t0,CHR(9,)
t0=استبدال(t0,CHR(13,)
t0=استبدال(t0,CHR(10,)
t0=استبدال(t0,CHR(22,)
تعيين التسجيلات = لا شيء
Nohtml=t0
وظيفة النهاية