Replace fonksiyonu işinizi görür. her bir harfin chr kodu vardır - chr(13) = enter - gibi. Belirli harflerin - örneğin I yı ı veya i ye dönüştürerek- replace ile yeni değerlerini atayarak çalışırsanız sorun kalmaz.
Ya da şöyle bir fonksiyon var, yazılan metnin tüm harflerini küçültüyor:
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


Konu Adresi (URL)
About LinkBacks
Alıntı Yaparak Yanıtla
