ASP:Tüm harfleri büyütme, küçültme ve kelimelerin ilk harflerini büyütme - ASP Webmaster bilgi bankası, knowledge base Webmaster Araçları

AnaSayfa > ASP > ASP:Tüm harfleri büyütme, küçültme ve kelimelerin ilk harflerini büyütme
Kategori: ASP
Gönderen: Admin
Tarih: 2008-12-07
Puan: 0   Puan:0 | Katılımcı:0 | Katılımcı : 0
Okunma: 5398
  
 
1 puan 2 puan 3 puan 4 puan 5 puan 6 puan 7 puan 8 puan 9 puan 10 puan

1. Girilen tüm harfleri büyüten fonksiyon

Function UCaseEx(Metin)
For Uce=1 To Len(Metin)

If Mid(Metin,Uce,1) = "i" Then Metin = Left(Metin,Uce-1) & "İ" & Mid(Metin, Uce+1)
If Mid(Metin,Uce,1) = "ı" Then Metin = Left(Metin,Uce-1) & "I" & Mid(Metin, Uce+1)

Next

Uce=0
UCaseEx = UCase(Metin)
End Function


2. Girilen tüm harfleri küçülten fonksiyon

Function LCaseEx(Metin)
For Lce=1 To Len(Metin)

If Mid(Metin,Lce,1) = "İ" Then Metin = Left(Metin,Lce-1) & "i" & Mid(Metin, Lce+1)
If Mid(Metin,Lce,1) = "I" Then Metin = Left(Metin,Lce-1) & "ı" & Mid(Metin, Lce+1)

Next

Lce=0
LCaseEx = LCase(Metin)
End Function


3. Girilen metnin tüm kelimelerinin ilk harfini büyüten fonksiyon

Function IlkHarfBuyuk(Metin)
On Error Resume Next
tmpBol = Split(Metin," ",-1,1)
For Ihb=0 To UBound(tmpBol)
tmpBol(Ihb) = UCaseEx(Left(tmpBol(Ihb),StringBul(tmpBol(Ihb)))) & LCaseEx(Mid(tmpBol(Ihb),StringBul(tmpBol(Ihb))+1))
Next
IlkHarfBuyuk = Join(tmpBol, " ")
End Function

´String´in ilk karakteri harf değilse harfi bulana kadar ara
Function StringBul(Metin)
tmpMetin = Metin
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True

For i=1 To Len(tmpMetin)
RegEx.Pattern = "^[a-zA-ZişğüçöİĞÜŞÇÖ]{1}"
If RegEx.Test(Mid(tmpMetin,i,1)) Then
StringBul = i
Exit For
End If
Next
End Function


Not: IlkHarfBuyuk() fonksiyonunun kullanılabilmesi için UcaseEx() ve LCaseEx() fonksiyonlarının olması mecburidir.




Yorumlar
Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin!
Yorum Ekleme Aparatı
Yorum Eklemek için lütfen sol menuden giris yapınız..
Toplam 0 yorum listelendi.