自动 CSV 文件生成，在 Oracle 10g 的两个标题级别具有不同列数的标题

分类：编程问答

如何解决自动 CSV 文件生成，在 Oracle 10g 的两个标题级别具有不同列数的标题

我们有一个使用 Oracle 10g R. 10.2.0.4.0 的应用程序。我需要创建一个过程，将给定查询的数据导出到特定布局的 CSV 文件中，以便可以将其导入到另一个应用程序中。

我发现以下链接对我帮助很大。此过程使用 utl_file 并允许我将我需要的查询放在 l_query 字段中。

Export to CSV - By Ask TOM

我需要生成的文件结构如下：

Title;9999
FIELD1;FIELD2;FIELD3;FIELD4;FIELD5
1234;30032021;0400;093000;123000
1235;30032021;0400;133000;183000

我创建了两个级别的标题，一个是为具有两个字段的文件添加标题，另一个是应用程序将加载的数据列的标题。我使用 UNION ALL 实现了这一点。但是，我发现了两个我无法解决的问题：

  1. 我无法从查询块中删除标题

  2. 当我使用 UNION ALL 时，第一个阻塞查询迫使我拥有在以下查询中生成信息所需的字段数（五个字段），因此该文件是用两个标头生成，第二个用我需要删除的三个 ;;; 生成。

    标题;9999;'';'';''; --我需要删除这个标题 标题;9999; ; ; --我需要去掉三个“;;;” 字段 1;字段 2;字段 3;字段 4;字段 5 1234;08042021;123;224130;044130 1235;08042021;123;224130;044130 1236;08042021;123;224130;044130

这是我用我在变量 l_query 中创建的查询改编的过程。

create or replace procedure dump_table_to_csv(p_dir in varchar2,p_filename in varchar2 )
is
l_output utl_file.file_type;
l_theCursor integer default dbms_sql.open_cursor;
l_columnValue varchar2(4000);
l_status integer;
l_query varchar2(4000)
default 
  'SELECT ''Title'' AS "Title",''9999'' AS "9999",'' '','' ''  from DUAL 
   UNION ALL
   SELECT TO_CHAR(''FIELD1'') AS FIELD1,TO_CHAR(''FIELD2'') AS FIELD2,TO_CHAR(''FIELD3'') AS FIELD3,TO_CHAR(''FIELD4'') AS FIELD4,TO_CHAR(''FIELD5'') AS FIELD5 FROM DUAL
   UNION ALL
   SELECT
   TO_CHAR(''9999'') AS FIELD1,TO_CHAR(SYSDATE,''DDMMYYYY'') AS FIELD2,''123'' AS FIELD3,LPAD(TO_CHAR(SYSDATE,''HH24MISS''),6,0) AS FIELD4,LPAD(TO_CHAR(SYSDATE + INTERVAL ''6:00'' HOUR TO MINUTE,0) AS FILED5 
 FROM DUAL';
    
l_colCnt number := 0;
l_separator varchar2(1);
l_descTbl dbms_sql.desc_tab;
begin
l_output := utl_file.fopen( p_dir,p_filename,'w',4000 ); 
execute immediate 'alter session set nls_date_format=''DD-MM-YYYY HH24:MI:SS'' ';
dbms_sql.parse( l_theCursor,l_query,dbms_sql.native );
dbms_sql.describe_columns( l_theCursor,l_colCnt,l_descTbl );

for i in 1 .. l_colCnt loop
utl_file.put( l_output,l_separator || '' || l_descTbl(i).col_name || ';' );
dbms_sql.define_column( l_theCursor,i,l_columnValue,4000 );
l_separator := '';
end loop;
utl_file.new_line( l_output );
l_status := dbms_sql.execute(l_theCursor);
while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) loop
l_separator := '';
for i in 1 .. l_colCnt loop
dbms_sql.column_value( l_theCursor,l_columnValue );
utl_file.put( l_output,l_separator || l_columnValue );
l_separator := ';';
end loop;
utl_file.new_line( l_output );
end loop;
dbms_sql.close_cursor(l_theCursor);
utl_file.fclose( l_output );
execute immediate 'alter session set nls_date_format=''dd-MON-yy'' ';
exception
when others then
execute immediate 'alter session set nls_date_format=''dd-MON-yy'' ';
raise;
end;
/



EXEC  dump_table_to_csv('MY_DIRECTORY','file_to_export.csv' );

谁能帮我解决这个问题，或者告诉我一些其他方法来实现我的目标，并以正确的结构生成这个文件？

解决方法

由于第一个标题行似乎不依赖于查询的结构，所以我只使用一个 utl_file.put_line 将其先打印出来，而 Tom 的其余过程基本保持不变

