من الممكن تصفية علامات html ومعالجتها، ولكن أيضًا الاحتفاظ بمعلمة لا تعالج العلامات
وظيفة strip_tags (strHTML، العلامات المسموح بها)
خافت objRegExp، strOutput
set objRegExp = new regexp
strOutput = strHTML
المسموح به = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = صحيح
objRegExp.Global = صحيح
objRegExp.MultiLine = صحيح
objRegExp.Pattern = <(.|/n)+?>
تعيين التطابقات = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
لكل مباراة في المباريات
tagName = objRegExp.Replace(match.value, $2)
إذا كان instr(allowedTags, , & lcase(tagName) & ,) = 0
strOutput = استبدال (strOutput، match.value،)
نهاية إذا
التالي
strip_tags = strOutput
تعيين objRegExp = لا شيء
وظيفة النهاية