Masih ada bug saat ini, dan halaman tes terbaru adalah: http://www.reallydo.com/getimg.asp
Halaman analisis reguler ada di: http://jorkin.reallydo.com/article.asp?id=380
Jika Anda menemukan bug, silakan tinggalkan pesan nanti, terima kasih.
1.31 Koreksi
src = spasi setelah tidak dapat cocok dengan benar. Tetap.
Terjadi kesalahan saat src = '' kosong. Tetap.
Bug ditemukan: Hanya satu yang dapat dipertahankan ketika jalur gambar memiliki banyak ruang. Tidak dikoreksi.
2.18 Koreksi
Ketika jalur gambar memiliki banyak ruang, hanya satu bug yang dapat dipertahankan. Tetap.
Salinan kode adalah sebagai berikut:
<%
'Fungsi: Dapatkan semua alamat gambar dan simpan ke array.
'Sumber: http://jorkin.reallydo.com/article.asp?id=448
'ReplaceAll Function diperlukan: http://jorkin.reallydo.com/article.asp?id=406
FunctiongetImg (sString)
Dimsreallydo, regex, ireallydo
DimoMatches, CMatch
'// Tentukan array kosong
irealllydo = -1
Redimareallydo (ireallydo)
Ifisnull (sstring) lalu
getimg = ""
Fungsi keluar
Endif
'// Format kode html
'// Bawalah setiap istirahat <img line untuk memfasilitasi penggantian reguler
sreallydo = sstring
OnerrorresumeNext
sreallydo = ganti (sreallydo, vbcr, "")
sreallydo = ganti (sreallydo, vblf, "")
sreallydo = ganti (sreallydo, vbtab, "")
sreallydo = ganti (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = ganti (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = replaceall (sreallydo, "=", "=", true)
sreallydo = replaceall (sreallydo, ">", ">", true)
sreallydo = ganti (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = trim (sreallydo)
Onerrorgoto0
SetRegex = newregexp
Regex.ignorecase = true
regex.global = true
'// Hapus OnClick, Onload, dan skrip lainnya
Regex.pattern = "/s [on].+? = ([/" "| /'bum)(.*?)/ 1"