阿木伯 著 |
|
利用PL/SQL打印ASCII表? |
|
- 系统环境:
1、操作系统:Windows 2000
2、数据库: Oracle 8i R2 (8.1.6) for NT 企业版
3、安装路径:C:\ORACLE
- 实现方法:
SQL> set serveroutput on size 10240
SQL>
SQL> declare
2 i number;
3 j number;
4 k number;
5 begin
6 for i in 2..15 loop
7 for j in 1..16 loop
8 k:=i*16+j;
9 dbms_output.put((to_char(k,'000'))||':'||chr(k)||' ');
10 if k mod 8 = 0 then
11 dbms_output.put_line('');
12 end if;
13 end loop;
14 end loop;
15 end;
16 /
033:! 034:" 035:# 036:$ 037:% 038:& 039:' 040:(
041:) 042:* 043:+ 044:, 045:- 046:. 047:/ 048:0
049:1 050:2 051:3 052:4 053:5 054:6 055:7 056:8
057:9 058:: 059:; 060: 063:? 064:@
065:A 066:B 067:C 068:D 069:E 070:F 071:G 072:H
073:I 074:J 075:K 076:L 077:M 078:N 079:O 080:P
081:Q 082:R 083:S 084:T 085:U 086:V 087:W 088:X
089:Y 090:Z 091:[ 092:\ 093:] 094:^ 095:_ 096:`
097:a 098:b 099:c 100:d 101:e 102:f 103:g 104:h
105:i 106:j 107:k 108:l 109:m 110:n 111:o 112:p
113:q 114:r 115:s 116:t 117:u 118:v 119:w 120:x
121:y 122:z 123:{ 124:| 125:} 126:~ 127: 128:
129: 130: 131: 132: 133: 134: 135: 136:
137: 138: 139: 140: 141: 142: 143: 144:
145: 146: 147: 148: 149: 150: 151: 152:
153: 154: 155: 156: 157: 158: 159: 160:
161: 162: 163: 164: 165: 166: 167: 168:
169: 170: 171: 172: 173: 174: 175: 176:
177: 178: 179: 180: 181: 182: 183: 184:
185: 186: 187: 188: 189: 190: 191: 192:
193: 194: 195: 196: 197: 198: 199: 200:
201: 202: 203: 204: 205: 206: 207: 208:
209: 210: 211: 212: 213: 214: 215: 216:
217: 218: 219: 220: 221: 222: 223: 224:
225: 226: 227: 228: 229: 230: 231: 232:
233: 234: 235: 236: 237: 238: 239: 240:
241: 242: 243: 244: 245: 246: 247: 248:
249: 250: 251: 252: 253: 254: 255: 256:
SQL> show errors
没有错误。
SQL>
|
【最后更新:】 |
|