Merhaba Arkadaşlar
Aşağıdaki kodda Kelimeden sonra başka bir kelime varsa o kelimden önce kelime arasına virgül koymak, bunu aşağıdaki kodla bir türlü yapamadım, bu konuda yardımlarınızı bekliyorum
teşekkür ederim.
<% If not >= Then : comma = "," : Else : comma = "" : End If %>
kelime1<%=comma%>kelime2<%=comma%>
Klasi ASP de Kelimeden sonra virgül koymak YARDIM!!! |
10 Mesajlar | 1.422 Okunma | ||
- Üyelik 28.03.2016
- Yaş/Cinsiyet 42 / E
- Meslek Emlak
- Konum Antalya
- Ad Soyad İ** Y**
- Mesajlar 112
- Beğeniler 3 / 2
- Ticaret 0, (%0)
- Ü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)
strKelime = strKelime1
If (strKelime1 <> "" AND strKelime2 <> "") Then
strKelime = strKelime1 & ", " & strKelime2
End If
Böyle bir dene istersen, doğru anlamışımdır umarım.
If (strKelime1 <> "" AND strKelime2 <> "") Then
strKelime = strKelime1 & ", " & strKelime2
End If
Böyle bir dene istersen, doğru anlamışımdır umarım.
www.ontedi.com
www.cizgi.site
www.cizgi.site
- Üyelik 28.03.2016
- Yaş/Cinsiyet 42 / E
- Meslek Emlak
- Konum Antalya
- Ad Soyad İ** Y**
- Mesajlar 112
- Beğeniler 3 / 2
- Ticaret 0, (%0)
ontedi Hocam yardım için çok teşekkür ederim benim yapmak istediğim, veritabanımın ayrı ayrı sütunlardan çektiğim kelimeleri virgül ile ayırmak, her kelimeden sonra kelime gelecek ise 2 kelimenin arasını virgül ile ayırsın
<%
if rs("deniz")<>"" or rs("gol")<>"" or rs("sehir")<>"" or rs("doga")<>"" or rs("orman")<>"" or rs("dag")<>"" then
Response.Write ""
Response.Write "Manzara"
Response.Write ""
If rs("deniz")= "1" then Response.write "Deniz" End If
If rs("gol")= "1" then Response.write "Göl" End If
If rs("sehir")= "1" then Response.write &"Şehir" End If
If rs("doga")= "1" then Response.write Doğa" End If
If rs("orman")= "1" then Response.write "Orman " End If
If rs("dag")= "1" then Response.write "Dağ" End If
Response.Write ""
Response.Write " "
End if
%>
<%
if rs("deniz")<>"" or rs("gol")<>"" or rs("sehir")<>"" or rs("doga")<>"" or rs("orman")<>"" or rs("dag")<>"" then
Response.Write "
Response.Write "Manzara"
Response.Write ""
If rs("deniz")= "1" then Response.write "Deniz" End If
If rs("gol")= "1" then Response.write "Göl" End If
If rs("sehir")= "1" then Response.write &"Şehir" End If
If rs("doga")= "1" then Response.write Doğa" End If
If rs("orman")= "1" then Response.write "Orman " End If
If rs("dag")= "1" then Response.write "Dağ" End If
Response.Write ""
Response.Write "
End if
%>
- Ü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)
strKelime = ""
If (rs("deniz") <> "") Then
strKelime = strKelime & " " & rs("deniz")
End If
If (rs("gol") <> "") Then
strKelime = strKelime & " " & rs("gol")
End If
If (rs("sehir") <> "") Then
strKelime = strKelime & " " & rs("sehir")
End If
If (rs("orman") <> "") Then
strKelime = strKelime & " " & rs("orman")
End If
If (rs("dag") <> "") Then
strKelime = strKelime & " " & rs("dag")
End If
strKelime = Trim(strKelime)
strKelime = Repalce(strKelime, " ", ", ", 1, -1, 1)
İstediğin olur gibi.
www.ontedi.com
www.cizgi.site
www.cizgi.site
- Üyelik 28.03.2016
- Yaş/Cinsiyet 42 / E
- Meslek Emlak
- Konum Antalya
- Ad Soyad İ** Y**
- Mesajlar 112
- Beğeniler 3 / 2
- Ticaret 0, (%0)
Muhteşemsin Hocam Allah razı olsun.
- Üyelik 28.03.2016
- Yaş/Cinsiyet 42 / E
- Meslek Emlak
- Konum Antalya
- Ad Soyad İ** Y**
- Mesajlar 112
- Beğeniler 3 / 2
- Ticaret 0, (%0)
ontedi Hocam Allah razı olsun, Virgül ile ayırma işlemimiz tamamdır, Hocam yanlız şöyle bir sorunum var, çektiğim verilerin hiç biri olmadığında Manzara Başlığını göstermenin bir anlamı yok, Bunu nasıl yaparız Hocam
- Ü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)
strKelime = ""
If (rs("deniz") <> "") Then
strKelime = strKelime & " " & rs("deniz")
End If
If (rs("gol") <> "") Then
strKelime = strKelime & " " & rs("gol")
End If
If (rs("sehir") <> "") Then
strKelime = strKelime & " " & rs("sehir")
End If
If (rs("orman") <> "") Then
strKelime = strKelime & " " & rs("orman")
End If
If (rs("dag") <> "") Then
strKelime = strKelime & " " & rs("dag")
End If
strKelime = Trim(strKelime)
strKelime = Repalce(strKelime, " ", ", ", 1, -1, 1)
If (strKelime <> "") Then
strKelime = "Manzara " & strKelime
End If
www.ontedi.com
www.cizgi.site
www.cizgi.site
- Üyelik 28.03.2016
- Yaş/Cinsiyet 42 / E
- Meslek Emlak
- Konum Antalya
- Ad Soyad İ** Y**
- Mesajlar 112
- Beğeniler 3 / 2
- Ticaret 0, (%0)
ontedi Hocam Manzara kelimesini başka bir değişkene sabitleme şansımız varmı, çünkü Manzara Başlığı diğer kelimeler içinde çağırıyor
- Ü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)
Hocam mumkunse ozelden yazmayiniz. Musait olunca bakarim zaten.
www.ontedi.com
www.cizgi.site
www.cizgi.site
- Üyelik 28.03.2016
- Yaş/Cinsiyet 42 / E
- Meslek Emlak
- Konum Antalya
- Ad Soyad İ** Y**
- Mesajlar 112
- Beğeniler 3 / 2
- Ticaret 0, (%0)
Tamam Hocam, yardımını bekliyorum
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)