CftClub.ru
Клуб специалистов ЦФТ-Банк

Импорт данных из txt

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих
Предыдущая тема :: Следующая тема  
Автор Сообщение
jamil
Участник - экстремал


Вступление в Клуб: 11.08.2014
СообщениеЧт Апр 27, 2017 10:55   Импорт данных из txt Ответить с цитатой
Полезность: Нет оценки
Подскажите, пожалуйста, как из файла txt импортировать данные в справочник IBSO?
Есть ли какие то примеры?
vtar
Эксперт


Вступление в Клуб: 20.03.2009
СообщениеЧт Апр 27, 2017 11:29    Ответить с цитатой
Полезность: 1
-- позиционный формат
PR_CRED::EXP_OP_DEBT

-- с разделителями

DEPN::Z3118300833
yaffil
Профи


Вступление в Клуб: 18.08.2011
СообщениеЧт Апр 27, 2017 11:36    Ответить с цитатой
Полезность: 2
Есть

Проверка:
Код:

begin
   if p_message = 'DEFAULT' then
      P_FILE.[DST_DELETE] := true;
      P_FILE.[DST_MASK] := '*.*';
      P_FILE.[DST_PATH] := ::[SYSTEM_PARAMS].[GET]('PATH',null);
      P_FILE.[DST_TYPE] := true;
      P_FILE.[SRC_DELETE] := false;
      P_FILE.[SRC_MASK] := '*.*';
      P_FILE.[SRC_TYPE] := false;
      C_FIL := STDLIB.USERID.FILIAL;
      
   elsif p_message = 'VALIDATE' then
      if p_info = 'OK' then
         if P_FILE.[SRC_NAME] is null or P_FILE.[SRC_PATH] is null then   
            pragma error('Не указан файл для импорта');
         end if;
         
         if P_FILE.[SRC_TYPE] then
         P_FILE.[SRC_TYPE] := nvl(P_FILE.[SRC_TYPE], false);
         P_FILE.[DST_NAME] := P_FILE.[SRC_NAME];
         P_FILE.[DST_PATH] := P_FILE.[SRC_PATH];
         else P_FILE.[DST_NAME] := P_FILE.[SRC_NAME];
         end if;
         
      end if;   
   end if;
end;

Кусок тела
Код:

file   integer;
vStr   varchar2(32000);
begin
   file := stdio.open(P_FILE.[DST_PATH], P_FILE.[DST_NAME], 'r');
   while stdio.get_line(file, vStr, false, stdio.WINTEXT) loop

vStr:=replace(replace(vStr,chr(10)),chr(13));
debug_pipe(vStr,0);

   end loop;
   stdio.close(file);

end;

Получаете vStr - это данные строки вашего файла;
jamil
Участник - экстремал


Вступление в Клуб: 11.08.2014
СообщениеЧт Апр 27, 2017 11:55    Ответить с цитатой
Полезность: Нет оценки
спасибо Всем. Примеры помогли
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru