- BaRaN
-
Mesaj Sayısı : 873
Doğum tarihi : 02/12/89
Yaş : 34
Nerden : güneşin doğduğu yer(DOĞUBEYAZIT)
İş/Hobi : cep telefonu
Bilgi : <center><font color="blue"><marquee direction="left" style="background:white">Muradiye Forum Bilgi Paylaşım Platformu</marquee></font></center
Rep Gücü : 0
Rep Puan : 8
Kayıt tarihi : 20/12/08
Veri içindeki belli bir karakterin sayısını bulma
C.tesi Ocak 31, 2009 1:08 pm
Kod:
<%
' Fonksiyona gönderilen veri içinde, istediğiniz karakterin kaç efa geçtiğini sayar
Function KarakterSay(byVal strVeri, byVal strKarakter)
Dim intSayi, intVeriUzunluk
If strVeri = "" OR strKarakter = "" Then Exit Function
intSayi = 0
intVeriUzunluk = Len(strVeri)
For intLooper = 1 To intVeriUzunluk
If Mid(strVeri, intLooper, 1) = strKarakter Then
intSayi = intSayi + 1
End If
Next
KarakterSay = intSayi
End Function
%>
<%
' Fonksiyona gönderilen veri içinde, istediğiniz karakterin kaç efa geçtiğini sayar
Function KarakterSay(byVal strVeri, byVal strKarakter)
Dim intSayi, intVeriUzunluk
If strVeri = "" OR strKarakter = "" Then Exit Function
intSayi = 0
intVeriUzunluk = Len(strVeri)
For intLooper = 1 To intVeriUzunluk
If Mid(strVeri, intLooper, 1) = strKarakter Then
intSayi = intSayi + 1
End If
Next
KarakterSay = intSayi
End Function
%>
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz