数据表(DBF)文件或数据视图转为 WORD (RTF)格式文件-编程实验室

数据表(DBF)文件或数据视图转为 WORD (RTF)格式文件程序（没有新意），请大家测试，并欢迎提出批评意

见或建议。

代码如下：

&& 将数据表转化为 WORD 格式文件

&& 注意：

&& 1、先打开待转为WORD格式的数据表或视图名，也可先选择待转换的字段并查询到临时数据表

&& 2、设定标题

&& 参数说明:

&& my_title 标题&& rtf_name WORD 文件主名&& my_alias 待转为WORD格式的数据表SET TALK OFFSET SAFE OFFSET DATE TO ANSISET CENTURY ONSET COMPATIBLE OFFLOCAL my_title,my_alias,rtf_namemy_alias="swaj" &&数据表别名或视图名 换上你自己的数据表或视图名my_title="实物档案收集情况" &&标题 换上你的标题rtf_name=my_title && Html word文件主名 换上你的WORD 文件主名my_dbfopen=.F. && 数据表未打开IF EMPTY(my_alias)RETUENDIFIF !USED(my_alias)USE &my_alias IN 0ELSESELE(my_alias)my_dbfopen=.T. && 数据表已打开ENDIFSELE(my_alias)IF EOF()GO TOPIF EOF()IF my_dbfopen=.F. && 数据表未打开，关闭之SELE(my_alias)USEENDIFRETUENDIFENDIFIF EMPTY(ALLT(my_title))my_title=my_aliasENDIFmyoutputfile="c:\"+my_title+".rtf"rtf_name=PUTFILE("文件名：",myoutputfile,"RTF")rtf_name=ALLT(rtf_name)IF EMPTY(rtf_name)IF my_dbfopen=.F. && 数据表未打开，关闭之SELE(my_alias)USEENDIFRETUENDIFrtf_name=ALLT(rtf_name)SELE(my_alias)myrecno=RECNO()COPY TO c:\my_tempwenjianSELE 0USE c:\my_tempwenjianWAIT WIND " 正在转化为 WORD（RTF）格式文件,请稍等... " NOWAITmy_html=""my_html=my_html+"<html>"+CHR(13)+'<head>'+CHR(13)+"<title>"+my_title+"</title>"my_html=my_html+CHR(13)+'<meta http-equiv="Content-Type" content="text/html; charset=gb2312">'my_html=my_html+CHR(13)+'<meta http-equiv="Content-Language" content="zh-cn">'my_html=my_html+CHR(13)+"</head>"my_html=my_html+CHR(13)+'<p align="center"><font><b>'+"&nbsp"+'</b></font></p>'my_html=my_html+CHR(13)+"<center>"my_html=my_html+CHR(13)+'<table id="GenTable" border=1>'my_html=my_html+CHR(13)+"<tr>"#DEFINE NUM_AFIELDS 16LOCAL iPUBLIC aWizFListDIMENSION aWizFList[1]=AFIELDS(aWizFList)FOR m.i = 1 TO FCOUNT()IF INLIST(aWizFList[m.i,2],"G","U") &&Memo fieldLOOPELSEmy_html=my_html+CHR(13)+"<th>"+aWizFList[m.i,1]+"</th>"ENDIFENDFORmy_html=my_html+CHR(13)+"</tr>"myFCOUNT=FCOUNT()LOCAL mytextzhiSELE my_tempwenjianGO TOPSCANmy_html=my_html+CHR(13)+"<tr>"FOR m.i = 1 TO myFCOUNTIF INLIST(aWizFList[m.i,2],"G","jM","U")ELSEmyzdm=aWizFList[m.i,1]mytextzhi=EVALUATE(myzdm)IF EMPTY(mytextzhi) OR ISNULL(mytextzhi)mytextzhi=""ELSEDO CASECASE INLIST(aWizFList[m.i,2],"C")mytextzhi=ALLT(mytextzhi)CASE INLIST(aWizFList[m.i,2],"M")mytextzhi=TRIM(mytextzhi)mytextzhi=STRTRAN(STRTRAN(STRTRAN(STRTRAN(mytextzhi,[-],[&ndash;]),[<],[&lt;]),[>],[&gt;]),[ ],[])mytextzhi=STRTRAN(mytextzhi,CHR(13),'')CASE INLIST(aWizFList[m.i,2],"N")mywidth=aWizFList[m.i,3]mydwidth=aWizFList[m.i,4]mytextzhi=ALLT(STR(mytextzhi,mywidth,mydwidth))CASE INLIST(aWizFList[m.i,2],"Y")mytextzhi=ALLT(STR(mytextzhi,20,4))CASE INLIST(aWizFList[m.i,2],"I","B","F")mytextzhi=ALLT(STR(mytextzhi))CASE aWizFList[m.i,2]="D"mytextzhi=DTOC(mytextzhi)CASE aWizFList[m.i,2]="T"mytextzhi=TTOC(mytextzhi)CASE aWizFList[m.i,2]="L"IF mytextzhi=.T.mytextzhi="是"ELSEmytextzhi="否"ENDIFOTHERmytextzhi=""ENDCASEENDIFIF EMPTY(mytextzhi) OR ISNULL(mytextzhi)mytextzhi=""ENDIFIF INLIST(aWizFList[m.i,2],"N","Y","I","B","F") AND mytextzhi<>""my_html=my_html+CHR(13)+'<td align="right">'+mytextzhi+"</td>"ELSEmy_html=my_html+CHR(13)+'<td>'+mytextzhi+"</td>"ENDIFENDIFENDFORmy_html=my_html+CHR(13)+"</tr>"ENDSCANSELE my_tempwenjianUSEmy_html=my_html+CHR(13)+"</table>"+CHR(13)+"</center>"my_html=my_html+CHR(13)+"</body>"+CHR(13)+"</html>"SELE(my_alias)GO TOPIF !EOF()GO myrecnoENDIF=STRTOFILE(my_html,rtf_name,.F.)ERASE c:\my_tempwenjian.*RELEASE my_htmlIF my_dbfopen=.F. && 数据表未打开，关闭之SELE(my_alias)USEENDIFrtf_name=ALLTRIM(rtf_name)oWord=CREATEOBJECT("Word.application")oDoc=oWord.DocumentsoDoc.OPEN (rtf_name)oWord.SELECTION.WholeStoryoWord.SELECTION.FONT.SIZE = 10oWord.SELECTION.InsertAfter(CHR(13))mydate=SUBST(DTOS(DATE()),1,4)+"年"+SUBST(DTOS(DATE()),5,2)+"月"+SUBST(DTOS(DATE()),7,2)+"日"oWord.SELECTION.InsertAfter("日期： "+mydate)oWord.ActiveDocument.SAVEAS(rtf_name)oWord.ActiveDocument.CLOSEoDoc=oWord.DocumentsoDoc.OPEN (rtf_name)oWord.SELECTION.ParagraphFormat.ALIGNMENT=0&&&(文本左对齐)oWord.SELECTION.InsertAfter(CHR(13))oWord.SELECTION.FONT.SIZE = 20oWord.SELECTION.InsertAfter(my_title)oWord.SELECTION.FONT.SIZE = 12oWord.SELECTION.InsertAfter(CHR(13))oWord.SELECTION.ParagraphFormat.ALIGNMENT=1&&&(文本居中)oWord.ActiveDocument.SAVEAS(rtf_name)oWord.ActiveDocument.CLOSEoDoc=oWord.DocumentsWAIT CLEARoDoc.OPEN (rtf_name)*oWord.ActiveDocument.PrintPreview && 打印预览*oWord.ActiveDocument.Print && 打印oWord.VISIBLE=.T. && 显示 WORD 文档*oWord.ActiveDocument.CLOSE && 关闭 WORD 文档*oWord.QUIT() && 退出 WORD 应用程序*MESSAGEBOX(CHR(13)+"数据已转换为 WORD (RTF) 格式,存放路径： "+CHR(13)+CHR(13)+rtf_name,64,"信息")