Unicode karakterleri nasıl kullanabilirim?

clea all

IF !FILE("ForeignData.dbf")

   *** Create table with binary text fields!

   CREATE TABLE FOREIGNDATA  ( ID C(10),DESCRIPT  Blob,LDESCRIPT Blob)

   USE ForeignData Shared           

 

   *** Load up sample data as binary Unicode!    

   INSERT INTO  ForeignData ;

   ( id,descript,lDescript) VALUES;

   ( SYS(2015), STRCONV("Korean",5),;

     STRCONV("IAAgACAAIADIwG24jKwgAIzBHKwYtJSyIABLusTJIADostC5MK4gAHzOfLcgAA==",14))

 

   INSERT INTO  ForeignData ;

   ( id,descript,lDescript) VALUES;

   ( SYS(2015),STRCONV( "Chinese",5) ,;

     STRCONV("rpt3gmlfcoJnUW5/b5g6eU9c",14)  )

 

   INSERT INTO  ForeignData ;

   ( id,descript,lDescript) VALUES;

   ( SYS(2015),STRCONV( "Russian",5),;

     STRCONV("EQQ+BDsETARIBD4EOQQgAEYEMgQ1BEIEPQQ+BDkEIAAyBD0EQwRCBEAENQQ9BD0EOAQ5BCAANAQ4BEEEPwQ7BDUEOQQ=",14)  )

ELSE

  USE ForeignData IN 0

ENDIF           

SELECT ForeignData

* brow

 

export  to c:\asup.xls  xl5

select Id,Descript as Note,LDescript as Description   FROM ForeignData INTO CURSOR TFData 

SELECT Id, CAST(STRCONV(Note,10) as M)  as Note , CAST(STRCONV(Description,10) as M) as Description;

 FROM TFData  INTO CURSOR TFData2

* brow  

 

TEXT TO lcHTML

 

 

 

VFP Unicode Data Representation

 

ENDTEXT

*** UTF-8 Encode - not necessary here, but if you had extended text

*** you'd need to do this

lcHtml = STRCONV(lcHTML,9)

 

SCAN

   lcHTML = lcHTML + Note + " - " + Description + ;

            "" + CHR(13) + CHR(10)

ENDSCAN

lcHTML = lcHTML + ""

*****************************************

afile="c:\asup.html"

set textmerge on to (afile) noshow

\<<lchtml>>

set textmerge to

 

apIE=createObject('internetexplorer.application')

apIe.navigate(afile)

do while apIE.busy or apie.readystate#4

enddo

with apIE

.visible=.t.

.width=sysmetric(1)

.height=sysmetric(2)

.top=0

left=0

endwith

********************************************************

 

USE IN SELECT('ForeignData')

ERASE 'ForeignData'

ERASE "c:\asup.html"

ERASE "c:\asup.xls"