前提・実現したいこと
TSVファイルをUTL_FILEパッケージを使用して読み込み、読み込んだデータをテーブルへInsertするプロシージャを作成しています。
水平タブでトークンを切り出し、エラーなくテーブルへInsertするまでは出来ました。
ですが、カンマ入りのデータの場合ダブルクォーテーションが自動で付与されてしまう問題が起きています。
<例>
■TSV一行データ
AAA (水平タブ) B,BB (水平タブ) CCC
■DB格納後の値
カラム1:AAA、カラム2:”B,BB”、カラム3:CCC
どこでダブルクォーテーションが付与するのか切り分けると、
UTL_FILE.GET_LINEした時点で付与されているようです。
これはUTL_FILEの仕様なのでしょうか。
カンマ区切りのデータでもダブルクォーテーションを付与せずTSVの元データのまま格納するには、
付与されたカンマを取り除いてあげることしか方法はないでしょうか。
読み込む時点でダブルクォーテーションを付与しない方法があれば教えていただきたいです。
よろしくお願いします。
該当のソースコード
PL/SQL
1CREATE OR REPLACE PROCEDURE PRC_SAMPLE( 2) 3IS 4vHandle UTL_FILE.FILE_TYPE; 5vDirname VARCHAR2(250) := 'DIR'; 6vFileName VARCHAR2(250); 7vInput VARCHAR2(32767); 8vCount NUMBER(6); 9BEGIN 10 vHandle := UTL_FILE.FOPEN(vDirname ,vFileName,'r', 32767); 11 vCount := 0; 12 LOOP 13 UTL_FILE.GET_LINE(vHandle, vInput,32767); 14 15 -- DBMS_OUTPUT.PUT_LINE(vInput); 16 -- ↑この時点でダブルクォーテーションが付与されている 17 18 INSERT INTO TABLE001( 19 COLUMN1, 20 COLUMN2, 21 COLUMN3 22 ) VALUES ( 23 SPLIT(vInput, 1), 24 SPLIT(vInput, 2), 25 SPLIT(vInput, 3) 26 ); 27 vCount := vCount + 1; 28 END LOOP; 29 UTL_FILE.FCLOSE(vHandle); 30 31EXCEPTION 32 WHEN NO_DATA_FOUND THEN 33 UTL_FILE.FCLOSE(vHandle); 34 WHEN OTHERS THEN 35 UTL_FILE.FCLOSE(vHandle); 36END; 37/ 38
使用FUNCTION
参考
Edo::World::Blog 〜Linux/Solaris関連の作業メモ〜
[Oracle] CSVデータをテーブルに格納
PL/SQL
1CREATE OR REPLACE FUNCTION SPLIT 2( 3 piLine VARCHAR2, 4 piItemNo INTEGER 5) 6RETURN VARCHAR2 7IS 8delim VARCHAR2(4) := CHR(9); 9token VARCHAR2(255); 10BEGIN 11 IF piLine IS NULL OR piItemNo IS NULL THEN 12 RETURN 'Invalid parameters'; 13 END IF; 14 15 IF piItemNo = 1 THEN 16 token := SUBSTR(piLine, 1, INSTR(piLine || delim, delim, 1, 1) - 1); 17 ELSE 18 token := SUBSTR(piLine, INSTR(piLine, delim, 1, piItemNo-1) + 1, 19 INSTR(piLine || delim, delim, 1, piItemNo) - INSTR(piLine, delim, 1, piItemNo-1) - 1); 20 END IF; 21 22 RETURN token; 23END; 24/ 25
回答1件
あなたの回答
tips
プレビュー