|
固定长度文件读入:
-------------------------------------------------------------------
-- 共通固定長ファイル区切り関数
-- 機能： 固定長ファイル区切り取得
-- 引数： PV2_STRING IN VARCHAR2 処理フィールド
-- PNU_POS_BEGIN IN NUMBER 開始位置
-- PNU_POS_LEN IN NUMBER 桁数
-- 戻り値：VARCHAR2 処理結果
-------------------------------------------------------------------
FUNCTION FNC_GET_SUBSTR(
PV2_STRING IN VARCHAR2,
PNU_POS_BEGIN IN NUMBER,
PNU_POS_LEN IN NUMBER
)
RETURN VARCHAR2
IS
BEGIN
IF PNU_POS_BEGIN >0 AND PNU_POS_LEN > 0 THEN
IF LENGTH(PV2_STRING) > PNU_POS_BEGIN + PNU_POS_LEN - 1 THEN
RETURN TRIM(SUBSTRB(PV2_STRING,PNU_POS_BEGIN,PNU_POS_LEN));
ELSE
RETURN GCV2_NULL;
END IF;
ELSE
RETURN GCV2_NULL;
END IF;
EXCEPTION
WHEN OTHERS THEN
RETURN GCV2_NULL;
END FNC_GET_SUBSTR;
变长，CSV,TAB等文件读入
-------------------------------------------------------------------
-- 共通可変長タブ区切り関数
-- 機能： 可変長タブ区切り取得
-- 引数： PV2_STRING IN VARCHAR2 処理フィールド
-- PNU_POSITION IN NUMBER 項目位置
-- PV2_SEPARATE IN VARCHAR2 可変長タブ
-- 戻り値：VARCHAR2 処理結果
-------------------------------------------------------------------
FUNCTION FNC_GET_POSSTR(
PV2_STRING IN VARCHAR2,
PNU_POSITION IN NUMBER,
PV2_SEPARATE IN VARCHAR2
)
RETURN VARCHAR2
IS
WNU_POS_BEGIN NUMBER;
WNU_POS_END NUMBER;
BEGIN
IF PNU_POSITION = 1 THEN
WNU_POS_BEGIN := 1;
IF INSTRB(PV2_STRING,PV2_SEPARATE,1,1) = 0 THEN
RETURN GCV2_NULL;
ELSE
WNU_POS_END := INSTRB(PV2_STRING,PV2_SEPARATE,1,1);
END IF;
ELSIF PNU_POSITION > 0 THEN
IF INSTRB(PV2_STRING,PV2_SEPARATE,1,PNU_POSITION) = 0 THEN
IF INSTRB(PV2_STRING,PV2_SEPARATE,1,PNU_POSITION-1) = 0 THEN
RETURN GCV2_NULL;
ELSE
WNU_POS_BEGIN := INSTRB(PV2_STRING,PV2_SEPARATE,1,PNU_POSITION-1) + 1;
WNU_POS_END := LENGTH(PV2_STRING);
END IF;
ELSE
WNU_POS_BEGIN := INSTRB(PV2_STRING,PV2_SEPARATE,1,PNU_POSITION-1) + 1;
WNU_POS_END := INSTRB(PV2_STRING,PV2_SEPARATE,1,PNU_POSITION);
END IF;
ELSE
RETURN GCV2_NULL;
END IF;
RETURN TRIM(SUBSTRB(PV2_STRING,WNU_POS_BEGIN,WNU_POS_END - WNU_POS_BEGIN -1));
EXCEPTION
WHEN OTHERS THEN
RETURN GCV2_NULL;
END FNC_GET_POSSTR;
[办公软件]在sybase中插入图片、PDF、文本文件 [办公软件]安装Sybase ASE
[办公软件]linux指令大全(完整篇) [办公软件]Linux新手入门常用命令大全
[办公软件]在RedHat Linux 9里安装gaim0.80 [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法
[办公软件]Linux程序员必读：中文化与GB18030标准 [办公软件]linux指令大全
[办公软件]制作Linux启动盘的四种方法 [办公软件]Linux文件系统的反删除方法
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
