阿木伯 著

利用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:<   061:=   062:>   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>

【最后更新： 06/03/2002 11:21:46 】