Seu teste.
PROCEDURE Main
LOCAL cTexto := ""
set(_SET_CODEPAGE,"UTF8")
? cTexto := "éééééééééééé"
? Len( cTexto )
? hb_StrToUTF8( cTexto )
? Len( hb_StrToUTF8( cTexto ) )
Inkey(0)
RETURN
Saudações,
Itamar M. Lins Jr.
Moderador: Moderadores
PROCEDURE Main
LOCAL cTexto := ""
set(_SET_CODEPAGE,"UTF8")
? cTexto := "éééééééééééé"
? Len( cTexto )
? hb_StrToUTF8( cTexto )
? Len( hb_StrToUTF8( cTexto ) )
Inkey(0)
RETURN
hazael escreveu:Por exemplo, em um browse(), ou para desenhar uma box mas sem usar dispbox(), por exemplo...
#command @ <x>, <y> BOX <char> => @ <x>, <y>, <x>, <y> BOX <char>
@ 01, 10 BOX CHR(200)
@ 3, 10, 10, 40 BOX B_DOUBLE + Space(1)
hazael escreveu:Eu estava gravando cm UTF8 pois me parece que o padrão dos fontes do Harbour são em UTF8 também, a menos que eu estaja enganado sobre isso.
hazael escreveu:* BANCO DE DADOS
* CODIGO FONTE
* TELA
REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850
PROCEDURE Main
LOCAL cTexto := ""
set(_SET_CODEPAGE,"PTISO")
? cTexto := "MAÇÃ"
set(_SET_CODEPAGE,"CP437")
? cTexto
set(_SET_CODEPAGE,"UTF8")
? cTexto
set(_SET_CODEPAGE,"CP850")
? cTexto
Inkey(0)
RETURN
...
oPrn:CharSet(WIN_OEM_CHARSET) //oPrn:CharSet(255)
...
HB_CDPSelect("PT850")
...
If lMatricial
oPrn:TextoutAt(nCol,,'*---------------------------------------+----------------------------------*',.t.)
oPrn:TextoutAt(nCol,,'| F A T U R A / D U P L I C A T A |Para Uso da Instituicao Financeira|',.t.)
oPrn:TextoutAt(nCol,,'|-----------+------+----------+---------| |',.t.)
...
Else
oPrn:SetPos(nCol)
oPrn:TextoutAt(nCol,,'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»',.t.)
oPrn:TextoutAt(nCol,,'º F A T U R A / D U P L I C A T A ºPara Uso da Instituicao Financeiraº',.t.)
oPrn:TextoutAt(nCol,,'ÌÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍ͹ º',.t.)
cCliente := "çáé" //String UTF8 do HTML/Apache pad(cCliente,60) ler que tem 6 characteres e acrencenta o resto para completar 60, só que são 3 não seis.
nTam := 60 - hb_utf8len(alltrim(cCliente)) //3
cCliente := alltrim(cCliente) + space(nTam)
2015-07-27 16:36 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/chruni.c
* added new functions hb_BStuff() and hb_UStuff()
* src/rtl/Makefile
- src/rtl/padc.c
- src/rtl/padl.c
- src/rtl/padr.c
+ src/rtl/padx.c
* added new functions hb_BPadL(), hb_BPadR(), hb_BPadC(),
hb_UPadL(), hb_UPadR() and hb_UPadC()
* include/harbour.hbx
* updated
* src/rtl/memoedit.prg
* src/rtl/teditor.prg
* use hb_U*() functions for string manipulation - now it works
correctly with mulitbyte encodings even if HVM CP does enabled
character indexing, i.e. "UTF8"
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes