AccessTr.neT

Sayfalar: 1 2 3 4

Sayenizde "sqlite" diye bir şey olduğunu öğrendim. Tesekkur

sqlite tercih etmemin sebebi android ile uyumlu olması

Benim açımdan ilginç şeyler oluyor veya yıllar sonra bilmediğim ama bildiğimi zannettiğim yeni şeyler öğreniyorum

Kod:
Public Function turkcem(Metin As String) As String

    Metin = Replace(Metin, "ı", "ı")

    Metin = Replace(Metin, "I", "ı")

    Metin = Replace(Metin, "i", "i")

    Metin = Replace(Metin, "İ", "i")

    turkcem = Metin

End Function

bu fonksiyonda "i" girdiğinde "i" olarak çıkması gerekiyor değil mi
ama maalesef "ı" olarak çıkıyor yani
izmirin "i" si küçük harf olarak giriyor
ıspartanın "ı" sı küçük harf olarak çıkıyor
neden olabilir

nasıl oldu bilmiyorum ama şimdi olması gerektiği gibi çalışıyor
sıkıntı çözülmüş oldu

Kod:
Public Function turkcem(Metin As String) As String

    Dim result As String

    result = ""

    For i = 1 To Len(Metin)

        If (Asc(Mid(Metin, i, 1)) = Asc("İ")) Then

            result = result & "i"

        ElseIf (Asc(Mid(Metin, i, 1)) = Asc("I")) Then

            result = result & "ı"

        ElseIf (Asc(Mid(Metin, i, 1)) = Asc("i")) Then

            result = result & "i"

        ElseIf (Asc(Mid(Metin, i, 1)) = Asc("ı")) Then

            result = result & "ı"

        Else

            result = result & Mid(Metin, i, 1)

        End If

    Next

    turkcem = result

End Function

sn. @alicimri @berduş @feraz
yardımlarınız için teşekkür ederim arkadaşlar

Sayfalar: 1 2 3 4

alicimri

accessman

accessman

accessman