openoffice-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Vladislav Stevanovic <stevanovicvladis...@gmail.com>
Subject Re: BASIC and UTF-8
Date Tue, 15 Oct 2013 14:02:37 GMT
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 <sos@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-unsubscribe@openoffice.apache.org>
> For additional commands, e-mail: dev-help@openoffice.apache.org
>
>

Mime
  • Unnamed multipart/alternative (inline, None, 0 bytes)
View raw message