Giriş Yap / Kayıt Ol

WM Aracı'na üyelikler tekrar açıldı! Kayıt olmak için TIKLAYIN!

Cevap Yaz Favorilerime Ekle
Seçenekler Stil
Geri Git   Forum > > Asp .NET

374x90

Bu Alana Reklam Ver



Klasik aspde html temizleme

  #1  
Okunmamış 16 Ekim 2018, 22:19
Avatar Seçilmemiş
WM Aracı
 
Üyelik Tarihi: 10 Temmuz 2018
Yaş / Cinsiyet: 30 / Erkek
Konum: Düzce
Ad, Soyad: Fa... Ca...
Mesajlar: 51
Beğeniler: 6 / 3
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ış.

Kod:
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 <br> tagının silinmesini nasıl önleye bilirim.
  #2  
Okunmamış 16 Ekim 2018, 23:33
Avatar Seçilmemiş
www.ontedi.com
 
Üyelik Tarihi: 03 Ekim 2013
Cinsiyet: Erkek
Konum: Ankara
Ad, Soyad: Se... To...
Mesajlar: 879
Beğeniler: 249 / 117
Ticaret: 2, 100%
Böyle bir deneyebilir misin? Klasik ASP ile uğraşmayalı çok oldu.
Kod:
Function RemoveHTML( strText )
	Dim RegEx
strText =  strText.Replace("<br>", "|br|")
	Set RegEx = New RegExp

	RegEx.Pattern = "<[^>]*>"
	RegEx.Global = True

	RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = strText.Replace("|br|","<br>")
End Function
www.ontedi.com
www.cizgi.site
  #3  
Okunmamış 17 Ekim 2018, 00:42
Avatar Seçilmemiş
WM Aracı
 
Üyelik Tarihi: 10 Temmuz 2018
Yaş / Cinsiyet: 30 / Erkek
Konum: Düzce
Ad, Soyad: Fa... Ca...
Mesajlar: 51
Beğeniler: 6 / 3
Ticaret: 0, 0%
Merhaba Yardımınız için teşekkürler "strText = strText.Replace("<br>", "|br|") " Satırında hata alıyorum bu kodu denediğimde

"Nesne bu özellik veya yöntemi desteklemiyor: 'strText.Replace'"
  #4  
Okunmamış 17 Ekim 2018, 01:10
Avatar Seçilmemiş
www.ontedi.com
 
Üyelik Tarihi: 03 Ekim 2013
Cinsiyet: Erkek
Konum: Ankara
Ad, Soyad: Se... To...
Mesajlar: 879
Beğeniler: 249 / 117
Ticaret: 2, 100%
Kod:
<%
Response.CharSet = "UTF-8"
Function RemoveHTML(strText)
If IsNull(strText) = True OR strText = "" Then
   Exit Function
End If
strText = Replace(strText, "<br>", "|br|")
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")
strText = Replace(strText, "|br|", "<br>")
RemoveHTML = strText
End Function

strYazi = "shfsdgfj wgrwe gwej<br>sf ewte rte er<p>Deneme İçerik</p><h2>Burası Büyük Başlık</h2>"
strYazi = RemoveHTML(strYazi)
Response.Write(strYazi)
%>
www.ontedi.com
www.cizgi.site
  #5  
Okunmamış 17 Ekim 2018, 02:00
Avatar Seçilmemiş
WM Aracı
 
Üyelik Tarihi: 10 Temmuz 2018
Yaş / Cinsiyet: 30 / Erkek
Konum: Düzce
Ad, Soyad: Fa... Ca...
Mesajlar: 51
Beğeniler: 6 / 3
Ticaret: 0, 0%
aynı yerde hata verdi bu sefer "Geçersiz Null kullanýmý: 'Replace'"
Cevap Yaz Favorilerime Ekle


Konuyu toplam 1 kişi okuyor. (0 üye ve 1 Ziyaretçi)
 
Seçenekler
Stil
Normal Normal

Geri Git   Forum > Asp .NET


Yetkileriniz
Konu açma yetkiniz: Yok
Cevap Yazma Yetkiniz Yok
Eklenti yükleme yetkiniz: Yok
Mesajınızı değiştirme yetkiniz: Yok

BB code: Açık
İfadeler: Açık
[IMG] Kodları: Açık
HTML kodu: Kapalı




Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şu anki Zaman: 01:52.