Mailing-List: contact dev-help@openoffice.apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@openoffice.apache.org
Received-SPF: pass (nike.apache.org: domain of stevanovicvladislav@gmail.com
 designates 209.85.212.179 as permitted sender)
MIME-Version: 1.0
In-Reply-To: <525CEC63.6040608@pmgroup.be>
References: 
 <CAEwuTPNH7r_sc5RXeQ_H7=don2AXMV3=NDM0weHYUgw7+TqRUw@mail.gmail.com>
 <525CEC63.6040608@pmgroup.be>
From: Vladislav Stevanovic <stevanovicvladislav@gmail.com>
Date: Tue, 15 Oct 2013 16:02:37 +0200
Message-ID: 
 <CAEwuTPP9PF6_YQ-yCzmWEwkkGkGp8Yi52-TOj-5eoUJmOw7eFA@mail.gmail.com>
Subject: Re: BASIC and UTF-8
To: dev@openoffice.apache.org
Content-Type: multipart/alternative; boundary=f46d044283d6ecb94a04e8c80bd7

--f46d044283d6ecb94a04e8c80bd7
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

Maybe will be easier for better understunding each other is to first look
here:
http://forum.openoffice.org/en/forum/viewtopic.php?f=3D20&t=3D58328

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 time=
s
> 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 =3D createUNOService ("com.sun.star.io.Pipe")
> oTextOutputStream =3D createUNOService ("com.sun.star.io.**
> TextOutputStream")
> oTextOutputStream.**setOutputStream(oPipe)
> oTextOutputStream.setEncoding(**"UTF-8")  '"Windows-1252")
>
> szone =3D "some tekst with &=E0=B9=89"''((=E0=B8=87=E0=B8=87=E0=B8=87=E0=
=B9=88=E0=B9=88=E0=B9=88!! non asci character
> 'print szone
> oTextOutputStream.writeString(**szone)
> ' at current viewcursor positiong
>  InsertViaStream(opipe)
>
> sub InsertViaStream(oInputStream as Any)
> oStorageFac =3D createUnoService("com.sun.**star.embed.StorageFactory")
> oStorage    =3D oStorageFac.createInstance
> oStream     =3D oStorage.openStreamElement("**ms777", com.sun.star.embed.=
**
> ElementModes.WRITE)
>
> 'now pump the inputstream to the stream
> oPump =3D 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 =3D oStorage.openStreamElement("**ms777", com.sun.star.embed.**
> ElementModes.SEEKABLEREAD)
> dim oProps(1) as new com.sun.star.beans.**PropertyValue
> oProps(0).Name =3D "InputStream"
> oProps(0).Value =3D ostream
> oProps(1).Name =3D "FilterName"
> oProps(1).VAlue =3D "HTML (StarWriter)"
>
>
>     Dim oInsertCursor As Object
>     if wat =3D "Cell" then
>     oInsertCursor =3D oVC.cell.**createTextCursorByRange(oVC,**false)
>     elseif wat =3D "Frame" then
>     oInsertCursor =3D oVC.TextFrame.**createTextCursorByRange(oVC,**false=
)
>     elseif wat =3D "Doc" then
>     oInsertCursor =3D oVC.text.**createTextCursorByRange(oVC,**false)
>     endif
>      oInsertCursor.**InsertDocumentFromURL("" , oProps())
>
> opipe.flush
> opipe.closeinput
> ostorage.dispose
> ostream =3D nothing
>  end sub
>
>  Hello,
>> As I can see, there is a lot of people who are using BASIC for macros. A=
nd
>> 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 no=
t
>> export Cyrillic characters.
>> Problem 2: This is an office suit. Problem is when I want export some da=
ta
>> 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-unsub=
scribe@openoffice.apache.org>
> For additional commands, e-mail: dev-help@openoffice.apache.org
>
>

--f46d044283d6ecb94a04e8c80bd7--