Oracle PLSQL读取(解析)Excel文档

llkyq · 发表于 2015-5-14 19:40

楼主能够提供完整的代码呢！

samt007 · 发表于 2015-5-14 20:54

llkyq 发表于 2015-5-14 19:40
楼主能够提供完整的代码呢！

核心代码全部提供了~下载过来稍微修改一下就可以使用了。
共享资源嘛~

komicakomica · 发表于 2015-5-14 22:05

samt007 发表于 2015-5-14 17:29
不瞒你，之前我这边开发导入的程序，就是在Excel文档加入一个宏(用VB代码)，让用户点一个转换的按钮，先自 ...

我的意思是有办法做到不给用户增加任何额外操作，就选择上传的xls文档就可以，而且速度快，兼容性高，代码量少。
你这次的做法和上次相比，把跟业务无关的操作减到了最少，这个想法非常好。但具体实现上不止这一种方法，哪种更好是可以讨论一下的。我说的用js脚本的方法你也可以尝试一下，不要现在就下定论，下次再遇到类似问题时武器库也可以多一种技术选择。

samt007 · 发表于 2015-5-15 07:39

komicakomica 发表于 2015-5-14 22:05
我的意思是有办法做到不给用户增加任何额外操作，就选择上传的xls文档就可以，而且速度快，兼容性高，代码 ...

嗯，js也许是个好办法，不过首先要解决的是如何让系统自动调用js解析为txt文本（而不是手工在Excel点按钮之类的动作）。
我之前试过在HTML增加一个按钮，调用js，自动将html的内容转换为excel输出。
---
或者你可以研究一下然后分享出来~

llkyq · 发表于 2015-5-15 08:20

samt007 发表于 2015-5-14 20:54
核心代码全部提供了~下载过来稍微修改一下就可以使用了。
共享资源嘛~

因为没有功力不够，不知如何修改，是否可以提供Package XYG_ALD_FILE_PKG 的代码！

samt007 · 发表于 2015-5-15 09:46

llkyq 发表于 2015-5-15 08:20
因为没有功力不够，不知如何修改，是否可以提供Package XYG_ALD_FILE_PKG 的代码！

XYG_ALD_FILE_PKG.CONVERT_FILE_BLOB
所以主要是：CONVERT_FILE_BLOB的代码，其实在PDF有的。我贴一下给你，你再稍微改一下就可以了：
FUNCTION CONVERT_FILE_BLOB(
   P_FILEDIR  IN VARCHAR2  ---文件路径 /usr/usr/glmr/customer
   ,P_FILENAME  IN VARCHAR2  ---文件名称 DHS.csv
   ,P_RAISE       IN NUMBER DEFAULT XYG_PUB_CONST_PKG.C_TRUE
)
   RETURN BLOB
IS
   L_RESULT             BLOB := empty_blob();
   L_FILEDIR          VARCHAR2(240);
   l_files             bfile;
   l_dest_offset       BINARY_INTEGER;
   l_src_offset       BINARY_INTEGER;
   L_PROCESS_PHASE    NUMBER;
BEGIN
   L_PROCESS_PHASE := 0;

   SELECT DIRECTORY_NAME
      INTO L_FILEDIR
      FROM all_directories
   WHERE 1=1
      AND (UPPER(DIRECTORY_PATH) = CASE WHEN SUBSTR(P_FILEDIR,-1) = '/' THEN UPPER(SUBSTR(P_FILEDIR,1,LENGTH(P_FILEDIR)-1))
                                    ELSE UPPER(P_FILEDIR)
                                    END
      OR UPPER(DIRECTORY_PATH) = UPPER(P_FILEDIR)
      OR DIRECTORY_NAME = P_FILEDIR)
      AND ROWNUM <=1;

   --DBMS_OUTPUT.PUT_LINE('L_FILEDIR:'||L_FILEDIR);
   L_PROCESS_PHASE := 1;

   l_files := bfilename (L_FILEDIR,P_FILENAME);
   dbms_lob.createtemporary(lob_loc => L_RESULT,
                        cache => true,
                        dur    => dbms_lob.call);
   l_dest_offset := 1;
   l_src_offset := 1;
   dbms_lob.open(l_files,dbms_lob.lob_readonly);
   dbms_lob.loadblobfromfile(L_RESULT--dest_lob IN OUT NOCOPY  BLOB,
                           ,l_files--src_lob    IN          BFILE,
                           ,dbms_lob.lobmaxsize--amount    IN          INTEGER,
                           ,l_dest_offset--dest_offset IN          INTEGER := 1,
                           ,l_src_offset--src_offset  IN          INTEGER := 1
                           );
   L_PROCESS_PHASE := 2;
   dbms_lob.close(l_files);

   L_PROCESS_PHASE := 99;

   RETURN L_RESULT;
