lostyazilim

Klasi ASP de Kelimeden sonra virgül koymak YARDIM!!!

10 Mesajlar 1.393 Okunma
lstbozum
wmaraci reklam

emlak48 emlak48 WM Aracı Kullanıcı
  • Üyelik 28.03.2016
  • Yaş/Cinsiyet 42 / E
  • Meslek Emlak
  • Konum Antalya
  • Ad Soyad İ** Y**
  • Mesajlar 112
  • Beğeniler 3 / 2
  • Ticaret 0, (%0)
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%>
 

 

wmaraci
reklam

ontedi 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 1119
  • 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.
 

 

www.ontedi.com
www.cizgi.site

emlak48 emlak48 WM Aracı Kullanıcı
  • Ü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
    %>
     

     

    ontedi 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 1119
    • 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.
    emlak48

    kişi bu mesajı beğendi.

    www.ontedi.com
    www.cizgi.site
    wmaraci
    wmaraci

    emlak48 emlak48 WM Aracı Kullanıcı
    • Ü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.
     

     

    emlak48 emlak48 WM Aracı Kullanıcı
    • Ü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
     

     

    ontedi 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 1119
    • 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

    emlak48 emlak48 WM Aracı Kullanıcı
    • Ü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
     

     

    ontedi 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 1119
    • Beğeniler 325 / 324
    • Ticaret 2, (%100)
    Hocam mumkunse ozelden yazmayiniz. Musait olunca bakarim zaten.
     

     

    www.ontedi.com
    www.cizgi.site

    emlak48 emlak48 WM Aracı Kullanıcı
    • Ü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
     

     

    wmaraci
    Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
    Site Ayarları
    • Tema Seçeneği
    • Site Sesleri
    • Bildirimler
    • Özel Mesaj Al