çift tırnak sorunu

11-03-2008, 22:17:55

Üyeliği durduruldu

dbden gelen bazı verileri filtreleyerek kesmeye çalışıyorum fakat gelen verilerde tırnak işareti var bu yüzden hata veriyor bunun üstesinden nasıl gelebilirim acaba

11-03-2008, 23:45:53

#2

~~Tuncsoft~~

Üyeliği durduruldu

Filtereleyerek kesmek derken , ne yapmak istediğini tam olarak anlatırsan daha iyi olurdu ,

.ASP de Replace fonksiyonunu kullanarak belirli karakterli belirlediğin karakterlere çevirebilirsin

Örnek Function :

<%
Function KarakterDegis(GelenKarakter)
GelenKarakter = Replace (GelenKarakter ,"""","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ," ","_",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"é","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"!","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"'","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"^","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"+","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"%","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"&","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"/","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"(","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,")","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"=","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"?","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,";","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,":","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,",","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,">","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"<","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"*","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"-","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"£","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"$","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"½","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"{","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"}","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"]","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"[","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"\","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"|","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"`","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"´","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"~","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"@","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"æ","",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"İ","i",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"ü","u",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"ğ","g",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"ç","c",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"ş","s",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"ö","o",1,-1,1)
GelenKarakter = Replace (GelenKarakter ,"ı","i",1,-1,1)
KarakterDegis=GelenKarakter
End Function
%>

Örnek :

<%
Degisken = "@'selam|+*"

Islem = KarakterDegis(Degisken)

Response.Write (Islem)

'Çıktı = selam
%>

12-03-2008, 00:16:04

#3

~~metalstorm~~

Üyeliği durduruldu

gelen veriyi şu şekilde filtreliyerek kesmeye çalışıyorum

  <% filtre=asp("url")
  
filtre=Replace(filtre,"<object width="425" height="343">","", 1, -1, 1)		
filtre=Replace(filtre,"</object>","", 1, -1, 1)
%>
<%=filtre%>

bu iki object tagları arasındaki veriyi almaya çalışıyorum fakat tırnak olduğu için hata veriyor

12-03-2008, 00:57:53

#4

~~Tuncsoft~~

Üyeliği durduruldu

metalstorm adlı üyeden alıntı: mesajı görüntüle

gelen veriyi şu şekilde filtreliyerek kesmeye çalışıyorum

  <% filtre=asp("url")
filtre=Replace(filtre,"<object width="425" height="343">","", 1, -1, 1)		
filtre=Replace(filtre,"</object>","", 1, -1, 1)
%>
<%=filtre%>

bu iki object tagları arasındaki veriyi almaya çalışıyorum fakat tırnak olduğu için hata veriyor

Bunu Şöyle yapsak peki nasıl olur

<%
VeriNedir="<object width=""425"" height=""343"">Burada Bir Yazı Var </object>"




NeredenBaslasin = "<object width=""425"" height=""343"">"
NeredeBitsin = "</object>"
Itibaren = Instr(VeriNedir,NeredenBaslasin )

'Aşağıda dikkat etmen gereken = 33 sayısı NeredenBaslasin değerinizin karakter sayısıdır
IslemYapalim= Mid(VeriNedir,Itibaren+33,Len(VeriNedir))
BurayaKadar = Instr(IslemYapalim,NeredeBitsin)
ElimizeNeGecti= Mid(IslemYapalim,1,BurayaKadar-1)

Response.Write (ElimizeNeGecti)

'Sonuç = Burada Bir Yazı Var
%>

12-03-2008, 18:23:13

#5

~~metalstorm~~

Üyeliği durduruldu

teşekkür ederim sorunumu çözdüm