ASP Karakter Sayısı (Len)

3
610
ASP
ASP (Active Server Pages)

Sitede bazen karakter sayısını saymak gerekir. Mesela kullanıcı bir makale yazdı, bu makalenin 100 karakterden az olması istenmediğinde karakter sayısını öğrendikten sonra ekrana olumlu/olumsuz mesaj yazdırılır.Karakter sayısını Len fonksiyonu ile yapılabilir. Bunun için herhangi bir ekstra tanımlamaya gerek kalmadan direkt kullanılabilir.

Mesela:

Veri = "bilgi-sayar.net" ' Veri değişkenine bilgi-sayar.net yazdır
Response.Write Len(Veri) ' Veri değişkenindeki karakter sayısını ekrana yazdır

Ekranda görüntüsü 15 olacaktır. Karakter sayısı 10 dan fazla ise “10’dan fazla“; 10 dan az ise “10’dan az” yazsın.

Veri = "bilgi-sayar.net" ' Veri değişkenine bilgi-sayar.net yazdır
VeriSayisi = Len(Veri) ' Veri değişkenindeki karakter sayısını VeriSayisi değişkenine yazdır
If VeriSayisi>10 Then ' Eğer VeriSayisi değişkenindeki sayı 10 dan büyükse
Response.Write "10'dan fazla" ' Ekrana 10dan fazla yazdır
Else ' Eğer değilse yani VeriSayisi değişkenindeki sayı 10 a eşit ve ya 10 dan küçükse
Response.Write "10'dan az" ' Ekrana 10 dan az yazdır
End If ' Şartı sonlandır

3 YORUMLAR

  1. If VeriSayisi>40 Then ‘ Eğer VeriSayisi değişkenindeki sayı 10 dan büyükse

    ayirac = Split(Veri, ” “)
    i=0
    for each bosluk in ayirac
    %>
    <a href="”>

    istediğim şu kelime sayısı 50 ise 50 den sonraki boşluktan sonra bir alt satırdan devam etsin

    • Kaba bir mantıkla şu şekilde yapabilirsiniz.

      If Len(Veri)>49 Then
      Kelime=Ubound(Split(Veri,” “))
      Kelime2=Ubound(Split(Left(Veri,40),” “))
      If Kelime>Kelime2 Then
      For i=0 To Kelime
      If i=Kelime2+1 Then Response.Write “

      Response.Write Split(Veri,” “)(i)&” ”
      Next
      Else
      Response.Write Veri
      End If
      Else
      Response.Write Veri
      End If

CEVAP VER

Lütfen yorumunuzu yazın
Lütfen adınızı ve soyadınızı yazın.