-
-
'ฟังก์ชั่น: removehref_a (htmlstr)
'อาร์กิวเมนต์: htmlstr, สตริงที่จะลบ
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: ลบไฮเปอร์ลิงก์ทั้งหมดในสตริง
'ตัวอย่าง: <%= removehref_a ("<ahref =/abc/h.html> ทดสอบ </a>")%>
-
functionRemoveHref_a (htmlstr)
dimn, str1, str2, str3, str4
htmlstr = lcase (htmlstr)
forn = 1toubound (split (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
ต่อไป
endfunction
-
ลบไฮเปอร์ลิงก์ทั้งหมดเป็นประจำในสตริง
-
-
'ฟังก์ชั่น: regremovehref (htmlstr)
'อาร์กิวเมนต์: htmlstr, สตริงที่จะลบ
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: ลบไฮเปอร์ลิงก์ทั้งหมดในสตริงโดยปกติ
'ตัวอย่าง: <%= regremovehref ("<ahref =/abc/h.html> ทดสอบ </a>")%>
-
FunctionRegremoveHref (HTMLSTR)
setra = newregexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
regremovehref = ra.replace (htmlstr, "$ 1")
endfunction
-