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
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
teşekkürler