Maybe will be easier for better understunding each other is to first look
here:
http://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=58328
Regards Wlada
2013/10/15 Fernand Vanrie <s...@pmgroup.be>
> Vladislav ,
>
> In Belgium we have to deal with at least 2 languages Dutch and French who
> have also a lot non asci characters, we use extenifly Basic and some times
> hwe have to decode some text to UTF-8 who works and we decode the stream
> plese find below some code to encode a stream before insertion in a
> document
>
> hope it helps
>
> Greetz Fernand
> oPipe = createUNOService ("com.sun.star.io.Pipe")
> oTextOutputStream = createUNOService ("com.sun.star.io.**
> TextOutputStream")
> oTextOutputStream.**setOutputStream(oPipe)
> oTextOutputStream.setEncoding(**"UTF-8") '"Windows-1252")
>
> szone = "some tekst with &้"''((งงง่่่!! non asci character
> 'print szone
> oTextOutputStream.writeString(**szone)
> ' at current viewcursor positiong
> InsertViaStream(opipe)
>
> sub InsertViaStream(oInputStream as Any)
> oStorageFac = createUnoService("com.sun.**star.embed.StorageFactory")
> oStorage = oStorageFac.createInstance
> oStream = oStorage.openStreamElement("**ms777", com.sun.star.embed.**
> ElementModes.WRITE)
>
> 'now pump the inputstream to the stream
> oPump = createUNOService ("com.sun.star.io.Pump")
> oPump.setInputStream(**oInputStream)
> oPump.setOutputStream(oStream)
> oPump.start()
>
> while oInputStream.available()>0
> wait(50)
> wend
> oStream.flush
> oStream.closeOutput
> oStream.dispose
> 'open the stream again, now for seekable reading
> oStream = oStorage.openStreamElement("**ms777", com.sun.star.embed.**
> ElementModes.SEEKABLEREAD)
> dim oProps(1) as new com.sun.star.beans.**PropertyValue
> oProps(0).Name = "InputStream"
> oProps(0).Value = ostream
> oProps(1).Name = "FilterName"
> oProps(1).VAlue = "HTML (StarWriter)"
>
>
> Dim oInsertCursor As Object
> if wat = "Cell" then
> oInsertCursor = oVC.cell.**createTextCursorByRange(oVC,**false)
> elseif wat = "Frame" then
> oInsertCursor = oVC.TextFrame.**createTextCursorByRange(oVC,**false)
> elseif wat = "Doc" then
> oInsertCursor = oVC.text.**createTextCursorByRange(oVC,**false)
> endif
> oInsertCursor.**InsertDocumentFromURL("" , oProps())
>
> opipe.flush
> opipe.closeinput
> ostorage.dispose
> ostream = nothing
> end sub
>
> Hello,
>> As I can see, there is a lot of people who are using BASIC for macros. And
>> I too.
>> Problem is next: does anybody developing Basic?
>> Problem 1: for all who want to deal with characters outside of English
>> language we have big problem, for example, with print function. I can not
>> export Cyrillic characters.
>> Problem 2: This is an office suit. Problem is when I want export some data
>> in a brand new .xml document. I can not create this xml document without
>> meta files in zipped file.
>> If I look on OO forum, there are majority of users who deal with Basic. If
>> this is reality, what is problem for little polishing for Basic?
>>
>> Regards,
>> Wlada
>>
>>
>
> ------------------------------**------------------------------**---------
> To unsubscribe, e-mail:
> dev-unsubscribe@openoffice.**apache.org<dev-unsubscr...@openoffice.apache.org>
> For additional commands, e-mail: dev-h...@openoffice.apache.org
>
>
