ยังมีข้อบกพร่องอยู่ในปัจจุบันและหน้าทดสอบล่าสุดคือ: http://www.realllydo.com/getimg.asp
หน้าการวิเคราะห์ปกติอยู่ที่: http://jorkin.realllydo.com/article.asp?id=380
หากคุณพบข้อผิดพลาดโปรดฝากข้อความในภายหลังขอบคุณ
1.31 การแก้ไข
src = ช่องว่างหลังจากไม่สามารถจับคู่ได้อย่างถูกต้อง ที่ตายตัว.
เกิดข้อผิดพลาดเมื่อ src = '' ว่างเปล่า ที่ตายตัว.
พบข้อผิดพลาด: มีเพียงหนึ่งเดียวเท่านั้นที่สามารถเก็บไว้ได้เมื่อเส้นทางภาพมีหลายช่องว่าง ไม่ถูกแก้ไข
2.18 การแก้ไข
เมื่อเส้นทางภาพมีหลายช่องว่างสามารถเก็บบั๊กเพียงตัวเดียวได้ ที่ตายตัว.
การคัดลอกรหัสมีดังนี้:
-
'ฟังก์ชั่น: รับที่อยู่รูปภาพทั้งหมดและบันทึกลงในอาร์เรย์
'ที่มา: http://jorkin.realllydo.com/article.asp?id=448
ต้องใช้ฟังก์ชั่นการแทนที่: http://jorkin.realllydo.com/article.asp?id=406
functiongetimg (sstring)
Dimsreallydo, regex, Ireallydo
dimomatches, cmatch
'// กำหนดอาร์เรย์ที่ว่างเปล่า
IREALLYDO = -1
redimareallydo (Ireallydo)
ifisnull (sstring) จากนั้น
getimg = ""
exitfunction
endif
'// รูปแบบรหัส html
'// นำตัวแบ่งบรรทัด <img แต่ละตัวเพื่ออำนวยความสะดวกในการเปลี่ยนเป็นประจำ
SREALLYDO = SSTRING
onerrorresumenext
SREALLYDO = แทนที่ (SREALLYDO, VBCR, "")
SREALLYDO = แทนที่ (SREALLYDO, VBLF, "")
SREALLYDO = แทนที่ (SREALLYDO, VBTAB, "")
SREALLYDO = แทนที่ (SREALLYDO, "<IMG", VBCRLF & "<IMG", 1, -1,1)
SREALLYDO = แทนที่ (SREALLYDO, "/>", "/>", 1, -1,1)
SREALLYDO = replaceAll (SREALLYDO, "=", "=", จริง)
SREALLYDO = replaceAll (SREALLYDO, ">", ">", จริง)
SREALLYDO = แทนที่ (SREALLYDO, "> <", ">" & VBCRLF & "<")
SREALLYDO = TRIM (SREALLYDO)
onerrorgoto0
setregex = newregexp
regex.ignorecase = true
regex.global = true
'// ลบ onclick, onload และสคริปต์อื่น ๆ
regex.pattern = "/s [on].+? = ([/" "| /'. เหมือนกัน)(.*?)/ 1"