Mencegat N karakter HTML dari sebuah string. Metode implementasi saat ini tidak sempurna. Prosesnya adalah: temukan permulaan berbagai kontrol dari string, lalu pisahkan secara berurutan, masukkan ke dalam array, lalu tambahkan satu per satu ke dalam satu string. array. Muncul dan lihat apakah karakternya lebih besar dari karakter yang diberikan.
'Nama fungsi: getHTMLContent' Parameter: TIDAK-->Jumlah karakter yang akan diperoleh, txtContent-->String yang akan diproses
'Fungsi: mencegat N karakter HTML dari string. Metode implementasi saat ini tidak sempurna. Prosesnya adalah: temukan permulaan berbagai kontrol dari string, lalu pisahkan, masukkan ke dalam array, lalu satu per satu Tambahkan array untuk melihat apakah karakternya lebih besar dari karakter yang diberikan. Jika ya, kembalikan array ini.
'Penulis: Liu Yongfa
'Waktu: 2007-6-1 20:03 :)
Fungsi getHTMLContent(TIDAK, txtContent)
Jika Len(txtContent)<= TIDAK Lalu
getHTMLContent = txtKonten
Fungsi Keluar
AkhirJika
Setel ulang =RegExp Baru
re.IgnoreCase = Benar
re.Global = Benar
pola =<p|<br|<li|<tabel
pola = Pisahkan(pola,|)
UntukSetiap p dalam pola
re.Pola = hal
txtContent = re.Replace(txtContent,||& p )
Berikutnya
txtKonten = Pisahkan(Konten txt,||)
UntukSetiap E di txtContent
Jika Len(s)>NO KemudianExitFor
s = s + E
Berikutnya
dapatkanHTMLKonten=s
Fungsi Akhir
%>