Seite 1 von 1
Re: ASCII-Datei in Basic-Variable einlesen
Verfasst: Mi, 09.07.2008 16:04
von komma4
Georg: mach' das.
Siehe in der F1-Hilfe Line Input
Hilft das?
Re: ASCII-Datei in Basic-Variable einlesen
Verfasst: Do, 10.07.2008 09:55
von 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?
Re: ASCII-Datei in Basic-Variable einlesen
Verfasst: Do, 10.07.2008 13:23
von 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
Re: ASCII-Datei in Basic-Variable einlesen
Verfasst: Do, 10.07.2008 14:23
von turtle47
Hallo Georg,
vielleicht hilft Dir dieser
Beitrag weiter.
Jürgen