-
Üyelik
10.07.2018
-
Yaş/Cinsiyet
36 / E
-
Meslek
Bilişim teknolojileri
-
Konum
Düzce
-
Ad Soyad
F** C**
-
Mesajlar
66
-
Beğeniler
5 / 9
-
Ticaret
0, (%0)
Merhaba arkadaşlar bir veritabaınında içerikleri temizlemem gerekiyor. İçerik girilirken (yaklaşık 600 içerik ) kopyala yapıştır da ckeditör maalesef html tağlarınıda almış.
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
bu kod ile tüm html tagları siliniyor. Sonra düz text metin oluyor ama ben
tagının silinmesini nasıl önleye bilirim.
ontedi
www.ontedi.com
Kullanıcı
-
Üyelik
03.10.2013
-
Yaş/Cinsiyet
44 / E
-
Meslek
Yazılım Uzmanı, Matematikçi
-
Konum
Ankara
-
Ad Soyad
S** T**
-
Mesajlar
1118
-
Beğeniler
325 / 324
-
Ticaret
2, (%100)
Böyle bir deneyebilir misin? Klasik ASP ile uğraşmayalı çok oldu.
Function RemoveHTML( strText )
Dim RegEx
strText = strText.Replace("
", "|br|")
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = strText.Replace("|br|","
")
End Function
www.ontedi.com
www.cizgi.site
-
Üyelik
10.07.2018
-
Yaş/Cinsiyet
36 / E
-
Meslek
Bilişim teknolojileri
-
Konum
Düzce
-
Ad Soyad
F** C**
-
Mesajlar
66
-
Beğeniler
5 / 9
-
Ticaret
0, (%0)
Merhaba Yardımınız için teşekkürler "strText = strText.Replace("
", "|br|") " Satırında hata alıyorum bu kodu denediğimde
"Nesne bu özellik veya yöntemi desteklemiyor: 'strText.Replace'"
ontedi
www.ontedi.com
Kullanıcı
-
Üyelik
03.10.2013
-
Yaş/Cinsiyet
44 / E
-
Meslek
Yazılım Uzmanı, Matematikçi
-
Konum
Ankara
-
Ad Soyad
S** T**
-
Mesajlar
1118
-
Beğeniler
325 / 324
-
Ticaret
2, (%100)
<%
Response.CharSet = "UTF-8"
Function RemoveHTML(strText)
If IsNull(strText) = True OR strText = "" Then
Exit Function
End If
strText = Replace(strText, "
", "|br|")
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")
strText = Replace(strText, "|br|", "
")
RemoveHTML = strText
End Function
strYazi = "shfsdgfj wgrwe gwej
sf ewte rte erDeneme İçerik
Burası Büyük Başlık
"
strYazi = RemoveHTML(strYazi)
Response.Write(strYazi)
%>
www.ontedi.com
www.cizgi.site
-
Üyelik
10.07.2018
-
Yaş/Cinsiyet
36 / E
-
Meslek
Bilişim teknolojileri
-
Konum
Düzce
-
Ad Soyad
F** C**
-
Mesajlar
66
-
Beğeniler
5 / 9
-
Ticaret
0, (%0)
aynı yerde hata verdi bu sefer "Geçersiz Null kullanýmý: 'Replace'"
