OpenOffice.info

Hallo Georg,

vielleicht hilft Dir dieser [url=http://www.oooforum.org/forum/viewtopic.phtml?t=53813&highlight=textinputstream]Beitrag[/url] weiter.

Jürgen

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

Hallo Georg,

wenn ich Dich richtig verstehe dann kommt der String bei Dir so an:
[quote]"M0xF6gst Du ein W0xFCrstchen auf der Straße?"
[/quote]

Dann versuche mal folgenden Code:
[code]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[/code]

Viel Erfolg

Jürgen

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?

Georg: mach' das.

Siehe in der F1-Hilfe [color=#008000]Line Input[/color]

Hilft das?