EXCEPTION
   WHEN OTHERS
   THEN
      IF P_RAISE = XYG_PUB_CONST_PKG.C_TRUE
      THEN
         XYG_PUB_COMMON_PKG.RAISE_ERROR(
            '-20001'                                  --'ERR_DEFAULT_CODE'
            ,SQLERRM
            ,'转换文件有异常错误!进度:'||L_PROCESS_PHASE
         );
               --DBMS_OUTPUT.PUT_LINE ('THERE ARE SOME ERROR, PLEASE CONTACT WITH MIS');
      ELSE
         --UTL_FILE.FCLOSE (L_FILEHANDLE);
         RETURN empty_blob();
      END IF;
END;

llkyq · 发表于 2015-5-15 09:52

samt007 发表于 2015-5-15 09:46
XYG_ALD_FILE_PKG.CONVERT_FILE_BLOB
所以主要是：CONVERT_FILE_BLOB的代码，其实在PDF有的。我贴一下给 ...

非常感谢您的耐心，我昨晚有把这个从您的PDF档Copy下来，今天测试发现编译不过。缺少了 XYG_PUB_CONST_PKG.C_TRUE，看您提供的文档，没有找到这个PKG。

samt007 · 发表于 2015-5-15 10:53

llkyq 发表于 2015-5-15 09:52
非常感谢您的耐心，我昨晚有把这个从您的PDF档Copy下来，今天测试发现编译不过。缺少了 XYG_PUB_CONST_PK ...

所以我让你们可以先适当修改一下。
XYG_PUB_CONST_PKG是一些固定值来的，你可以先干掉这个参数也可以的。
我也贴一下给你吧：
CREATE OR REPLACE PACKAGE APPS.XYG_PUB_CONST_PKG
AS
/******************************************************************************
   NAME:    XYG_PUB_CONST_PKG
   PURPOSE: 固定值的PKG

   REVISIONS:
   Ver       Date       Author          Description
   ---------  ----------  ---------------  ------------------------------------
   1.0       2010/10/13 Sam.T       1,New Create the pkg
   1.1       2010/10/15 Sam.T       1,Add Function Err_XXXX
   1.2       2011/01/18 Sam.T       1,Add AUTO MAIL DEFAULT SENDER
   1.3       2014/12/26 Sam.T       1,修正自动邮件的收件人等信息的获取。
******************************************************************************/
C_ITEM_RETURN_NUM CONSTANT NUMBER:=0;
C_ITEM_RETURN_CHAR CONSTANT VARCHAR2(1):=NULL;
C_ITEM_ERR_CODE CONSTANT NUMBER:= -20120;
C_RETURN_NUM CONSTANT NUMBER:=-1;
C_RETURN_CHAR CONSTANT VARCHAR2(1):=NULL;
C_TRUE CONSTANT NUMBER:=1;
C_FALSE CONSTANT NUMBER:=0;
END;

regonly1 · 发表于 2015-5-15 11:29

这个excel二进制格式已经开放了吗？对这个不大了解哈。

samt007 · 发表于 2015-5-15 11:36

regonly1 发表于 2015-5-15 11:29
这个excel二进制格式已经开放了吗？对这个不大了解哈。

先将Excel转换为Blob字段，然后再解析blob字段，解析里面的二进制的内容。。。
你可以看看代码。