ASCII-Datei in Basic-Variable einlesen

[komma4]

Georg: mach' das.

Siehe in der F1-Hilfe Line Input

Hilft das?

[komma4]

Ich habe keine Probleme eine Datei mit Umlauten unter Verwendung des in der Hilfe angegebenen Codebeispiels einzulesen und wiederzugeben (Testrechner WinXP, OOo 2.3.1).

Kannst Du Beispieldaten geben, mit denen es nicht funktioniert?

[turtle47]

Hallo Georg,

wenn ich Dich richtig verstehe dann kommt der String bei Dir so an:

"M0xF6gst Du ein W0xFCrstchen auf der Straße?"

Dann versuche mal folgenden Code:

Code: Alles auswählen

Sub ASCI_2_UNICODE
Dim AsciCode as variant
Dim UniCode as variant
   myString = ""M0xF6gst Du ein W0xFCrstchen auf der Straße?""
   AsciCode = array ("0xC4","0xE4","0xD6","0xF6","0xDC","0xFC")
   UniCode = array ("Ä","ä","Ö","ö","Ü","ü")
   for i = 0 to ubound(AsciCode())
   AsciCode1= AsciCode(i)
   UniCode1= UniCode(i)
   FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
   aResult=FuncAcc.callFunction("SUBSTITUTE", array(myString ,AsciCode1,UniCode1))
   mystring = aResult
   next i
   msgbox mystring
End Sub

Viel Erfolg

Jürgen

[turtle47]

Hallo Georg,

vielleicht hilft Dir dieser Beitrag weiter.

Jürgen