BooksXL - Your Online Bookshop

 

Home

Projekte

VB Tipps

über mich

vb tipps

start

Forms:

tooltips (VB3)

test for versions

Multimedia & DB:

pixel & twips

Internet:

DB-update

And:

unicode & codepage
 

(c) 2002-2004 a.farny
hosted by mediapage

see also mtb-mittenwald

2904 / 2

 

AMAZON: XML mit VB und ASP

home deutsche/german version

"Strange characters" - Unicode replacement (VB6)

The problem was easy: a langauge learning program had to show german and polish characters. Maybe american people wonder about the funny characters in all the european languages? So our developer's machines did, too. The languages sentences are strored in a database system. To produce this database it was helpful to use Access 2000 and unicode character sets. But today in times of VB6 it isnt able to handle this correctly in labels and textboxes.

The polish parts have to be shown using the central european codepage, for the german we need the western european.

Now there was the following problem: VB did its job in a way, that very strange characters were shown. Correctly shown polish characters did only appear, whenn we put "wrong" characters to the database. These wrong characters were these we got when showing polish text using western european codepage. :-?

 

The function StrConv(string, vbUnicode) gives us back a string that looks something strange: any s e c o n d character seems to be a blank. But looking closer to this, we recognized, this was our point of interest. :-!)

The code of such a character may be =0, then it is a normal character. Codes <>0 show us, this is a special unicode character.

 

So, let us try a funny thing: 

Private Function DoStringChangeCodes_d_pl(sSrc As String) As String
Dim i As Integer
Dim b1 As Variant, b2 As Variant
Dim n1, n2
Dim sX As String
Dim sNeu As String

    sNeu = ""
    sX = StrConv(sSrc, vbUnicode)

    For i = 2 To Len(sX) Step 2
        b1 = Mid(sX, i - 1, 1)
        b2 = Mid(sX, i, 1)
        n1 = Asc(b1) ' first char of "Doublechar"
        n2 = Asc(b2) ' second char
        
        If n2 = 0 Then 'normal char
            sNeu = sNeu & b1
        
        ElseIf n1 = 5 And n2 = 1 Then ' a with '
            sNeu = sNeu & Chr(185)
        ElseIf n1 = 25 And n2 = 1 Then ' e with ?
            sNeu = sNeu & Chr(234)
        ElseIf n1 = 91 And n2 = 1 Then ' s with '
            sNeu = sNeu & Chr(156)
        ElseIf n1 = 7 And n2 = 1 Then ' c mit '
            sNeu = sNeu & Chr(230)
        ElseIf ...
        Else ' What is that???
            MsgBox "Unexpected char!" & Chr(13) & _
                "Code: " & n1 & "." & n2, vbCritical, "Ooops - ???"
        End If
    Next i
    
    DoStringChangeCodes_d_pl = sNeu
    
End Function

This function after finishing the DB production replaces any polish unicode characters.

 

top