Burhan KARADERE
Bilgisayar Mühendisi - Ekonomist; 1982 yılında Fatih/Karagümrük/İstanbul doğumlu. Aslen İstanbul'lu baba tarafından Antalya/İbradı anne tarafından Trabzon/Of 'ludur. Bilişim teknolojileri üzerine AR-GE çalışmaları yapıyor. Özel bir şirket de SAP SE ERP sistemleri üzerine proje yöneticisi olarak çalışmakta. Fenerbahçe spor kulübü üyesi. Uçak teknolojileri (jet-motorları) bu aralar en büyük ilgi alanı. SoloTürk hayranı. İyi bir drone Pilot'u. Genellik ile uçurum kenarlarında yaşar. Teknolojik ürünler hakkındaki deneyimlerini siz değerli meraklı yoldaşlara paylaşmaya çalıyor. Bilgi'nin insanı zehirlediği felsefe savunucusu. Konu bağımsız kafa açan her türlü akli ve nakli ilim-bilim-gönül ile ilgilenmekte, ayrıca meta fiziğe de inanmakta :) Elektrik ile çalışan her konu hakkında bey'in fırtınası sevenler buraya. Daha fazla bilgi için blog.karadere.com adresin'den takip'e devam edebilirsiniz. Çağrı Kodu : TA1HKB Kod Adı : Burhan_07 Nickname : Swish_+
Asp Dersleri Bölüm-10 Yahoo Hava Durumu Asp Dersleri Bölüm-12 XML Okumak Veri Çekmek / Read Asp XML Data
Eki 20 2010
Asp Dersleri Bölüm-11 Html Tag Temizlemek / Html Code Clear
Paylaş.
<%
Function RemoveHTML( strText )
Dim TAGLIST
TAGLIST = “;!–;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;” &_
“BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;” &_
“COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;” &_
“FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;” &_
“INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;” &_
“MENU;META;NOBR;NOFRAMES;NOSCRIPT;SELECT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;” &_
“PRE;Q;S;SAMP;SCRIPT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;” &_
“TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;”
Const BLOCKTAGLIST = “;APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;”
Dim nPos1
Dim nPos2
Dim nPos3
Dim strResult
Dim strTagName
Dim bRemove
Dim bSearchForBlock
nPos1 = InStr(strText, “<“)
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, “>”)
If nPos2 > 0 Then
strTagName = Mid(strText, nPos1 + 1, nPos2 – nPos1 – 1)
strTagName = Replace(Replace(strTagName, vbCr, ” “), vbLf, ” “)
nPos3 = InStr(strTagName, ” “)
If nPos3 > 0 Then
strTagName = Left(strTagName, nPos3 – 1)
End If
If Left(strTagName, 1) = “/” Then
strTagName = Mid(strTagName, 2)
bSearchForBlock = False
Else
bSearchForBlock = True
End If
If InStr(1, TAGLIST, “;” & strTagName & “;”, vbTextCompare) > 0 Then
bRemove = True
If bSearchForBlock Then
If InStr(1, BLOCKTAGLIST, “;” & strTagName & “;”, vbTextCompare) > 0 Then
nPos2 = Len(strText)
nPos3 = InStr(nPos1 + 1, strText, “</” & strTagName, vbTextCompare)
If nPos3 > 0 Then
nPos3 = InStr(nPos3 + 1, strText, “>”)
End If
If nPos3 > 0 Then
nPos2 = nPos3
End If
End If
End If
Else
bRemove = False
End If
If bRemove Then
strResult = strResult & Left(strText, nPos1 – 1)
strText = Mid(strText, nPos2 + 1)
Else
strResult = strResult & Left(strText, nPos1)
strText = Mid(strText, nPos1 + 1)
End If
Else
strResult = strResult & strText
strText = “”
End If
nPos1 = InStr(strText, “<“)
Loop
strResult = strResult & strText
RemoveHTML = strResult
End Function
%>
By Burhan KARADERE • % Asp % • 0 • Tags: % Asp %, htm, tag, temizlemek