Euro sign in Word with Harbour

[Maurizio]

Hello
I have a probelm with Euro sign and HArbour

This works well with xHarbour
oText:TypeText( "€ " + "123.00")

in Harbour I have Ç 123,00 ( in video and in print )

some solution ?

Regard MAurizio

[Richard Chidiak]

Maurizio

Same for accented characters , looks like Harbour does not like them with OLE

Sending to Excel , same problem

I have on the top of my program
REQUEST HB_LANG_FR

and also HB_langSelect("FR")

but does not make a différence

Antonio any idea ?

this is a small sample

Code: Select all  Expand view

   TRY
       oExcel := CREATEOBJECT( "Excel.Application" )
    CATCH
       MSGSTOP("L'Application Microsoft Excel n'est pas installée sur cet Ordinateur !" )
       RETURN NIL
   END

   oBook  := oExcel:WorkBooks:Add()
   oSheet := oBook:Worksheets(1)

   nLine := 1
 
   oSheet:Cells( nLine, 1 ):Value = "Désignation"
    oSheet:Cells( nLine,2 ):Value = "Quantité"

   oExcel:Visible := .T.

   oexcel := nil

 

Richard

[Maurizio]

Hello Richard


request HB_CODEPAGE_ITWIN
set( _SET_CODEPAGE, "ITWIN" )

Regards Maurizio
www.nipeservice.com

[Silvio.Falconi]

thereis an code
do you tried with #DEFINE EURO CHR(128)

(Alt + 128 is the symbol of euro )

on Print
oPrn:CmSay( x,y,Transform( Factura->Total,"@E 999,999.99" ) + Space(1) + Chr(128),oFont )

it coul be
oText:TypeText( chr(128) + "123.00")

to control make
#include "Fivewin.ch"
FUNCTION MAIN()

? ISOEM( CHR( 128 ) )
? ISANSI( CHR( 128 ) )

RETURN NIL

and remade these function

Code: Select all  Expand view

   CLIPPER ISANSI( PARAMS )         // cString    --> lAnsi
    {
       LPBYTE pString = ( LPBYTE ) _parc( 1 );
       WORD  w = 0, wLen = _parclen( 1 );
       BOOL  bAnsi = FALSE;

       while( w < wLen && ! bAnsi )
       {
          bAnsi = ( pString[ w ] >= 224 && pString[ w ] <= 255 ) || pString[ w ] == 128;
          w++;
       }

       _retl( bAnsi );
    }

    //----------------------------------------------------------------------------//

    CLIPPER ISOEM( PARAMS )         // cString    --> lOem
    {
       LPBYTE pString = ( LPBYTE ) _parc( 1 );
       WORD  w = 0, wLen = _parclen( 1 );
       BOOL  bOem = FALSE;

       while( w < wLen && ! bOem )
       {
          bOem = pString[ w ] > 128 && pString[ w ] <= 168;
          w++;
       }

       _retl( bOem );
    }
 

[Richard Chidiak]

Maurizio

Perfect ,

Thank you

Richard