oracle内所有表，每个表一个csv文件

select table_name from user_tab_columns出来一堆表名，每个表名写句sql，放入shell导出csv文件，问题是表太多，不太现实，求大神支招
more TB_DEVICE.sql
select device_no||','||device_name||','||sys_name||','||sys_id from TB_DEVICE ;
more a.sh
#!/usr/bin/bash
sqlplus oapapp/OAPAPP@ccb_oap <<!

set echo off

set linesize 1000
set pagesize 0
set trimspool on
set termout off
set feedback off
spool /home/liy/temp/TB_DEVICE.csv
@table1.sql
spool off
! 收起

只是想知道是否有这样的方法，比如只有10张表，是不是可以写个循环什么的