CREATE OR REPLACE PROCEDURE nalog_ru
AS
 CURSOR t_nalog
    IS
      SELECT REPLACE (REPLACE (v.city, '"'), ' Г') city,
        REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (v.street, ' ПЛАТФ'), ' УЛ'), ' ПЕР'), ' ПР-КТ'), ' ПРОЕЗД'), ' Ш'), ' ПЛ'), ' НАБ') street,
        REPLACE (REPLACE (v.house, 'дом (владение)'), Chr(32)) house,
        REPLACE (REPLACE (v.corp, 'корпус (строение)'), Chr(32)) corp,
        REPLACE (REPLACE (v.flat, 'квартира (офис)'), Chr(32)) flat
      FROM V_NALOG_RU v;
    v_handle utl_file.file_type;
  BEGIN
    v_handle := UTL_FILE.Fopen ('MDVDIR', 'nalog_ru.csv', 'w', 32767 );
    UTL_FILE.PUT_LINE(v_handle, 'city'|| ';' || 'street' || ';' || 'house' || ';' || 'corp' || ';' || 'flat');
    FOR cur_rec IN t_nalog
    LOOP
      UTL_FILE.PUT_LINE (v_handle, CONVERT ((cur_rec.city|| ';' || cur_rec.street || ';' || cur_rec.house || ';' || cur_rec.corp || ';' || cur_rec.flat), 'CL8MSWIN1251', 'AL32UTF8'));
      EXIT
    WHEN t_nalog%notfound;
    END LOOP;
    UTL_FILE.FClose(v_handle);
    DBMS_OUTPUT.enable;
    Dbms_Output.Put_Line('Файло создано');
  EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.enable;
    Dbms_Output.Put_Line('Файло не создано');
    RAISE;
  END;

REPLACE (REPLACE (v.house, 'дом (владение)'), Chr(32)) house

 UTL_FILE.PUT_LINE (v_handle, CONVERT ((cur_rec.city|| ';' || cur_rec.street || ';' || to_char (cur_rec.house) || ';' || cur_rec.corp || ';' || cur_rec.flat), 'CL8MSWIN1251', 'AL32UTF8'));

15
1
1
115А
НЕТ
43""А"""
10
1