Mar.29

BuyukHarfYap Fonksiyonu

İşte Türkçe karakterleri destekleyen bir fonksiyon daha. Adından da anlaşılacağı gibi verilen string i büyük harfe çevirir.

Public Function BuyukHarfYap(ByVal Metin1 As String) As String
Dim Sayac, Sonuc, Boy As Long
Dim Metin2, BasMetin, BitMetin As String
Boy = Len(Trim(Metin1))
Metin2 = UCase(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
BuyukHarfYap = Metin2
End Function

Kullanımı :

Dim yazi as String
yazi = “Deneme dede DENEME İğıÇöş”
yazi = BuyukHarfYap(yazi)
MsgBox yazi

Kolay Gelsin.

Function
Share this Story:
  • facebook
  • twitter
  • gplus

About Muzaffer Ali AKYIL

Merhabalar, Adım Muzaffer Akyıl, Bilgi teknolojileri ile içli dışlı, teknolojiyi yakından takip eden, web ve masaüstü programlama ile uğraşıp, saatlerce kastığı şeyleri hiç bir karşılık beklemeden paylaşmayı amaç eden biriyim.


Bir yorum bırak

 

Comment