<٪
'*********************************
'الدالة: removeHref_A (htmlstr)
"الوسائط: HTMLSTRST ، السلسلة المراد إزالتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع الارتباطات التشعبية في السلسلة
"مثال: <٪ = removeHref_a (" <ahref =/abc/h.html> اختبار </a>) ٪>
'*********************************
functionRemoveHref_A (HTMLSTR)
Dimn ، Str1 ، Str2 ، Str3 ، Str4
HTMLSTR = LCASE (HTMLSTR)
forn = 1toubound (تقسيم (htmlstr ، "<a"))
str1 = instr (htmlstr ، "<a")
str2 = instr (str1 ، htmlstr ، ">")
htmlstr = يسار (htmlstr ، str1-1) واليمين (htmlstr ، len (htmlstr) -len (يسار (htmlstr ، str2)))))
htmlstr = استبدال (htmlstr ، "</a>" ، "")
removeHref_a = htmlstr
التالي
الوظيفية
٪>
قم بإزالة جميع الارتباطات التشعبية بانتظام في الأوتار
<٪
'*********************************
"الوظيفة: RepremoveHref (HTMLSTR)
"الوسائط: HTMLSTRST ، السلسلة المراد إزالتها
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: قم بإزالة جميع الارتباطات التشعبية في الأوتار بالمنتظم
"مثال: <٪ = recremoveHref (" <ahref =/abc/h.html> اختبار </a> ") ٪>
'*********************************
FunctionRegremoveHref (HTMLSTR)
setra = newregexp
ra.ignorecase = صحيح
ra.global = صحيح
ra.pattern = "<a [^>]+> (.+؟) <// a>"
RepremoveHref = ra.replace (htmlstr ، "$ 1")
الوظيفية
٪>