实例：Oracle导出htm文件
添加时间: 2008-4-26 1:06:38 作者: Oracle指导 阅读次数:24 来源: http://www.d9soft.com
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);
上一篇文章: 实例：Oracle导出EXCEL文件 下一篇文章: Oracle10g中SPOOL内容追加至文件