'รูปแบบ把修改了下
'รหัส要检测的代码
'http://www.downcodes.com/asp.asp
'leixing html หรือ ubb
'nopic 代码没有วอลล์เปเปอร์时默认值
ฟังก์ชั่นหัวข้อ (รหัส, leixing, nopic)
ตั้งค่า regex = regexp ใหม่
regex.ignorecase = จริง
regex.global = จริง
ถ้า leixing = "html" แล้ว
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
อื่น
regex.pattern = "[img]([^u005B]+)“
สิ้นสุดถ้า
ตั้งค่าการจับคู่ = regex.execute (รหัส)
ถ้า regex.test (รหัส) แล้ว
ถ้า leixing = "html" แล้ว
หัวข้อ = แมตช์ (0). แมตช์ย่อย (3)
อื่น
หัวข้อ = แมตช์ (0). แมตช์ย่อย (0)
สิ้นสุดถ้า
อื่น
ทอปพิค = โนพิค
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
code1 = "<img src=""1.gif"">"
pic = หัวข้อ(code1,"html", "nopic.gif")
ตอบกลับ เขียนรูป