KucukHarfYap Fonksiyonu
Loading ...İşte Türkçe karakterleri destekleyen bir fonksiyon. Adından da anlaşılacağı gibi verilen string i küçük harfe çevirir.
Public Function KucukHarfYap(ByVal Metin1 As String) As String
Dim Sayac, Sonuc, Boy As Long
Dim Metin2, BasMetin, BitMetin As String
Boy = Len(Trim(Metin1))
Metin2 = LCase(Trim(Metin1))
For Sayac = 1 To Boy
Sonuc = InStr(Sayac, Metin1, "I")
If Sonuc > 0 Then
BasMetin = left(Metin2, Sonuc - 1)
BitMetin = right(Metin2, Boy - Sonuc)
Metin2 = BasMetin & "ı" & BitMetin
End If
Next
For Sayac = 1 To Boy
Sonuc = InStr(Sayac, Metin1, "İ")
If Sonuc > 0 Then
BasMetin = left(Metin2, Sonuc - 1)
BitMetin = right(Metin2, Boy - Sonuc)
Metin2 = BasMetin & "i" & BitMetin
End If
Next
KucukHarfYap = Metin2
End Function
Kullanımı :
Dim yazi as String
yazi = "Deneme dede DENEME İğıÇöş"
yazi = KucukHarfYap(yazi)
MsgBox yazi
Kolay Gelsin.
Benzer Yazılar
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Yorumlar
Henüz Yorum Yok.
Yorum Yazın