| |
Fortgeschrittene ProgrammierungRe: StrConv auf einem DBCS-System (z.B. China-Taiwan) | | | Autor: Woellmi | Datum: 06.02.18 08:37 |
| Hallo Blackbox,
danke für Deine Info.
Dies hatte ich auch gedacht. Es sieht ja in der Doku so aus, als ob "vbWide" und "vbNarrow"
extra für den asiatischen Bereich als Entsprechungen zu "vbUniCode" und "vbFromUniCode"
gedacht sind, doch leider bringt dies nichts.
Ich habe es mal anders probiert, und so wenigstens eine 1:1 Hin- und Rückwandlung geschafft.
Folgender Code bringt tatsächlich auf deutschen, wie auf chinesischen Rechnern das identische Ergebnis.
Ich weise dem Befehl zu, dass er nicht mit der System LOCID, sondern immer mit der deutschen LOCID
arbeiten soll.
Dim abtA1() As Byte
Dim abtA2() As Byte
Dim sT1 As String
Redim abtA1(3)
abtA1(0) = 46
abtA1(1) = 47
abtA1(2) = 48
abtA1(3) = 49
'//1. ANSI Byte-Array in String wandeln
sT1 = StrCov(abtA1, vbUnicode, 7&)
'//Test: LenB(sT1) => 8 => OK
'//2. Test Rücktransformation: String in ANSI Byte-Array
abtA2 = StrConv(sT1, vbFromUnicode, 7&)
'//Kontrolle: abtA1 == abtA2 => OK, klappt also Nun kommt die nächste Hürde. Die Umwandlung hat scheinbar geklappt, nun muss der
neue String in den Stream eingepflanzt werden.
D.h. ein vorhandener String wird um die Länge des Neuen "sT1" erweitert,
also in diesem Fall "8 Spaces" und dann wird per "MID$" der neue String eingepflanzt.
Auch hier klappt etwas im Unicode System noch nicht.
Mal sehen, wie man dies hier ändern muss.
Also vielen Dank "Blackbox".
Es ist schon seltsam, an was man alles denken muss, um auf einem Unicode System
funktionsfähig zu bleiben. Und dabei geht es noch nicht einmal um die Darstellung von
chinesischen Schriftzeichen.
Tschaui
Woellmi | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|