ตัดอักขระ N ตัวด้วย HTML จากสตริง วิธีการนำไปใช้ปัจจุบันไม่สมบูรณ์ กระบวนการคือ: ค้นหาจุดเริ่มต้นของตัวควบคุมต่างๆ จากสตริง จากนั้นแยกพวกมันตามลำดับ ใส่ลงในอาร์เรย์ แล้วเพิ่มทีละตัว อาร์เรย์ ลองพิจารณาดูว่าอักขระนั้นมากกว่าอักขระที่กำหนดหรือไม่ หากเป็นเช่นนั้น ให้ส่งคืนอาร์เรย์นี้
พารามิเตอร์ 'ชื่อฟังก์ชัน: getHTMLContent': NO-->จำนวนอักขระที่จะได้รับ txtContent-->สตริงที่จะประมวลผล
'ฟังก์ชัน: ตัดอักขระ N ด้วย HTML จากสตริง วิธีการดำเนินการปัจจุบันไม่สมบูรณ์ กระบวนการคือ: ค้นหาจุดเริ่มต้นของตัวควบคุมต่างๆ จากสตริง จากนั้นแยกพวกมัน ใส่ลงในอาร์เรย์ จากนั้นเพิ่มทีละตัว อาร์เรย์เพื่อดูว่าอักขระนั้นมากกว่าอักขระที่กำหนดหรือไม่ หากเป็นเช่นนั้น ให้ส่งคืนอาร์เรย์นี้
'ผู้เขียน: หลิว Yongfa
เวลา: 1-6-2550 20:03 :)
ฟังก์ชั่น getHTMLContent (NO, txtContent)
ถ้า Len(txtContent)<= NO แล้ว
getHTMLContent = txtContent
ออกจากฟังก์ชั่น
สิ้นสุดถ้า
ตั้งค่าใหม่ = RegExp ใหม่
re.IgnoreCase = จริง
re.Global = จริง
รูปแบบ =<p|<br|<li|<table
รูปแบบ = แยก (รูปแบบ,|)
สำหรับแต่ละ p ในรูปแบบ
re.รูปแบบ = p
txtContent = re.แทนที่ (txtContent,||& p )
ต่อไป
txtContent = แยก (txtContent,||)
ForEach E ใน txtContent
ถ้า Len>NO แล้วออกFor
ส = ส + อี
ต่อไป
getHTMLContent=s
EndFunction
-