您的位置：首页 >> vfp教程 >> 网上文摘 >> 数据处理 >> 正文| 网络开发 | 调用API函数 | 报表打印 | 常用技术 | 经验汇总 | 控件使用 | 软件工程 | 数据处理 |
|
您的位置：首页 >> vfp教程 >> 网上文摘 >> 数据处理 >> 正文 |
|
网页生成器 *** 本HTML页面由红虎工作室的 PRG2HTML 生成器产生 *** *** 生成器版本 共享版 1.0 build0922 (Honghoo.NET) ***
clear all close all clear private prg_file, htm_file, gfile store "" to prg_file, hfile, gfile prg_file = getfile("PRG|MPR|SPR","打开(&O):","确定",0,"打开...") if empty(prg_file) or !file(prg_file) return endif htm_file = getfile("HTM|HTML","另存为(&S):","确定",0,"另存为...") if empty(htm_file) return endif if !file(htm_file) newfile() else delete file (htm_file) recycle newfile() endif close all clear all clea procedure newfile gfile = fcreate(htm_file) if gfile < 0 wait chr(13) + " 不能创建文件或文件写保护..." + chr(13) window nowait retu endif fputs(gfile,"<html><head>") fputs(gfile,"<title>" + juststem(prg_file) + "</title>") fputs(gfile,"</head><body background='image/bg88.gif' topmargin='0' leftmargin='0' bgproperties='fixed'><br>") fputs(gfile,"<p align='center'><font color='#000080' size='6' face='隶书'>" + juststem(prg_file) + "</font></p><p></p>") fputs(gfile,"<pre><font face='宋体'>") fputs(gfile,filetostr(prg_file)) fputs(gfile,"</font></pre></body></html>") fclose(gfile) if gfile > 0 run/n3 explorer &htm_file. endif retu |
||||