Tschechischen Zeichensatz in Excel exportieren mit ClientAccess Datenübertragung

[Fuerchau]

So wie ich das verstanden habe, habt ihr doch für jedes Land eine eigene AS/400?
Oder, wie es ebenso vernünftig gewesen wäre, je Landesgruppe eine eigene Daten-Lib mit der korrekten CCSID sowie passendem Job, Bildschirm und Drucker.
Die CCSID 500 gilt eben nur für geografisches Westeuropa und nicht für Osteuropa, so wie es in der Beschreibung steht.
870 ist eben speziell für Osteuropa und nicht mit 500 kompatibel.

Läuft das umcasten denn auf einen Fehler und wenn ja auf welchen?

[Bau]

Nein wir haben nicht für jedes Land eine eigene AS/400 sondern für ganz Europa nur eines
und dazu gehört auch unser Werk in Tschechien. Ja für Tschechien haben wir eine eigene
Daten-Lib aber die steht auch auf 500 (korrekt wäre sicher 870).
Da wir jetzt das Werk migrieren nach SAP und welches nicht auf AS/400 läuft, leider
werden wir nichts mehr ändern.

Nein das umcasten läuft nicht auf Fehler.
Da wir ganze Files mit allen Feldern migrieren,
wüsste ich jetzt nicht so gleich auf die Schnelle
wie das mit dem umcasten gehen würde.

Auf jeden Fall es hat sich erledigt und ich bin Froh dass es dieses Forum gibt - Macht weiter so !

[Fuerchau]

Danke für die Antwort.
Allerdings würde mich deine Excel-Lösung ohne CCSID-Umsetzung interessieren.
Dies wäre bestimmt auch eine Hilfe für andere User.
Könntest du uns diese noch nahebringen?

[Bau]

Da Excel bei uns unter UNICODE (UTF-8) läuft,
haben wir im Excel eine ganz einfache Umwandlung durchgeführt
mit dem Befehl "Ersetzen". Wir haben einfach ein Makro erstellt
mit allen gängigen tschechischen Umlauten wie wir sie von der AS/400 bekommen haben
und dann durch den richtigen UNICODE (Replacement=ChrW(345)) ersetzt für jedes Zeichen.

Beispiel:
Cells.Replace What:="ð", Replacement:=ChrW(345), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

Das könnte natürlich noch viel einfacher und komfortabler umgesetzt werden,
indem eine 2. Tabelle mit allen Übersetzung der tschechischen Zeichen in das richtig UNICODE Zeichen erstellt wird, und dann mit einem Makro mit einer Schlaufe diese Tabelle abgearbeitet wird.

[Fuerchau]

Excel läuft nie unter UTF-8 (1-4-Zeichen) sondern immer mit Unicode (WideChar = 16-Bit), dies entspricht dem UCS2 der AS/400. UTF-8 dient ausschließlich als Austauschformat.
WideChar wurde von Microsoft mit Windows98/2000 eingeführt.
Während VB6/VBA.6 bereits WideChar als default hatte, arbeitete VB5 und VBA.5 noch mit Char.

Zu erkennen ist das an der Funktion ChrW(), dies ist die WideChar-Funktion zu Chr() 8-Bit.
Das Gegenstück dazu ist AscW() statt Asc() um den Unicodewert auszulesen.
Und noch zusätzlich gibt es die Unterscheidung zwischen Len() = Zeichenlänge und LenB() = ByteLänge.

Entschuldigung für die Korrektur;-).

Eleganter könnte man das sicherlich über ein VBA-AddIn steuern, dem man in einer Tabelle die Quell- und Zielzeichen hinterlegt.
Beim Start des AddIns wird dies in eine 16-Bit-Tabelle geladen, die für alle Codes eine 1:1-Übersetzung speichert und an Hand der Vorgabetabelle die Ausnahmen dazu lädt.
Es gibt dann eine Funktion, der man dann den Zellwert übergibt und den Ersatzwert zurückgibt.
Das Bilden des Ersatzwertes erfolgt einfach über eine Schleife mit den Funktionen AscW() als relativer Index der gespeicherten Tabelle für die Funktion ChrW().

Beispiel:
dim Ersatz(0 to 32767) as integer 'zu befüllende Tabelle beim Init

public function ErsatzString(byval FromString as string) as string
dim xI as integer
ErsatzString = FromString
for xI = 1 to len(ErsatzString)
mid$(ErsatzString, xI, 1) = ChrW(Ersatz( AscW(Mid$(ErsatzString, xI, 1))))
next
end function

Der Vorteil ist auf jeden Fall die erhebliche Einsparung der Laufzeit, da hier keine Suchfunktionen durchgeführt werden.
Die Replacefunktion scannt nach dem Code, ersetzt alle Vorkommen und erstellt einen neuen Zellwert.
Dies erfolgt je Zelle und Code!
Die VBA-Funktion erstellt nur 1 neuen Zellwert und ersetzt alle Zeichen auf einmal.
Viel Spaß beim Probieren, aber ich glaube es lohnt sich.

[Bau]

Danke für Deine genauen Erklärungen.
Du hast natürlich Recht, dass alles viel eleganter gelöst werden kann
und dazu hat es in diversen Excel Forum auch Beiträge.

Da die Laufzeit bei uns kein Problem ist werde ich Deine gut Lösung dann in einer ruhigen Zeit anschauen
das heisst wenn ich pensioniert bin

[Fuerchau]

"wenn ich pensioniert bin" <= da kann ich ja wohl noch lange darauf warten;-).