create or replace procedure dump_table_to_csv(p_dir in varchar2,p_filename in varchar2 )
is
  l_output utl_file.file_type;
  l_theCursor integer default dbms_sql.open_cursor;
  l_columnValue varchar2(4000);
  l_status integer;
  l_query varchar2(4000) :=
    q'{SELECT
           TO_CHAR(''9999'') AS FIELD1,TO_CHAR(SYSDATE,''DDMMYYYY'') AS FIELD2,'123' AS FIELD3,LPAD(TO_CHAR(SYSDATE,'HH24MISS'),6,0) AS FIELD4,LPAD(TO_CHAR(SYSDATE + INTERVAL '6:00' HOUR TO MINUTE,0) AS FILED5 
      FROM DUAL}';
    
  l_colCnt number := 0;   
  l_separator varchar2(1);
  l_descTbl dbms_sql.desc_tab;
begin
  l_output := utl_file.fopen( p_dir,p_filename,'w',4000 ); 
  execute immediate 'alter session set nls_date_format=''DD-MM-YYYY HH24:MI:SS'' ';
  dbms_sql.parse( l_theCursor,l_query,dbms_sql.native );
  dbms_sql.describe_columns( l_theCursor,l_colCnt,l_descTbl );

  utl_file.put_line( 'Title;9999' );
  for i in 1 .. l_colCnt loop
    utl_file.put( l_output,l_separator || '' || l_descTbl(i).col_name || ';' );
    dbms_sql.define_column( l_theCursor,i,l_columnValue,4000 );
    l_separator := '';
  end loop;
  utl_file.new_line( l_output );

  l_status := dbms_sql.execute(l_theCursor);
  while ( dbms_sql.fetch_rows(l_theCursor) > 0 ) 
  loop
    l_separator := '';
    for i in 1 .. l_colCnt loop
      dbms_sql.column_value( l_theCursor,l_columnValue );
      utl_file.put( l_output,l_separator || l_columnValue );
      l_separator := ';';
    end loop;
    utl_file.new_line( l_output );
  end loop;
  dbms_sql.close_cursor(l_theCursor);
  utl_file.fclose( l_output );
  execute immediate 'alter session set nls_date_format=''dd-MON-yy'' ';
exception
when others then
  execute immediate 'alter session set nls_date_format=''dd-MON-yy'' ';
  raise;
end;
/

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

导入项目后报错问题
依赖报错 idea导入项目后依赖报错，解决方案：https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错：更换其他版本 无法下载依赖可参考：https://blog.csdn.net/weixin_42628809/a
idea不能识别yaml文件
使用mybatis plus常见错误
错误1：代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
gradle常见问题与错误
错误1：gradle项目控制台输出为乱码 # 解决方案：https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
Mybatis Plus传入参数0不起作用
错误还原：在查询的过程中，传入的workType为0时，该条件不起作用 <select id="xxx"> SELECT di.id, di.name, di.work_type, di.updated... <where> <if test=&qu
linux中make编译源码包失败
报错如下，gcc版本太低 ^ server.c:5346:31: 错误：‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
微服务启动错误：Command line is too long. Shorten command line for
解决方案1 1、改项目中.idea/workspace.xml配置文件，增加dynamic.classpath参数 2、搜索PropertiesComponent，添加如下 <property name="dynamic.classpath" value="tru
vue常见错误
删除根组件app.vue中的默认代码后报错：Module Error (from ./node_modules/eslint-loader/index.js): 解决方案：关闭ESlint代码检测，在项目根目录创建vue.config.js，在文件中添加 module.exports = { lin
spark常见错误
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
matplotlib报错：AttributeError: module 'backend_interagg' has no attribute 'FigureCanvas'. Did you mean: 'FigureCanvasAgg'?
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams['font.sans-serif'] = ['SimHei'] # 能正确显示负号 p
gitlab登录失败，报错：This challenge page was accidentally cached by an intermediary and is no longer available.
设置时间 控制面板
后端开发常见错误
错误1：Request method ‘DELETE‘ not supported 错误还原：controller层有一个接口，访问该接口时报错：Request method ‘DELETE‘ not supported 错误原因：没有接收到前端传入的参数，修改为如下 参考 错误2：cannot r
docker常见错误
错误1：启动docker镜像时报错：Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法：重启docker -> systemctl r
idea常见错误
错误1：private field ‘xxx‘ is never assigned 按Altʾnter快捷键，选择第2项 参考：https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2：启动时报错，不能找到主启动类 #
pip安装依赖失败
报错如下，通过源不能下载，最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
maven常见错误
错误1：maven打包报错 错误还原：使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
cloud项目中常见错误
错误1：服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping("/hires") public class FeignControl
springboot常见错误
错误1：运行项目后报如下错误 解决方案 报错2：Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案：在pom.
springmvc拦截器中使用redisTemplate报空指针异常
参考 错误原因 过滤器或拦截器在生效时，redisTemplate还没有注入 解决方案：在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate<String
vite报错：npm ERR! command C:WINDOWSsystem32cmd.exe /d /s /c C:UsersychenAppDataLocalTempnpx-dde1c848.cmd
使用vite构建项目报错 C:\Users\ychen\work>npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot