db den gelen veriyi harf harf bölmek.

06-02-2007, 15:20:00

mrb arkadaşlar. mesela db den veriyi çektim.
işte mesela

<%=seyret("isim")%> olsun.. bu gelen isim i nsl harf harf ayırabiliriz.
aynı zmnda kelime kelime ayırmada lazım ( buda aramada etiket olayı için )

yardımcı olursanız ok sevinirim..

06-02-2007, 17:04:49

#2

Blue_mist34

<%

a=seyret("isim")' bu db den gelen verinin adı
c=len(a)
for i=1 to c
Sol=i-1
d=mid(a,sol+1,1)
Response.Write("<br>"&d)' burada ki <br> kaldırırsan yanyana yazar
next
'@Dk
%>

Umarım işine yarar

06-02-2007, 18:36:56

#3

tosih

Blue_mist34 tşkrler öncelikle. ama bu kodu tam çözemedim. kısaca tam olarak yapmak istedim şey işte mesela db den gelen veri r10. ben bunu r yi r.gif e 1 i 1.gif e 0 ı 0.gif e eşitliycem mesela. ve gelen veriyi resim olarak yazıcak. yardımlarınızı bekliyorum..

06-02-2007, 18:52:14

#4

Blue_mist34

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

Blue_mist34 tşkrler öncelikle. ama bu kodu tam çözemedim. kısaca tam olarak yapmak istedim şey işte mesela db den gelen veri r10. ben bunu r yi r.gif e 1 i 1.gif e 0 ı 0.gif e eşitliycem mesela. ve gelen veriyi resim olarak yazıcak. yardımlarınızı bekliyorum..

mesela db den gelen veri seyret
<%

a="seyret"' bu db den gelen verinin adi
c=len(a)
for i=1 to c
Sol=i-1
d=mid(a,sol+1,1)
sonuc=d&".gif"'
Response.Write(sonuc&"<br>")
next
'@Dk
%>

bu kodun çıktısı şu şekilde oluyor
s.gif
e.gif
y.gif
r.gif
e.gif
t.gif

yanlış anladımsa düzelt lütfen.

06-02-2007, 18:57:40

#5

tosih

tmm. bu sefer tam süper oldu. çok tşkrler. =) rep olayını şahsen takmam ama genede benden 1 rep sana

06-02-2007, 19:09:42

#6

Blue_mist34

açıkçası bende umursamıyorum Eyvallah sağolasın

06-02-2007, 19:35:45

#7

tosih

ee boşluk , ş ve diğer tr karakterlerde sorun çıkardı. ş için s.gif i şite boşluk için space.gif i fln göster nsl deriz. biliorum çok oluorum artık ama. yardım ederseniz sevinirim..

06-02-2007, 20:35:57

#8

Blue_mist34

<%
Function Kopyala(THESTRING)
Kopyala=Replace(THESTRING,"ç","c")
Kopyala=Replace(THESTRING,"ı","i")
Kopyala=Replace(THESTRING,"ş","s")
' buraya aklına gelen karakterleri ekleyebilirsin
end function

a="şehi ı asda s"' bu db den gelen verinin adi
c=len(a)
for i=1 to c
Sol=i-1
d=mid(a,sol+1,1)
if d=" " then
d="Space" ' eğer gelen veride boşluk varsa boşluk yerine space yazıcak
end if
sonuc=Kopyala(d)&".gif"'
Response.Write(sonuc&"<br>")
next
'@Dk
%>

06-02-2007, 21:13:42

#9

tosih

Alıntı

<%
Function Kopyala(THESTRING)
Kopyala=Replace(THESTRING,"ç","c")
Kopyala=Replace(THESTRING,"ı","i")
Kopyala=Replace(THESTRING,"ş","s")
Kopyala=Replace(THESTRING,"ğ","g")
Kopyala=Replace(THESTRING,"ö","o")
Kopyala=Replace(THESTRING,"ü","u")

end function

a="" & left(seyret("isim"),30) & ""
c=len(a)
for i=1 to c
Sol=i-1
d=mid(a,sol+1,1)
if d=" " then
d="space"
end if
sonuc=Kopyala(d)&".gif"'
response.write("<img src=grafik/harf/")
Response.Write(sonuc&">")
next
'@Dk
%>

mlsf. olmadı. boşluk olayı oldu ama diğerleri olmadı.