Direkomendasikan: string tag ASP menentukan bahwa mereka tidak peka Kode fungsi penggantian biasa adalah sebagai berikut: Sorotan fungsi publik (s, f) redup tl, tm, tr, k tl = tm = tr = s k = instr (1, tr, f, 1) lakukan sementara k0 tl = tl kiri (tr, k-1) tm = mid, k, len (f)) tl = tl span style = 'color: red' rentang tr = kanan (tr, len (tr) -len (f) -k+1) k = instr (1, tr, f, 1) loop hig
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 ada beberapa ruang di jalur gambar. Tidak dikoreksi.
2.18 Koreksi
Ketika jalur gambar memiliki banyak ruang, hanya satu bug yang dapat dipertahankan. Tetap.
<%
'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
Fungsi getimg (sstring)
Redup sreallydo, regex, irealllydo
Omatch redup, CMatch
'// Tentukan array kosong
irealllydo = -1
Redim areallydo (ireallydo)
Jika isnull (sstring) lalu
getImg = areallydo
Fungsi keluar
Akhiri jika
'// Format kode html
'// Bawalah setiap istirahat <img line untuk memfasilitasi penggantian reguler
sreallydo = sstring
Pada kesalahan resume berikutnya
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)
Atur regex = regexp baru
Regex.ignorecase = true
regex.global = true
'// Hapus OnClick, Onload, dan skrip lainnya
Regex.pattern = /s mediaon media.+?=($ media/|/'ht)(.*?)/1
sreallydo = regex.replace (sreallydo,)
'// Letakkan alamat gambar SRC tanpa kutipan
regex.pattern = <img.*?/ssrc = ([^// '/s] [^//'/s>]*).*?>
sreallydo = regex.replace (sreallydo, <img src = $ 1 />)
'// Cocokkan alamat SRC gambar secara teratur
http://bizhi.cncms.com/
regex.pattern = <img.*?/ssrc = ([// ']) ([^//']+?)/1.*?>
Set ocatches = regex.execute (srealllydo)
'// Simpan alamat gambar ke dalam array
Untuk setiap cMatch di ocatches
irealllydo = ireallydo + 1
Redim Preserve Areallydo (Ireallydo)
AREALLYDO (IREALLYDO) = Regex.replace (Cmatch.Value, $ 2)
Berikutnya
getImg = areallydo
Fungsi akhir
%>
<%
'Penggunaan: Banyak orang bertanya kepada saya bagaimana menggunakannya, tetapi pada kenyataannya, bagaimana menggunakan array.
scontent = bidang kode html '// scontent mewakili kode HTML. Ternyata jika Anda menulis ORS, mengapa Anda tidak mengerti bahwa itu adalah set rekaman? . .
Tujuan Dim: AIMAGES = getImg (scontent) '// Tentukan array dan gunakan untuk menyimpan semua alamat gambar yang dianalisis
'Sebutkan alamat semua gambar:
Untuk i = 0 ke ubound (tujuan)
Response.write (<b> Hal & I + 1 & Alamat Gambar: </b> & Aimages (i) & <br />)
Berikutnya
'Daftar alamat gambar pertama:
Jika ubound (AIMAGES)> -1 maka response.write (<p> <b> Alamat gambar pertama: </b> & AIMAGES (0) & </p>)
'Sebutkan alamat gambar terakhir:
Jika ubound (AIMAGS)> -1 maka response.write (<p> <b> Alamat gambar terakhir: </b> & AIMAGES (ubound (AIMAGES)) & </p>)
%>
Bagikan: Cara Mengganti Ganti di ASP Jika tidak sensitif Mari pertama -tama lihat deskripsi parameter terperinci tentang ganti string return, di mana sejumlah substring yang ditentukan diganti dengan substring lain. Sintaks REPLACE (Ekspresi, Temukan, Ganti dengan [, bandingkan [, hitung [, start]]])) Sintaks fungsi ganti memiliki parameter berikut: Ekspresi deskripsi parameter diperlukan. Paket Ekspresi String