ASP:Tüm harfleri büyütme, küçültme ve kelimelerin ilk harflerini büyütme

**Jaqen** · 19.06.2013, 16:10

ASP:Tüm harfleri büyütme, küçültme ve kelimelerin ilk harflerini büyütme

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.

19.06.2013, 16:10	#1 (permalink)
Jaqen Root Administrator Kullanıcıların profil bilgileri misafirlere kapatılmıştır.	ASP:Tüm harfleri büyütme, küçültme ve kelimelerin ilk harflerini büyütme ASP:Tüm harfleri büyütme, küçültme ve kelimelerin ilk harflerini büyütme 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. Benzer Konular Viridi - Android İçin Çiçek Büyütme Oyunu... S ve F Harflerini Duymakta Zorlanıyorsanız Dikkat... Beni Susarak Büyütme - Kahraman Tazeoğlu... Çocuk Büyütme Rehberi... Hareketli bebek harfleri - Bebek harfleri - Gifli bebek harfleri... Paylaş Share this post on Twitter Follow @Forumaski