将打印到output的过长一行句子，自动截断成几行，用来打印本地报表: from http://hgworkhouse.org PL/SQL 报表打印 Oracle Procedure my_output(p_text in varchar2) is p_sum_length number := 0; p_length number := 200; p_index number := 1; p_time numb
将打印到output的过长一行句子，自动截断成几行，用来打印本地报表: from http://hgworkhouse.org PL/SQL 报表打印 Oracle <style> .CodeEntity .code_pieces ul.piece_anchor{width:25px;position:absolute;top:25px;left:-30px;z-index:1000;} .CodeEntity .code_pieces ul.piece_anchor li{width:25px;background: #efe;margin-bottom:2px;} .CodeEntity .code_pieces ul.piece_anchor li{border-left:3px #40AA63 solid;border-right:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li:hover{border-right:3px #40AA63 solid;border-left:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li a{color: #333;padding: 3px 10px;} .CodeEntity .code_pieces .jump_to_code{visibility:hidden;position:relative;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code{visibility:visible;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code a{text-decoration:none;} .CodeEntity .code_pieces h2 i{float:right;font-style:normal;font-weight:normal;} .CodeEntity .code_pieces h2 i a{font-size:9pt;background: #FFFFFF;color:#00A;padding: 2px 5px;text-decoration:none;} </style> <!—ecms
- –> <!—ecms
- $velocityCount
–> <!—ecms
–>
Procedure my_output(p_text in varchar2) is p_sum_length number := 0; p_length number := 200; p_index <a style="color:transparent">来@源gao*daima.com搞@代#码网</a> number := 1; p_time number := 0; begin select length(p_text) into p_sum_length from dual; p_time := ceil(p_sum_length / p_length); for i in 1 .. p_time loop dbms_output.put_line(substr(p_text, p_index, p_length)); p_index := p_index + p_length; end loop; end my_output;
转载请注明原文链接：oracle pl/sql 本地打印html报表
