Oracle导出HTM文件

最新推荐文章于 2024-10-17 18:58:27 发布

cnl_339000454

最新推荐文章于 2024-10-17 18:58:27 发布

阅读量115

点赞数

文章标签：数据库

实例：Oracle导出HTM文件

FILENAME:='文件名.htm';
FHND:=TEXT_IO.FOPEN(FILENAME,'W');
LINE_BUFF:='<HTML><HEAD><TITLE>标题名称</TITLE></HEAD>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='<BODY><STYLE>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='.tdtitle{font-family: "宋体";color: #ffff11;font-size: 14px;}';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='.smtitle{font-family: "宋体";color: #0000ff;font-size: 16px;}';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='.toptitle{font-family: "宋体";color: #0000ff;font-size: 18px;}';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='.bigtitle{font-family: "隶书";color: #0000ff;font-size: 24px;}';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='td{color: #000000;font-size: 12px;}';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='</STYLE>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='<CENTER><font class=smtitle>标题名称</font></CENTER>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='<BR><table border=1 cellspacing=0 cellpadding=0>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
LINE_BUFF:='<tr><td>列1</td><td>列2</td></tr>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
FOR RD IN TD LOOP
LINE_BUFF:='<tr><td>'||'值1'||'</td><td>'
||'<tr><td>'||'值2'||'</td><tr>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
CNT:=CNT+1;
SYNCHRONIZE;
END LOOP;
LINE_BUFF:='</BODY></HTML>';
TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
TEXT_IO.FCLOSE(FHND);

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15745906/viewspace-462808/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15745906/viewspace-462808/