|
|
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  | Katılımcı : 0 | | Okunma | : 7767 | | | | | |
| |
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. |
|
