Terkadang kita ingin menampilkan content web site dalam short list dengan highlight content yang singkat sebagai text murni tanpa ada fungsi HTML didalamnya misalnya dalam search result, archives list etc. untuk itu kita perlu membuang HTML tag yang ada di dalam content tersebut. blok script dibawah ini dibuat dalam bahasa pemrogramman classic ASP dapat digunakan untuk keperluan tersebut, sistem kerja script ini adalah dengan membuang semua text yang berada diantara tanda < dan > termasuk ke dua tanda tersebut (HTML tag selalu diawali dengan tanda < dan ditutup dengan tanda >).
Tentu saja script ini masih memiliki kelemahan, karena masih ada kemungkinan bahwa tanda < dan > yang digunakan dalam content tersebut bukanlah HTML tag, misalnya jika content tersebut berisi blok kode fungsi matematika perbandingan (jika tanda-tanda tersebut tidak diubah ke dalam HTML entity characters) maka mungkin hasilnya nanti tidak seperti yang diharapkan (meski sangat jarang terjadi karena biasanya sebuah aplikasi web dinamis akan mengubah symbol-symbol yang bukan merupakan Tag HTML menjadi HTML Entity Characters misalnya < menjadi < dan > menjadi >).
Classic ASP Strip HTML Function
dim isHTML, intStartPos_, intEndPos_
dim strTempHTMLStart_ , strTempHTMLEnd_
isHTML=True
while isHTML
intStartPos_=instr(strHTMLcode,“<”)
intEndPos_=instr(strHTMLcode,“>”)
if intStartPos_ < 1 or intEndPos_ < 1 then isHTML=False
if isHTML then
if intStartPos_ = 1 then
strHTMLcode=right(strHTMLcode,(len(strHTMLcode)-(intEndPos_)))
elseif intStartPos_ > 1 then
strTempHTMLStart_ = left(strHTMLcode,(intStartPos_-1))
strTempHTMLEnd_=right(strHTMLcode,len(strHTMLcode)-(intEndPos_))
strHTMLcode=strTempHTMLStart_ & strTempHTMLEnd_
end if
end if
strHTMLcode=trim(strHTMLcode)
wend
StripHTMLcode=server.HTMLEncode(strHTMLcode)
End Function
Fungsi ini mengambil input berupa blok text/HTML yang nantinya akan di hilangkan atribut-atribut HTML yang ada didalamnya, dan kemudian mengembalikan nilai berupa Text murni tanpa Tag-Tag HTML.
ASP HTML Strip Example
Function StripHTMLcode(byVal strHTMLcode)
dim isHTML, intStartPos_, intEndPos_
dim strTempHTMLStart_ , strTempHTMLEnd_
isHTML=True
while isHTML
intStartPos_=instr(strHTMLcode,“<”)
intEndPos_=instr(strHTMLcode,“>”)
if intStartPos_ < 1 or intEndPos_ < 1 then isHTML=False
if isHTML then
if intStartPos_ = 1 then
strHTMLcode=right(strHTMLcode,(len(strHTMLcode)-(intEndPos_)))
elseif intStartPos_ > 1 then
strTempHTMLStart_ = left(strHTMLcode,(intStartPos_-1))
strTempHTMLEnd_=right(strHTMLcode,len(strHTMLcode)-(intEndPos_))
strHTMLcode=strTempHTMLStart_ & strTempHTMLEnd_
end if
end if
strHTMLcode=trim(strHTMLcode)
wend
StripHTMLcode=server.HTMLEncode(strHTMLcode)
End Function
dim result,holder
holder = Trim(Request.Form(“htmltext”))
if Trim(Request.Form(“submit”))=“submit” Then
result = StripHTMLcode(holder)
End if
%>
<form name=“test” action=“StripHTML.asp” method=“post”>
<textarea name=“htmltext” id=“htmltext” rows=“5″ cols=“50″><%=holder%></textarea>
<input type=“submit” name=“submit” value=“submit” />
</form>
Copy dan Simpan Code diatas dengan nama StripHTML.asp di server anda, kemudian jalankan di browser. Ketik sembarang kata dengan kombinasi HTML Tag kemudian submit, Lihat Hasilnya.
Dengan RegExp Lebih singkat sourcenya namun kadang saya juga buat yang kayak gini
yup, tapi pas butuh yang seperti ini ga kepikiran Regex he eh tp meet the needs deh