Convert typed characters on keyboard

Question

Hello everyone

Sometimes when typing on keyboard in Arabic language, the language input is in English and I didn't notice that ..
Example:
hgpl] ggi vf hguhgldk

The example is Arabic words but when typing in English. Is there a function that converts the typed characters to the desired language?

 

The thread has been posted here

http://eileenslounge.com/viewtopic.php?f=30&t=33694

Comments

Have you considered this Microsoft article? Translate text into a different language

---

Thanks a lot for reply, In fact this is not a translation. This is an issue of equivalent letters on keyboard in Arabic and English. Example: the letter t in English is "ف" in Arabic on keyboard.

Answer 1

הפונקצייה הבאה מתאימה למקלדת עברית,

כדי להתאים למקלדת בערבית את צריך לשנות את MyNewNote בהתאם למקלדת שלך,

(לדוגמא: במקום         Case "A", "a"
            MyNewNote = "ש"

תשנה ל:

        Case "A", "a"
            MyNewNote = "ف")

Option Compare Database

Public Function MyReplace(MyText) As String
    If IsNull(MyText) Or MyText = "" Then
        MyReplace = ""
    Exit Function
    End If
    For i = 1 To Len(MyText)
        NoteToRepkace = Mid$(MyText, i, 1)
        NewNote = MyNewNote(NoteToRepkace)
        NewText = NewText & NewNote
    Next i
    MyReplace = NewText
End Function

Function MyNewNote(OldNote) As String
    If IsNull(OldNote) Or OldNote = "" Then
        MyNewNote = ""
    Exit Function
    End If
    Select Case Left(OldNote, 1)
        Case "A", "a"
            MyNewNote = "ש"
        Case "B", "b"
            MyNewNote = "נ"
        Case "C", "c"
            MyNewNote = "ב"
        Case "D", "d"
            MyNewNote = "ג"
        Case "E", "e"
            MyNewNote = "ק"
        Case "F", "f"
            MyNewNote = "כ"
        Case "G", "g"
            MyNewNote = "ע"
        Case "H", "h"
            MyNewNote = "י"
        Case "I", "i"
            MyNewNote = "ן"
        Case "J", "j"
            MyNewNote = "ח"
        Case "K", "k"
            MyNewNote = "ל"
        Case "L", "l"
            MyNewNote = "ך"
        Case "M", "m"
            MyNewNote = "צ"
        Case "N", "n"
            MyNewNote = "מ"
        Case "O", "o"
            MyNewNote = "ם"
        Case "P", "p"
            MyNewNote = "פ"
        Case "Q", "q"
            MyNewNote = "/"
        Case "R", "r"
            MyNewNote = "ר"
        Case "S", "s"
            MyNewNote = "ד"
        Case "T", "t"
            MyNewNote = "א"
        Case "U", "u"
            MyNewNote = "ו"
        Case "V", "v"
            MyNewNote = "ה"
        Case "W", "w"
            MyNewNote = "'"
        Case "X", "x"
            MyNewNote = "ס"
        Case "Y", "y"
            MyNewNote = "ט"
        Case "Z", "z"
            MyNewNote = "ז"
        Case "`"
            MyNewNote = ";"
        Case ";"
            MyNewNote = "ף"
        Case "'"
            MyNewNote = ","
        Case "/"
            MyNewNote = "."
        Case "."
            MyNewNote = "ץ"
        Case ","
            MyNewNote = "ת"
        Case "("
            MyNewNote = ")"
        Case ")"
            MyNewNote = "("
        Case "["
            MyNewNote = "]"
        Case "]"
            MyNewNote = "["
        Case "{"
            MyNewNote = "}"
        Case "}"
            MyNewNote = "{"
        Case "<"
            MyNewNote = ">"
        Case ">"
            MyNewNote = "<"
        Case Else
            MyNewNote = OldNote
    End Select
End Function