passing a string in Cyrillic

[PhilOfWalton]

I have a Russian word близко (close) and I want to check that the word is indeed in Cyrillic script

Now I know that the Unicode range for Cyrillic is 0400 to 04FF and the Cyrillic supplementary is from 0500 to 052F

In windows I have added Russian as a language pack, and in Access changed the editor format to Arial (Cyrillic)

I can copy the Cyrillic word into my table OK.

If I try to pass the word so a function to try to attempt some verification, the word appears as ??????. and obviously I can do nothing with it.

Any ideas how to pass words in non Latin languages

Thanks

Phil

[Rabbit]

Hmm, interesting. You have to use StrConv to convert it to Unicode first.

Sub Test()
    Dim str As String, i As Integer
    str = StrConv(DLookup("Field1", "Table2"), vbUnicode)
    For i = 1 To Len(str) Step 2
        Debug.Print Right("0" & Hex(Asc(Mid(str, i + 1, 1))), 2) & Right("0" & Hex(Asc(Mid(str, i, 1))), 2)
    Next
End Sub

Which prints this when run against the string you supplied above.

0431
043B
0438
0437
043A
043E

[PhilOfWalton]

Thank a lot Rabbit, we're there!

Slight change of code, but I am passing this back in case you're interested

I have a table of languages that holds the Unicode language range which I pass to the function:

Function CheckLanguageOK(Word As String, LanguageLegalFrom As Long, LanguageLegalTo As Long) As Boolean
 
    Dim UnicodeChar As String
    Dim UnicodeValue As Long
    Dim i As Integer
    Dim TestWord As String
 
    If LanguageLegalFrom = 0 Or LanguageLegalTo = 0 Then     ' Language not foun
        Exit Function
    End If
 
    TestWord = StrConv(Word, vbUnicode)
    CheckLanguageOK = -1
 
    For i = 1 To Len(TestWord) Step 2
        UnicodeChar = Right("0" & Hex(Asc(Mid(TestWord, i + 1, 1))), 2) & Right("0" & Hex(Asc(Mid(TestWord, i, 1))), 2)
        UnicodeValue = Val(UnicodeChar)
 
        If ChangeHexToDecimal("&h" & UnicodeChar) < Val(LanguageLegalFrom) Or ChangeHexToDecimal("&h" & UnicodeChar) > Val(LanguageLegalTo) Then
            CheckLanguageOK = 0
            Exit For
        End If
    Next i
 
End Function
 

Works perfectly

Thanks again

[PhilOfWalton]

Sorry, a supplementary question.
I have the following series of bytes, those beginning with 04 are Cyrillic, and those beginning with 00 are English.

0435
0020
0434
0430
043D
043D
044B
0435
003C
002F
0073
0070
0061
006E
 

At some point I need to strip the English stuff off and just leave the Cyrillic.
How do I convert those numbers to Unicode so that they can be read as a word?

Again thanks

Phil

[PhilOfWalton]

Not to worry. Problem solved

Phil

[Rabbit]

Cool, just curious, what did you have to do to get it back into the table?

[PhilOfWalton]

Hi Rabbit

The guts of the solution is below

The first bit of code is abbreviated but essentially it is translating an Input string to an Output String using say German as the input language an French as the output language

The translation line would look like this

IE.Navigate "http://translate.google.com/#" & "de" & "/" & "fr" & "/" & "Cat"
 

Here is part of the code

 Translate2_Start:
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 0
 
    ' TO CHOOSE INPUT LANGUAGE
    If Nz(InLanguage) = "" Then
        InLanguage = "auto"
    End If
 
    'Open website
    IE.Navigate "http://translate.google.com/#" & InLanguage & "/" & OutLanguage & "/" & InputStr
 
    DoEvents
 
    Do Until IE.ReadyState = 4
        apWait LanguageTranslateTime, 0                         ' Wait half .05 seconds
        DoEvents
    Loop
 
    OutputStr = Replace(IE.Document.getElementById("result_box").innerHTML, "<span>", "")   ' Get rid of the HTML "<span>"
 
    IE.Quit
 
     If OutputStr > "" Then
        OutputStr = Replace(OutputStr, "</span>", "")           ' Get rid of the HTML "</span>"
        OutputStr = Replace(OutputStr, "&amp;", "&")            ' Replace undescored shortcut letters
 
       TranslatedWord = StrConv(OutputStr, vbUnicode)
        TestWord = ""
        For i = 1 To Len(TranslatedWord) Step 2
            Debug.Print Right("0" & Hex(Asc(Mid(TranslatedWord, i + 1, 1))), 2) & Right("0" & Hex(Asc(Mid(TranslatedWord, i, 1))), 2)
            TestWord = Right("0" & Hex(Asc(Mid(TranslatedWord, i + 1, 1))), 2) & Right("0" & Hex(Asc(Mid(TranslatedWord, i, 1))), 2)
            TmpWord = TmpWord & CharW("U" & TestWord, -1)        ' Indicate it's a unicoode character
        Next i
 
            Debug.Print StrConv(OutputStr, vbUnicode)
    End If
 

The second function uses the ChrW$ function to return each 4 digit hex number as a Cyrillic letter (providing you have the Russian Language pack installed?????)

I add the ???? because I can translate into Mongolian (well someone has to) and I don't have the Mongolian language pack installed.
In fact I have just added Bengali as a language, to translate to, but have not added the language pack, and it is coming out OK.

Interesting!

Public Function CharW(TestWord As Variant, Optional Exact_functionality As Boolean = False) As String
    ' Use a Leading “U” or “u” to indicate Unicode values
    ' Exact_functionality returns the Unicode characters for Ascii(128) to Ascii(159) rather than the Windows characters
 
    If UCase(Left$(TestWord, 1)) = "U" Then
        TestWord = Replace(TestWord, "U", "&H", 1, 1, vbTextCompare)
    End If
 
    TestWord = CLng(TestWord)
 
    If TestWord < 256 Then
        If Exact_functionality Then
            CharW = ChrW(TestWord)
        Else
            CharW = Chr(TestWord)
        End If
    Else
        CharW = ChrW(TestWord)
    End If
 
End Function
 

Phil