1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| 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" |