ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Oracle [игнор отключен] [закрыт для гостей] / Вопросы по package/procedure
44 сообщений из 44, показаны все 2 страниц
  все  
Вопросы по package/procedure
    #39895183
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Пока тренируюсь на кошках.
Хочу сделать процедуру, которая бы выводила в dbms_output отформатированную строку, параметры для которой задаются либо списком, либо хеш-массивом.
Делаю так:
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
CREATE OR REPLACE PACKAGE CC_LIBS AS

TYPE VARLIST IS TABLE OF ANYDATA;
TYPE VARHASH IS TABLE OF ANYDATA INDEX BY VARCHAR2(80);

PROCEDURE CC_LOG (args IN VARLIST DEFAULT null);
--PROCEDURE CC_LOG (args IN VARHASH DEFAULT null);

END CC_LIBS;
/

CREATE OR REPLACE PACKAGE BODY CC_LIBS AS

PROCEDURE CC_LOG (args IN VARLIST DEFAULT null) AS
BEGIN
  FOR i IN args.FIRST..args.LAST LOOP
    DBMS_OUTPUT.PUT_LINE('LIST: #'||i);
  END LOOP;
END;

END CC_LIBS;
/



Вызываю так:
Код: plsql
1.
2.
3.
4.
DECLARE
BEGIN
  CC_LIBS.CC_LOG('a','b');
END;



Но не работает, причем никак.
Во первых, не удается перегрузить процедуру для типа VARHASH или просто использовать тип VARHASH. Но это видимо ограничения самого Oracle. В принципе терпимо, меня и простой индексированный список бы устроил.
Но и с ним не работает, при попытке вызвать процедуру получаю ошибку ORA-06550 PLS-00306 (ошибочное число или типы аргументов).
Если попробовать вызвать процедуру без параметров, то возвращает другую ошибку, ORA-06531 (ссылка на неинициализированный набор).
...
Рейтинг: 0 / 0
27.11.2019, 17:38
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895190
Фотография andrey_anonymous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andrey_anonymous
Участник
1. Anydata особый тип, поищите примеры использования.
2. Перечень аргументов процедуры не является объектом. Почитайте гайд на предмет инициализации объектов и списков
...
Рейтинг: 0 / 0
27.11.2019, 17:49
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895210
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Посмотрел, теперь я вообще не понимаю, зачем нужен anydata.
Я думал, что это для случаев, когда в процедуру может передаваться любой тип — но нет, нужно передавать именно этот тип и тогда уж лучше сразу кастовать в строку.
Получается, что нельзя объявить процедуру с произвольным количеством параметров произвольного типа? Только перечислять arg1, arg2, arg3 и т.д., что сразу же исключает перезагрузку процедуры.
...
Рейтинг: 0 / 0
27.11.2019, 18:18
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895213
IMNO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IMNO
Участник
Alibek B.
произвольным количеством параметров


Нельзя.

Alibek B.
произвольного типа


Можно, но есть нюанс.

Alibek B.
перезагрузку процедуры


Правильно - "перегрузку". Перегрузка в PL/SQL присутствует.
...
Рейтинг: 0 / 0
27.11.2019, 18:21
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895216
MazoHist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MazoHist
Участник
Alibek B.,

почти printf
...
Рейтинг: 0 / 0
27.11.2019, 18:26
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895225
Фотография Stax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stax
Участник
Alibek B.
Посмотрел, теперь я вообще не понимаю, зачем нужен anydata.
Я думал, что это для случаев, когда в процедуру может передаваться любой тип — но нет, нужно передавать именно этот тип и тогда уж лучше сразу кастовать в строку.
Получается, что нельзя объявить процедуру с произвольным количеством параметров произвольного типа? Только перечислять arg1, arg2, arg3 и т.д., что сразу же исключает перезагрузку процедуры.

зачем anydata Вам решать

у Вас в процедуре один параметр (таблица)
в таблице может быть произвольное к-во елементов
+ Вы запутались с anydata

при вызове CC_LIBS.CC_LOG тип параметра должен быть varlist
а Вы подсовываете два строковых параметра

зы
загадочный вывод DBMS_OUTPUT.PUT_LINE('LIST: #'||i);

зыы
создавать процедуры с переменым числом параметром показывал Володя Бегун
но я не понял как (мне и не надо было)

....
stax
...
Рейтинг: 0 / 0
27.11.2019, 18:51
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895228
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Stax

при вызове CC_LIBS.CC_LOG тип параметра должен быть varlist
а Вы подсовываете два строковых параметра

Это я и имел ввиду, что вместо списка переменных мне нужно передать переменную специального типа со списком значений.
...
Рейтинг: 0 / 0
27.11.2019, 18:58
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895231
Фотография andrey_anonymous
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andrey_anonymous
Участник
MazoHist
Alibek B.,
почти printf

А можно ли неопределенное кол-во параметров? как в decode.
...
Рейтинг: 0 / 0
27.11.2019, 19:03
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895232
IMNO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IMNO
Участник
Stax

создавать процедуры с переменым числом параметром


Например так:

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
CREATE OR REPLACE PACKAGE TEST_ARG 
IS
 TYPE t_table_dictionary IS TABLE OF VARCHAR2(100) INDEX BY VARCHAR2(20);

 PROCEDURE fnc(p_a IN t_table_dictionary);
END TEST_ARG;
/
CREATE OR REPLACE PACKAGE BODY TEST_ARG  
IS
  PROCEDURE fnc(p_a IN t_table_dictionary)
  IS
  BEGIN
    dbms_output.put_line(p_a('Date'));
    dbms_output.put_line(p_a('String'));
    dbms_output.put_line(p_a('Number'));
  END;
END TEST_ARG;
/



Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
DECLARE 
  p_a TEST_ARG.t_table_dictionary;
BEGIN
  p_a('Date')   := TO_CHAR(SYSDATE, 'dd/mm/yyy HH24:MI:SS');
  p_a('String') := 'Test';
  p_a('Number') := TO_CHAR(10.01); 

  TEST_ARG.fnc(p_a => p_a);
END;
...
Рейтинг: 0 / 0
27.11.2019, 19:06
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895241
Фотография Кобанчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кобанчег
Участник
Alibek B.
которая бы выводила в dbms_output отформатированную строку
Ну так и передавай массив строк (попутно преобразовывая всё что не строки в строки).

Можно и кучу всего передать одним параметром, но в твоем случае необоснованно.
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
SQL> create or replace type varlist as table of anydata
  2  /

Type created.

SQL> select xmltype(anydata.convertcollection(varlist(anydata.convertvarchar2('a'),
  2                                                   anydata.convertvarchar2('b'),
  3                                                   anydata.convertcollection(sys.odcinumberlist(1,100,10)),
  4                                                   anydata.convertdate(date '2019-12-01')))).
  5         extract('*').getstringval() x
  6    from dual;

X
--------------------------------------------------------------------------------
<VARLIST><ANYDATA><ANYDATA>a</ANYDATA></ANYDATA><ANYDATA><ANYDATA>b</ANYDATA></A
NYDATA><ANYDATA><ODCINUMBERLIST><NUMBER>1</NUMBER><NUMBER>100</NUMBER><NUMBER>10
</NUMBER></ODCINUMBERLIST></ANYDATA><ANYDATA><ANYDATA>01-DEC-19</ANYDATA></ANYDA
TA></VARLIST>
...
Рейтинг: 0 / 0
27.11.2019, 19:29
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895248
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Передавать данные, используя предварительно подготовленный словарь или JSON/XML — это совсем не то же, что вызвать функцию и просто передать в нее список параметров.
Например функция для формирования локализованных сообщений объявлена так:
Код: plsql
1.
2.
3.
    FUNCTION format_message(format IN VARCHAR2 CHARACTER SET ANY_CS,
                           args ...)
      RETURN VARCHAR2 CHARACTER SET format%CHARSET;


Вот это вот args ... и было бы идеальным вариантом, но в самописной процедуре это не срабатывает.
А решение Владимира я честно говоря вообще не понял.
...
Рейтинг: 0 / 0
27.11.2019, 19:58
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895255
Фотография Кобанчег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кобанчег
Участник
Alibek B.,

XML был использован только для демонстрации, что можно передать массив хлама как параметр anydata если сильно хочется.

В Oracle нет документированного способа реализовывать varargs.

Что мешает передавать коллекцию строк как один параметр?
...
Рейтинг: 0 / 0
27.11.2019, 20:42
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895261
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Для коллекции нужно объявить ее тип, затем объявить переменную, затем заполнить коллекцию и только после этого передать в процедуру/функцию. Это получается слишком многословно, по сравнению с util.format или utl_lms.format_message.
...
Рейтинг: 0 / 0
27.11.2019, 21:00
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895265
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
У меня есть такая пачка функций на три основных типа данных (строка/число/дата) в любых сочетаниях:
 

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
FUNCTION FMT(val VARCHAR2, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  RETURN val;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  IF (str IS NULL) THEN RETURN TO_CHAR(val); ELSE RETURN TO_CHAR(val, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  IF (str IS NULL) THEN RETURN TO_CHAR(val); ELSE RETURN TO_CHAR(val, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;




Но при таком вызове: cc_libs.fmt(null, 'hh24:mi')
возникает ошибка PLS-00307 (слишком много описаний).
Видимо из-за невозможности сопоставить null с каким-то определенным вариантом; если вместо null использовать переменную или столбец таблицы, то такой неоднозначности нет.
А можно ли это как-то обойти? Например может быть можно было указать вариант для null-значения или указать приоритет?
...
Рейтинг: 0 / 0
27.11.2019, 21:29
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895294
Фотография SY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SY
Участник
Alibek B.

Но при таком вызове: cc_libs.fmt(null, 'hh24:mi')
возникает ошибка PLS-00307 (слишком много описаний).


Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
SQL> create or replace
  2    package pkg1
  3      is
  4        function f1(p_val number) return number;
  5        function f1(p_val varchar2) return varchar2;
  6        function f1(p_val date) return date;
  7  end;
  8  /

Package created.

SQL> create or replace
  2    package body pkg1
  3      is
  4        function f1(p_val number) return number is begin return p_val; end;
  5        function f1(p_val varchar2) return varchar2 is begin return p_val; end;
  6        function f1(p_val date) return date is begin return p_val; end;
  7  end;
  8  /

Package body created.

SQL> select pkg1.f1(null) from dual
  2  /
select pkg1.f1(null) from dual
       *
ERROR at line 1:
ORA-06553: PLS-307: too many declarations of 'F1' match this call


SQL> select pkg1.f1(to_number(null)) from dual
  2  /

PKG1.F1(TO_NUMBER(NULL))
------------------------


SQL> select pkg1.f1(cast(null as number)) from dual
  2  /

PKG1.F1(CAST(NULLASNUMBER))
---------------------------


SQL> select pkg1.f1(cast(null as date)) from dual
  2  /

PKG1.F1(C
---------


SQL> select pkg1.f1(to_char(null)) from dual
  2  /

PKG1.F1(TO_CHAR(NULL))
----------------------------------------------------------------------------------------------


SQL>



SY.
...
Рейтинг: 0 / 0
27.11.2019, 23:26
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895380
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Подсмотрел Util.Format и сделал свой форматтер.
Точнее еще не сделал, но близко к тому.
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
/* ---------------------------------------------------------------------------
  FORMAT (<format string> [, argument list...])
  Форматирование строки в соответствии с шаблоном и передаваемыми данными
  Шаблон обрамляется фигурными или прямоугольными скобками ({} или []).
  В фигурные скобки заключается обычный шаблон.
  В прямоугольные скобки заключается условный шаблон - если в нем отсутствуют 
  значения (равны NULL), то весь шаблон игнорируется (заменяется пустой 
  строкой). Парность скобок не учитывается, тип шаблона определяется по 
  открывающей скобке.
  Символ \ экранирует любой следующий символ. Например \[ используется, чтобы 
  использовать в шаблоне литеральный символ [.
  В шаблоне может быть либо значение, либо вложенный шаблон. Значения всегда 
  предваряются символом $.
  Формат шаблона: "$" index [ "|" format [ "|" nls ] ] [ "@" null ]
  index - порядковый номер аргумента (от 1 до 9) или * (следующий аргумент).
  format - строка формата, передается в to_char() без изменений.
  nls - строка локализации, передается в to_char в зависимости от типа.
  null - используется при пустом значении аргумента
  Примеры:

    Индекс: {$1|FM000000}, город {$2@-}
    Индекс: 012345, город Москва
    Индекс: , город -

    [Трек #{$*|FM00}. ][Альбом '{$*|YYYY} / ]{[{$*} - ]{$*@unknown}}.mp3
    Трек #01. Beatles - Yesterday.mp3
    Альбом '2000 / unknown.mp3

----------------------------------------------------------------------------*/
...
Рейтинг: 0 / 0
28.11.2019, 09:45
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895393
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Elic
Участник
Alibek B.
Код: plsql
1.
FORMAT (<format string> [, argument list...])

Угадывается пока ещё не вздрюченная жизнью наивность.
Alibek B.
Код: plsql
1.
 format - строка формата, передается в to_char() без изменений.

Так и не увидел типа данных.
...
Рейтинг: 0 / 0
28.11.2019, 10:05
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895402
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Делать перегрузку для всех возможных сочетаний типов данных 9 аргументов — это как-то перебор. Если найду способ передавать список параметров (желательно произвольного типа), то переделаю, а пока так.
Поэтому все аргументы будут строковыми, а тип данных будет определятся исходя из содержимого и строки формата.
Если строка формата относится к числовым типам, то аргумент будет приводится к числу, то же для даты. Если опознать не удается, будет использоваться как строка.
...
Рейтинг: 0 / 0
28.11.2019, 10:12
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895408
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Elic
Участник
Alibek B.
тип данных будет определятся исходя из содержимого и строки формата.
Наивноватый ты. Особенно с датами.
...
Рейтинг: 0 / 0
28.11.2019, 10:19
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895424
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
А пояснить можно, в чем именно?
Я планирую делать так.
1. Если задана строка формата:
1.а. Ищем FM, 9, 0, G, D, точка — если находим, то считаем числом.
1.б. Ищем Y, M, D, HH, MI — если находим, то считаем датой.
2. Проверяем значения:
2.а. Проверяем по некоторым шаблонам (####-##-##, ##.##.####), если совпадает, то считаем датой.
2.б. Проверяем по маске /^\d+$/ (и некоторым другим), если совпадает, то считаем числом.
3. Все остальное считаем строкой.

На все случаи этого недостаточно, но 90% сценариев это закроет, а для остальных случаев нужно будет использовать предварительно отформатированные в нужный формат значения как строки.
...
Рейтинг: 0 / 0
28.11.2019, 10:49
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895433
Фотография -2-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-2-
Участник
Alibek B.
2.а. Проверяем по некоторым шаблонам (####-##-##, ##.##.####), если совпадает, то считаем датой.
Мало "посчитать" датой, нужно еще не потерять исходное значение
Код: plsql
1.
2.
3.
4.
5.
SQL> select cast(sysdate as varchar2(20 char)) thisisdate from dual;

THISISDATE
--------------------------------------------------------------------------------
Какое здесь значение даты?
...
Рейтинг: 0 / 0
28.11.2019, 11:01
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895435
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
А при рекурсивном вызове у процедур нет стека?
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
DECLARE

FUNCTION FORMAT(...) RETURN VARCHAR2 IS
...
  tagPos INT := 1; tagOpen INT; tagClose INT; tagOpt INT;
...
BEGIN
...
  LOOP
    tagOpen := INSTR(str, ch, tagPos);
    EXIT WHEN tagOpen = 0;
    tagClose := PAIR(tagOpen);
    tagPos := tagClose + 1;
...
    IF (...) THEN
      tag := FORMAT(...);
    END IF;
...
  END LOOP;
  RETURN res;
END;



У меня такое ощущение, что при рекурсивном вызове FORMAT значение переменной tagPos изменяется в том числе и в родительском контексте. Собственно не ощущение, отладочный вывод именно это и показывает.
В PL/SQL действительно нет стека?
Или я что-то делаю неправильно?
...
Рейтинг: 0 / 0
28.11.2019, 11:05
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895438
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
-2-
Какое здесь значение даты?

Ну пользователя совсем за идиота держать не нужно.
Если пользователю удобно использовать автоматическое приведение типов, то он сам предварительно настроит для сессии локаль.
А если он вручную приводит значения с потерей точности, то он видимо знает, что делает, и будет задавать строку формата с учетом своих действий.
...
Рейтинг: 0 / 0
28.11.2019, 11:07
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895447
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Elic
Участник
Alibek B.
Если пользователю удобно использовать
Твой супер-мега-форматтер вызывает конечный пользователь?
...
Рейтинг: 0 / 0
28.11.2019, 11:17
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895452
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Конечный пользователь чего?
Операторы ИС разумеется про него знать не знают.
Он нужен прежде всего для логов и информационных сообщений скриптов, то есть пользователем форматтера будет различная автоматизация, которую обслуживают/настраивают админы ИС.
...
Рейтинг: 0 / 0
28.11.2019, 11:23
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895455
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Elic
Участник
Alibek B.
Он нужен прежде всего для логов и информационных сообщений скриптов, то есть пользователем форматтера будет различная автоматизация, которую обслуживают/настраивают админы ИС.
Серверный код не должен зависеть от клиентских nls-настроек.
...
Рейтинг: 0 / 0
28.11.2019, 11:27
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895457
Фотография -2-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-2-
Участник
Alibek B.
А если он вручную приводит значения с потерей точности, то он видимо знает, что делает, и будет задавать строку формата с учетом своих действий.
Если "пользователь" форматирует значения вручную, для конкатенации результатов такого форматирования ему будет удобнее пользоваться стандартными средствами, а не изучать поведение твоей функции.
...
Рейтинг: 0 / 0
28.11.2019, 11:28
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895565
IMNO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IMNO
Участник
 
"оффтоп"
Месье Alibek B. пытается принести JS-стайл в Oracle. Фу фу фу
...
Рейтинг: 0 / 0
28.11.2019, 13:26
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895601
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Alibek B.
Или я что-то делаю неправильно?

Нашел ошибку у себя, рекурсия работает нормально.

Текущая версия пакета:
 

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
CREATE OR REPLACE PACKAGE BODY CC_LIBS AS

FUNCTION IIF(expr BOOLEAN, val VARCHAR2, zval VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  IF expr THEN RETURN val; ELSE RETURN zval; END IF;
END IIF;
FUNCTION IIF(expr BOOLEAN, val NUMBER, zval NUMBER := NULL) RETURN NUMBER IS
BEGIN
  IF expr THEN RETURN val; ELSE RETURN zval; END IF;
END IIF;
FUNCTION IIF(expr BOOLEAN, val DATE, zval DATE := NULL) RETURN DATE IS
BEGIN
  IF expr THEN RETURN val; ELSE RETURN zval; END IF;
END IIF;

FUNCTION FMT(val VARCHAR2, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  RETURN val;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
  fmt VARCHAR2(80); nls VARCHAR2(80); i NUMBER := INSTR(str, '|');
BEGIN
  IF (i > 0) THEN
    nls := 'NLS_NUMERIC_CHARACTERS = '''||REPLACE(SUBSTR(str, i+1), '''', '''''')||'''';
    fmt := SUBSTR(str, 1, i-1);
  ELSE
    fmt := str;
  END IF;
  IF (nls IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt, nls);
  ELSIF (fmt IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt);
  ELSE
    RETURN TO_CHAR(val);
  END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
  fmt VARCHAR2(80); nls VARCHAR2(80); i NUMBER := INSTR(str, '|');
BEGIN
  IF (i > 0) THEN
    nls := 'NLS_DATE_LANGUAGE = '||REPLACE(SUBSTR(str, i+1), '''', '''''');
    fmt := SUBSTR(str, 1, i-1);
  ELSE
    fmt := str;
  END IF;
  IF (nls IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt, nls);
  ELSIF (fmt IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt);
  ELSE
    RETURN TO_CHAR(val);
  END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;

/* ---------------------------------------------------------------------------
  FORMAT (<format string> [, argument list...])
  Форматирование строки в соответствии с шаблоном и передаваемыми данными
  Шаблон обрамляется фигурными или прямоугольными скобками ({} или []).
  В фигурные скобки заключается обычный шаблон.
  В прямоугольные скобки заключается условный шаблон - если в нем отсутствуют 
  значения (равны NULL), то весь шаблон игнорируется (заменяется пустой 
  строкой). Парность скобок не учитывается, тип шаблона определяется по 
  открывающей скобке.
  Символ \ экранирует любой следующий символ. Например \[ используется, чтобы 
  использовать в шаблоне литеральный символ [.
  В шаблоне может быть либо значение, либо вложенный шаблон. Значения всегда 
  предваряются символом $.
  Тип данных значения определяется по содержанию и по формату данных.
  Формат шаблона: "$" index [ "|" format [ "|" nls ] ] [ "@" null ]
  index - порядковый номер аргумента (от 1 до 9) или * (следующий аргумент).
  format - строка формата, передается в to_char() без изменений.
  nls - строка локализации, передается в to_char в зависимости от типа.
  null - используется при пустом значении аргумента
  Примеры:

    Индекс: {$1|FM000000}, город {$2@-}
    Индекс: 012345, город Москва
    Индекс: , город -

    [Трек #{$*|FM00}. ][Альбом '{$*|YYYY} / ]{[{$*} - ]{$*@unknown}}.mp3
    Трек #01. Beatles - Yesterday.mp3
    Альбом '2000 / unknown.mp3

----------------------------------------------------------------------------*/

FUNCTION FORMAT(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) RETURN VARCHAR2 IS

  TKNE CONSTANT CHAR := '\';
  TKNV CONSTANT CHAR := '$';
  TKNO CONSTANT VARCHAR2(10) := '[{\';
  TKNC CONSTANT VARCHAR2(10) := ']}[{\';

  argIndex INT := 0;
  tagPos INT := 1; tagOpen INT; tagClose INT; tagOpt INT;
  ss VARCHAR2(2000); tag VARCHAR2(2000); res VARCHAR2(2000);

  FUNCTION ARG(i INT := 0) RETURN VARCHAR2 IS
  BEGIN
    IF    (i=0) THEN argIndex := argIndex+1; RETURN ARG(argIndex);
    ELSIF (i=1) THEN argIndex := 1; RETURN s1;
    ELSIF (i=2) THEN argIndex := 2; RETURN s2;
    ELSIF (i=3) THEN argIndex := 3; RETURN s3;
    ELSIF (i=4) THEN argIndex := 4; RETURN s4;
    ELSIF (i=5) THEN argIndex := 5; RETURN s5;
    ELSIF (i=6) THEN argIndex := 6; RETURN s6;
    ELSIF (i=7) THEN argIndex := 7; RETURN s7;
    ELSIF (i=8) THEN argIndex := 8; RETURN s8;
    ELSIF (i=9) THEN argIndex := 9; RETURN s9;
    END IF;
  END;

  PROCEDURE SCAN(str VARCHAR2, fmt VARCHAR2, val OUT NUMBER) IS
  BEGIN
    val := NULL;
  END;
  PROCEDURE SCAN(str VARCHAR2, fmt VARCHAR2, val OUT DATE) IS
  BEGIN
    val := NULL;
  END;

  FUNCTION FIND(chars VARCHAR2, pos INT := 1, len INT := 9999) RETURN VARCHAR2 IS
    c INT; n INT := LENGTH(chars); p INT; i INT;
  BEGIN
    FOR c IN 1..n LOOP
      i := INSTR(str, SUBSTR(chars,c,1), pos);
      IF (i > 0 and i <= pos+len) THEN
        IF (p IS NULL OR i < p) THEN
          p := i;
        END IF;
      END IF;
    END LOOP;
    IF (p IS NULL) THEN RETURN 0; ELSE RETURN p; END IF;
  END;

  FUNCTION PAIR(pos INT) RETURN INT IS
    ch CHAR; n INT := LENGTH(str); p INT := pos + 1; i INT; l INT := 1;
  BEGIN
    LOOP
      i := FIND(TKNC, p);
      EXIT WHEN i = 0;
      ch := SUBSTR(str, i, 1);
      IF (ch = TKNE) THEN
        p := i + 2;
      ELSE
        p := i + 1;
        IF (INSTR(TKNO, ch) > 0) THEN
          l := l + 1;
        ELSE
          l := l - 1;
          EXIT WHEN l = 0;
        END IF;
      END IF;
    END LOOP;
    IF (i = 0) THEN i := n + 1; END IF;
    RETURN i;
  END;

  FUNCTION PARSE(expr VARCHAR2) RETURN VARCHAR2 IS
    val VARCHAR2(200); fmt VARCHAR2(200); zval VARCHAR2(200);
    pf INT; pz INT; pi INT; vn NUMBER; vd DATE;
  BEGIN
    IF (expr IS NULL) THEN RETURN NULL; END IF;
    IF (SUBSTR(expr, 1, 1) != TKNV) THEN RETURN NULL; END IF;
    pz := INSTR(expr, '@');
    IF (pz = 0) THEN
      val := SUBSTR(expr, 2);
    ELSE
      val := SUBSTR(expr, 2, pz-2);
      zval := SUBSTR(expr, pz+1);
    END IF;
    pf := INSTR(val, '|');
    IF (pf > 0) THEN
      fmt := SUBSTR(val, pf+1);
      val := SUBSTR(val, 1, pf-1);
    END IF;
    IF (val = '*') THEN
      pi := 0;
    ELSE
      pi := TO_NUMBER(val);
    END IF;
    val := ARG(pi);
    SCAN(val, fmt, vd);
    SCAN(val, fmt, vn);
    fmt := 'YYYY-MM-DD';
    IF    (vd IS NOT NULL) THEN val := CC_LIBS.FMT(vd, fmt, zval);
    ELSIF (vn IS NOT NULL) THEN val := CC_LIBS.FMT(vn, fmt, zval);
    ELSE                        val := CC_LIBS.FMT(val, fmt, zval);
    END IF;
    RETURN val;
  END;

BEGIN
  res := '';
  LOOP
    tagOpt := NULL;
    tagOpen := FIND(TKNO, tagPos);
    EXIT WHEN tagOpen = 0;
    IF (tagOpen > tagPos) THEN res := res || SUBSTR(str, tagPos, tagOpen-tagPos); END IF;
    IF (SUBSTR(str, tagOpen, 1) = TKNE) THEN
      res := res || SUBSTR(str, tagOpen+1, 1);
      tagPos := tagOpen + 2;
    ELSE
      IF (SUBSTR(str, tagOpen, 1) = '[') THEN tagOpt := 0; ELSE tagOpt := -1; END IF;
      tagClose := PAIR(tagOpen);
      tagPos := tagClose + 1;
      ss := SUBSTR(str, tagOpen+1, tagClose-tagOpen-1);
      tag := PARSE(ss);
      IF (tag IS NULL) THEN
        tag := FORMAT(ss, s1,s2,s3,s4,s5,s6,s7,s8,s9);
        IF (tag IS NULL) THEN
          res := res || '@';
        ELSE
          res := res || tag;
        END IF;
      ELSE
        res := res || tag;
      END IF;
    END IF;
  END LOOP;
  res := res || SUBSTR(str, tagPos);
  RETURN res;
END;

PROCEDURE LOG(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
  DBMS_OUTPUT.PUT_LINE(FORMAT(str, s1, s2, s3, s4, s5, s6, s7, s8, s9));
END;

PROCEDURE LOGIF(expr BOOLEAN, str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
  IF expr THEN LOG(str, s1, s2, s3, s4, s5, s6, s7, s8, s9); END IF;
END;

PROCEDURE ERR(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
null;
  RAISE_APPLICATION_ERROR(-20000, FORMAT(str, s1, s2, s3, s4, s5, s6, s7, s8, s9));
END;

PROCEDURE ERRIF(expr BOOLEAN, str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
  IF expr THEN ERR(str, s1, s2, s3, s4, s5, s6, s7, s8, s9); END IF;
END;


END CC_LIBS;



Функция SCAN, которая будет распознавать тип данных, пока еще не готова, поэтому все аргументы обрабатываются как строки.
Плюс условные шаблоны пока не реализованы.
...
Рейтинг: 0 / 0
28.11.2019, 13:55
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895608
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Elic
Участник
Alibek B.
Текущая версия пакета:
Для кого этот поток сознания?
...
Рейтинг: 0 / 0
28.11.2019, 13:58
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895646
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
У меня были вопросы, мне с ними помогли.
Во-первых, это правила хорошего тона, дать комментарии на советы.
Во-вторых, подобная утилита может кому-нибудь пригодится.
Кому это неинтересно, просто пропустят данную тему.
...
Рейтинг: 0 / 0
28.11.2019, 14:37
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895667
Фотография Stax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stax
Участник
Alibek B.
Для коллекции нужно объявить ее тип, затем объявить переменную, затем заполнить коллекцию и только после этого передать в процедуру/функцию. Это получается слишком многословно , по сравнению с util.format или utl_lms.format_message.


когда появилась anydata

я надеялся что со временем доделают неявное преобразование/перегрузку
чтоб дотустимо было

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
declare
 vc varchar2(100) :='a';
 vd date :=sysdate;
 vn number :=0;
 vy sys.anydata;
begin
 vy:=vc;
 vy:=vd;
 vy:=vn;
 vc:=vy;
end;
/



ведь известно ж что надо делать

.....
stax
...
Рейтинг: 0 / 0
28.11.2019, 14:48
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895690
Фотография Elic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Elic
Участник
Alibek B.
подобная утилита может кому-нибудь пригодится.
Недоделаный сырник?
...
Рейтинг: 0 / 0
28.11.2019, 15:05
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895701
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Stax
я надеялся что со временем доделают неявное преобразование/перегрузку

Да, я думал, что ANYDATA это псевдотип, который соответствует любому поддерживаемому типу данных.
Без этого применять ANYDATA намного менее удобно.

Elic
Недоделаный сырник?

Эта утилита вполне рабочая, просто пока работает только со строковыми типами данных (точнее все типы данных приводит к строкам). Чуть позже я ее доделаю и выложу окончательную версию. Скелет программы и работа с шаблонами уже готовы и меняться не будут.
...
Рейтинг: 0 / 0
28.11.2019, 15:15
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895709
iOracleDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iOracleDev
Участник
Stax
я надеялся что со временем доделают неявное преобразование/перегрузку
чтоб дотустимо было

В каком формате типы данных отличные от строки должны быть преобразованы в строку и обратно?

PS: классы обертки для примитивных типов и полиморфизм присутствуют в ООП, в pl/sql такие конструкции отсутствуют.
...
Рейтинг: 0 / 0
28.11.2019, 15:23
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895723
Фотография -2-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-2-
Участник
Stax
я надеялся что со временем доделают неявное преобразование/перегрузку
Создай свой тип с однобуквенным именем и конструкторами/сеттерами на вкус и цвет.
Alibek B.
пока работает только со строковыми типами данных
Твое "пока" не имеет перспектив.
В типичных употреблениях форматера достаточно десяток строковых, десяток числовых параметров, пяток таймстампов, пяток интервалов. Для этого anydata, overload и прочего изобретать не нужно, решается декларацией обычных скалярно-типизованных параметров с default.
...
Рейтинг: 0 / 0
28.11.2019, 15:32
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895728
Фотография Stax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stax
Участник
iOracleDev
Stax
я надеялся что со временем доделают неявное преобразование/перегрузку
чтоб дотустимо было

В каком формате типы данных отличные от строки должны быть преобразованы в строку и обратно?

PS: классы обертки для примитивных типов и полиморфизм присутствуют в ООП, в pl/sql такие конструкции отсутствуют.


нет
сохранить согласно типу в правой части
неявно переобразовать/трансформировать в :=sys.anyData.convertVarchar2|date|number...(

зы
также неявно применять :=getXXX
....
stax
...
Рейтинг: 0 / 0
28.11.2019, 15:39
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895737
iOracleDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iOracleDev
Участник
-2-
Создай свой тип с однобуквенным именем и конструкторами/сеттерами на вкус и цвет.

Теоретически можно создать тип с набором полей разных примитивных типов, создать конструкторы и сеттеры перегруженные для разных примитивных типов, функции типа isDate, isNumber и т.п., создать перегруженные геттеры-процедуры с out параметром. Только какая от этого практическая польза?
...
Рейтинг: 0 / 0
28.11.2019, 15:43
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895742
iOracleDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iOracleDev
Участник
Stax,

Нельзя проделывать такие фокусы с примитивными типами, с классами можно, pl/sql процедурный язык, конечно нужно было его трансформировать в объектный, лет этак 15 назад, но увы.
...
Рейтинг: 0 / 0
28.11.2019, 15:47
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895744
Фотография Stax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stax
Участник
-2-
Создай свой тип с однобуквенным именем и конструкторами/сеттерами на вкус и цвет.

всеравно придется пользовать конструктор vy:=t.d(sysdate) вместо vy:=sysdate;

хотелка в том чтоб неявное преобразование делал оракля

....
stax
...
Рейтинг: 0 / 0
28.11.2019, 15:48
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895754
Фотография Stax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stax
Участник
iOracleDev
Stax,

Нельзя проделывать такие фокусы с примитивными типами, с классами можно, pl/sql процедурный язык, конечно нужно было его трансформировать в объектный, лет этак 15 назад, но увы.

я не говорю о трансформировании в ООП

говорю что конкретно для ANYDATA добавіть такой "синтаксический" сахар
зачем тогда ANYDATA, если каждый может "создать свой тип с однобуквенным именем и конструкторами/сеттерами на вкус и цвет."

ANYDATA должна иметь чутку своей специфики

напр
в древних версиях кляуза TABLE обязательна, слишал что в новых можно упускать
так и для ANYDATA - разрешить яно не указывать вызов контрукторов

.....
stax
...
Рейтинг: 0 / 0
28.11.2019, 15:58
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895762
iOracleDev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iOracleDev
Участник
Stax,

Забили уже давно на pl/sql, не развивается он, только костыли пихают, все хотелки мимо.
...
Рейтинг: 0 / 0
28.11.2019, 16:02
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39895772
Фотография -2-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-2-
Участник
Stax
хотелка в том чтоб неявное преобразование
Тут немало авторов удивляются ошибке инвалид-нумбер при сравнение текстового поля с числовым значением. Сколько такого работает до поры до времени, хотя могло бы отвалиться еще при статической компиляции.
Stax
"синтаксический" сахар
неявное приведение типов это уже не синтаксический.
...
Рейтинг: 0 / 0
28.11.2019, 16:08
| Ответить | Цитировать | Написать  
Вопросы по package/procedure
    #39896082
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Добавил работу с типами данных number/date.

Декларации
 

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
CREATE OR REPLACE PACKAGE CC_LIBS AS

FUNCTION IIF(expr BOOLEAN, val VARCHAR2, zval VARCHAR2 := NULL) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(IIF, WNDS, RNDS, WNPS, RNPS);
FUNCTION IIF(expr BOOLEAN, val NUMBER, zval NUMBER := NULL) RETURN NUMBER;
  PRAGMA RESTRICT_REFERENCES(IIF, WNDS, RNDS, WNPS, RNPS);
FUNCTION IIF(expr BOOLEAN, val DATE, zval DATE := NULL) RETURN DATE;
  PRAGMA RESTRICT_REFERENCES(IIF, WNDS, RNDS, WNPS, RNPS);

FUNCTION FMT(val VARCHAR2, str VARCHAR2 := NULL) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval NUMBER) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval DATE) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val NUMBER, str VARCHAR2 := NULL) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val NUMBER, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val NUMBER, str VARCHAR2, zval NUMBER) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val NUMBER, str VARCHAR2, zval DATE) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val DATE, str VARCHAR2 := NULL) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val DATE, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val DATE, str VARCHAR2, zval NUMBER) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);
FUNCTION FMT(val DATE, str VARCHAR2, zval DATE) RETURN VARCHAR2;
  PRAGMA RESTRICT_REFERENCES(FMT, WNDS, RNDS, WNPS, RNPS);

FUNCTION FORMAT(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) RETURN VARCHAR2;

PROCEDURE LOG(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL);
PROCEDURE LOGIF(expr BOOLEAN, str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL);

PROCEDURE ERR(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL);
PROCEDURE ERRIF(expr BOOLEAN, str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL);

END CC_LIBS;




Тело
 

Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
CREATE OR REPLACE PACKAGE BODY CC_LIBS AS

FUNCTION IIF(expr BOOLEAN, val VARCHAR2, zval VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  IF expr THEN RETURN val; ELSE RETURN zval; END IF;
END IIF;
FUNCTION IIF(expr BOOLEAN, val NUMBER, zval NUMBER := NULL) RETURN NUMBER IS
BEGIN
  IF expr THEN RETURN val; ELSE RETURN zval; END IF;
END IIF;
FUNCTION IIF(expr BOOLEAN, val DATE, zval DATE := NULL) RETURN DATE IS
BEGIN
  IF expr THEN RETURN val; ELSE RETURN zval; END IF;
END IIF;

FUNCTION FMT(val VARCHAR2, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
BEGIN
  RETURN val;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val VARCHAR2, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
  fmt VARCHAR2(80); nls VARCHAR2(80); i NUMBER := INSTR(str, '|');
BEGIN
  IF (i > 0) THEN
    nls := 'NLS_NUMERIC_CHARACTERS = '''||REPLACE(SUBSTR(str, i+1), '''', '''''')||'''';
    fmt := SUBSTR(str, 1, i-1);
  ELSE
    fmt := str;
  END IF;
  IF (nls IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt, nls);
  ELSIF (fmt IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt);
  ELSE
    RETURN TO_CHAR(val);
  END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val NUMBER, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2 := NULL) RETURN VARCHAR2 IS
  fmt VARCHAR2(80); nls VARCHAR2(80); i NUMBER := INSTR(str, '|');
BEGIN
  IF (i > 0) THEN
    nls := 'NLS_DATE_LANGUAGE = '||REPLACE(SUBSTR(str, i+1), '''', '''''');
    fmt := SUBSTR(str, 1, i-1);
  ELSE
    fmt := str;
  END IF;
  IF (nls IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt, nls);
  ELSIF (fmt IS NOT NULL) THEN
    RETURN TO_CHAR(val, fmt);
  ELSE
    RETURN TO_CHAR(val);
  END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval VARCHAR2) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval NUMBER) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;
FUNCTION FMT(val DATE, str VARCHAR2, zval DATE) RETURN VARCHAR2 IS
BEGIN
  IF (val IS NOT NULL) THEN RETURN FMT(val, str); ELSE RETURN FMT(zval, str); END IF;
END;

/* ---------------------------------------------------------------------------
  FORMAT (<format string> [, argument list...])
  Форматирование строки в соответствии с шаблоном и передаваемыми данными
  Шаблон обрамляется фигурными или прямоугольными скобками ({} или []).
  В фигурные скобки заключается обычный шаблон.
  В прямоугольные скобки заключается условный шаблон - если в нем отсутствуют 
  значения (равны NULL), то весь шаблон игнорируется (заменяется пустой 
  строкой). Парность скобок не учитывается, тип шаблона определяется по 
  открывающей скобке.
  Символ \ экранирует любой следующий символ. Например \[ используется, чтобы 
  использовать в шаблоне литеральный символ [.
  В шаблоне может быть либо значение, либо вложенный шаблон. Значения всегда 
  предваряются символом $.
  Тип данных значения определяется по содержанию и по формату данных.
  Формат шаблона: "$" index [ "|" format [ "|" nls ] ] [ "@" null ]
  index - порядковый номер аргумента (от 1 до 9) или * (следующий аргумент).
  format - строка формата, передается в to_char() без изменений.
  nls - строка локализации, передается в to_char в зависимости от типа.
  null - используется при пустом значении аргумента
  Примеры:

    Индекс: {$1|FM000000}, город {$2@-}
    Индекс: 012345, город Москва
    Индекс: , город -

    [Трек #{$*|FM00}. ][Альбом '{$*|YYYY} / ]{[{$*} - ]{$*@unknown}}.mp3
    Трек #01. Beatles - Yesterday.mp3
    Альбом '2000 / unknown.mp3

----------------------------------------------------------------------------*/

FUNCTION FORMAT(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) RETURN VARCHAR2 IS

  TKNE CONSTANT CHAR := '\';
  TKNV CONSTANT CHAR := '$';
  TKNO CONSTANT VARCHAR2(10) := '[{\';
  TKNC CONSTANT VARCHAR2(10) := ']}[{\';

  argIndex INT := 0;
  tagPos INT := 1; tagOpen INT; tagClose INT; tagOpt INT;
  ss VARCHAR2(2000); tag VARCHAR2(2000); res VARCHAR2(2000);

  FUNCTION ARG(i INT := 0) RETURN VARCHAR2 IS
  BEGIN
    IF    (i=0) THEN argIndex := argIndex+1; RETURN ARG(argIndex);
    ELSIF (i=1) THEN argIndex := 1; RETURN s1;
    ELSIF (i=2) THEN argIndex := 2; RETURN s2;
    ELSIF (i=3) THEN argIndex := 3; RETURN s3;
    ELSIF (i=4) THEN argIndex := 4; RETURN s4;
    ELSIF (i=5) THEN argIndex := 5; RETURN s5;
    ELSIF (i=6) THEN argIndex := 6; RETURN s6;
    ELSIF (i=7) THEN argIndex := 7; RETURN s7;
    ELSIF (i=8) THEN argIndex := 8; RETURN s8;
    ELSIF (i=9) THEN argIndex := 9; RETURN s9;
    END IF;
  END;

  FUNCTION SCAN(str VARCHAR2, fmt VARCHAR2, val OUT NUMBER) RETURN BOOLEAN IS
    flag BOOLEAN := FALSE; v VARCHAR2(200); f VARCHAR2(200) := UPPER(fmt); i INT := INSTR(fmt, '|'); nls VARCHAR2(80);
  BEGIN
    IF (i > 0) THEN
      f := SUBSTR(f, 1, i-1);
    END IF;
    val := NULL;
    IF (f IS NOT NULL) THEN
      IF    (SUBSTR(f,1,2) = 'FM') THEN
        f := 'FM';
      ELSIF (SUBSTR(f,1,2) = 'TM') THEN
        f := 'RN';
      ELSIF (SUBSTR(f,1,2) = 'RM') THEN
        f := 'RN';
      ELSIF (INSTR(f,'X') > 0) THEN
        f := 'X';
      ELSIF (INSTR(f,'0') > 0) THEN
        f := '0';
      ELSIF (INSTR(f,'9') > 0) THEN
        f := '9';
      ELSE
        f := NULL;
      END IF;
      IF (f IS NOT NULL) THEN flag := TRUE; END IF;
    END IF;
    IF (str IS NOT NULL) THEN
      IF (REGEXP_LIKE(str, '^\d+$')) THEN
        flag := TRUE; val := TO_NUMBER(str);
      ELSIF (REGEXP_LIKE(str, '^\d*\.\d*$')) THEN
        flag := TRUE; val := TO_NUMBER(str, '999999999999999999999999999999D99999999999999999999', 'NLS_NUMERIC_CHARACTERS = ''. ''');
      ELSIF (REGEXP_LIKE(str, '^\d*\,\d*$')) THEN
        flag := TRUE; val := TO_NUMBER(str, '999999999999999999999999999999D99999999999999999999', 'NLS_NUMERIC_CHARACTERS = '', ''');
      ELSE
        IF (v IS NULL) THEN
          BEGIN
            v := CAST(str AS NUMBER);
            flag := TRUE; val := v;
          EXCEPTION WHEN OTHERS THEN flag := FALSE;
          END;
        END IF;
        IF (v IS NULL) THEN
          BEGIN
            IF (fmt IS NULL) THEN
              v := TO_NUMBER(str);
            ELSE
              v := TO_NUMBER(str, fmt);
            END IF;
            flag := TRUE; val := v;
          EXCEPTION WHEN OTHERS THEN flag := FALSE;
          END;
        END IF;
      END IF;
    END IF;
    RETURN flag;
  END;
  FUNCTION SCAN(str VARCHAR2, fmt VARCHAR2, val OUT DATE) RETURN BOOLEAN IS
    flag BOOLEAN := FALSE; v VARCHAR2(200); f VARCHAR2(200) := UPPER(fmt); i INT := INSTR(fmt, '|'); nls VARCHAR2(80);
  BEGIN
    IF (i > 0) THEN
      nls := 'NLS_DATE_LANGUAGE = '||REPLACE(SUBSTR(fmt, i+1), '''', '''''');
      f := SUBSTR(f, 1, i-1);
    END IF;
    val := NULL;
    IF (f IS NOT NULL) THEN
      IF    (SUBSTR(f,1,2) = 'FX') THEN
        f := 'FX';
      ELSIF (INSTR(f,'SS') > 0) THEN
        f := 'SS';
      ELSIF (INSTR(f,'MI') > 0) THEN
        f := 'MI';
      ELSIF (INSTR(f,'HH') > 0) THEN
        f := 'HH';
      ELSIF (INSTR(f,'TZ') > 0) THEN
        f := 'TZ';
      ELSIF (INSTR(f,'DD') > 0) THEN
        f := 'DD';
      ELSIF (INSTR(f,'DAY') > 0) THEN
        f := 'DAY';
      ELSIF (INSTR(f,'MM') > 0) THEN
        f := 'MM';
      ELSIF (INSTR(f,'MON') > 0) THEN
        f := 'MON';
      ELSIF (INSTR(f,'YY') > 0) THEN
        f := 'YY';
      ELSIF (INSTR(f,'YEAR') > 0) THEN
        f := 'YEAR';
      ELSIF (INSTR(f,'RM') > 0) THEN
        f := 'RM';
      ELSE
        f := NULL;
      END IF;
      IF (f IS NOT NULL) THEN flag := TRUE; END IF;
    END IF;
    IF (str IS NOT NULL) THEN
      IF (str = 'sysdate') THEN
        f := NULL; v := sysdate; val := v;
      ELSIF (REGEXP_LIKE(str, '^\s*d{4}[-/.]\d{1,2}[-/.]\d{1,2}.+?\d{1,2}[:-]\d{1,2}[:-]\d{1,2}\s*$')) THEN
        f := 'YYYY-MM-DD HH24:MI:SS';
      ELSIF (REGEXP_LIKE(str, '^\s*\d{4}[-/.]\d{1,2}[-/.]\d{1,2}\s*$')) THEN
        f := 'YYYY-MM-DD';
      ELSIF (REGEXP_LIKE(str, '^\s*\d{1,2}[:-]\d{1,2}[:-]\d{1,2}\s*$')) THEN
        f := 'HH24:MI:SS';
      ELSIF (REGEXP_LIKE(str, '^\s*d{4}[-/. ]\w+[-/. ]\d{1,2}')) THEN
        f := 'YYYY-MON-DD HH24:MI:SS';
      ELSIF (REGEXP_LIKE(str, '^\s*\w+[-/. ]d{1,2}[-/. ]\d{4}')) THEN
        f := 'MON/DD/YYYY HH24:MI:SS';
      ELSE
        f := NULL;
      END IF;
      IF (f IS NOT NULL) THEN
        BEGIN
          IF (nls IS NULL) THEN
            v := TO_DATE(str, f);
          ELSE
            v := TO_DATE(str, f, nls);
          END IF;
          flag := TRUE; val := v;
        EXCEPTION WHEN OTHERS THEN flag := FALSE;
        END;
      END IF;
      IF (v IS NULL AND fmt IS NOT NULL) THEN
        BEGIN
          IF (nls IS NULL) THEN
            v := TO_DATE(str, fmt);
          ELSE
            v := TO_DATE(str, fmt, nls);
          END IF;
          flag := TRUE; val := v;
        EXCEPTION WHEN OTHERS THEN NULL;
        END;
      END IF;
      IF (v IS NULL) THEN
        BEGIN
          v := TO_DATE(str);
          flag := TRUE; val := v;
        EXCEPTION WHEN OTHERS THEN flag := FALSE;
        END;
      END IF;
    END IF;
    RETURN flag;
  END;

  FUNCTION FIND(chars VARCHAR2, pos INT := 1, len INT := 9999) RETURN VARCHAR2 IS
    c INT; n INT := LENGTH(chars); p INT; i INT;
  BEGIN
    FOR c IN 1..n LOOP
      i := INSTR(str, SUBSTR(chars,c,1), pos);
      IF (i > 0 and i <= pos+len) THEN
        IF (p IS NULL OR i < p) THEN
          p := i;
        END IF;
      END IF;
    END LOOP;
    IF (p IS NULL) THEN RETURN 0; ELSE RETURN p; END IF;
  END;

  FUNCTION PAIR(pos INT) RETURN INT IS
    ch CHAR; n INT := LENGTH(str); p INT := pos + 1; i INT; l INT := 1;
  BEGIN
    LOOP
      i := FIND(TKNC, p);
      EXIT WHEN i = 0;
      ch := SUBSTR(str, i, 1);
      IF (ch = TKNE) THEN
        p := i + 2;
      ELSE
        p := i + 1;
        IF (INSTR(TKNO, ch) > 0) THEN
          l := l + 1;
        ELSE
          l := l - 1;
          EXIT WHEN l = 0;
        END IF;
      END IF;
    END LOOP;
    IF (i = 0) THEN i := n + 1; END IF;
    RETURN i;
  END;

  FUNCTION PARSE(expr VARCHAR2) RETURN VARCHAR2 IS
    val VARCHAR2(200); fmt VARCHAR2(200); zval VARCHAR2(200);
    pf INT; pz INT; pi INT; vn NUMBER; vd DATE;
  BEGIN
    IF (expr IS NULL) THEN RETURN NULL; END IF;
    IF (SUBSTR(expr, 1, 1) != TKNV) THEN RETURN NULL; END IF;
    pz := INSTR(expr, '@');
    IF (pz = 0) THEN
      val := SUBSTR(expr, 2);
    ELSE
      val := SUBSTR(expr, 2, pz-2);
      zval := SUBSTR(expr, pz+1);
    END IF;
    pf := INSTR(val, '|');
    IF (pf > 0) THEN
      fmt := SUBSTR(val, pf+1);
      val := SUBSTR(val, 1, pf-1);
    END IF;
    IF (val = '*') THEN
      pi := 0;
    ELSE
      pi := TO_NUMBER(val);
    END IF;
    val := ARG(pi);
    IF    SCAN(val, fmt, vd) THEN
      val := CC_LIBS.FMT(vd, fmt, zval);
    ELSIF SCAN(val, fmt, vn) THEN
      val := CC_LIBS.FMT(vn, fmt, zval);
    ELSE
      val := CC_LIBS.FMT(val, fmt, zval);
    END IF;
    RETURN val;
  END;

BEGIN
  res := '';
  LOOP
    tagOpt := NULL;
    tagOpen := FIND(TKNO, tagPos);
    EXIT WHEN tagOpen = 0;
    IF (tagOpen > tagPos) THEN res := res || SUBSTR(str, tagPos, tagOpen-tagPos); END IF;
    IF (SUBSTR(str, tagOpen, 1) = TKNE) THEN
      res := res || SUBSTR(str, tagOpen+1, 1);
      tagPos := tagOpen + 2;
    ELSE
      IF (SUBSTR(str, tagOpen, 1) = '[') THEN tagOpt := 0; ELSE tagOpt := -1; END IF;
      tagClose := PAIR(tagOpen);
      tagPos := tagClose + 1;
      ss := SUBSTR(str, tagOpen+1, tagClose-tagOpen-1);
      tag := PARSE(ss);
      IF (tag IS NULL) THEN
        tag := FORMAT(ss, s1,s2,s3,s4,s5,s6,s7,s8,s9);
        IF (tag IS NULL) THEN
          res := res || '@';
        ELSE
          res := res || tag;
        END IF;
      ELSE
        res := res || tag;
      END IF;
    END IF;
  END LOOP;
  res := res || SUBSTR(str, tagPos);
  RETURN res;
END;

PROCEDURE LOG(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
  DBMS_OUTPUT.PUT_LINE(FORMAT(str, s1, s2, s3, s4, s5, s6, s7, s8, s9));
END;

PROCEDURE LOGIF(expr BOOLEAN, str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
  IF expr THEN LOG(str, s1, s2, s3, s4, s5, s6, s7, s8, s9); END IF;
END;

PROCEDURE ERR(str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
null;
  RAISE_APPLICATION_ERROR(-20000, FORMAT(str, s1, s2, s3, s4, s5, s6, s7, s8, s9));
END;

PROCEDURE ERRIF(expr BOOLEAN, str VARCHAR2, s1 VARCHAR2 := NULL, s2 VARCHAR2 := NULL, s3 VARCHAR2 := NULL, s4 VARCHAR2 := NULL, s5 VARCHAR2 := NULL, s6 VARCHAR2 := NULL, s7 VARCHAR2 := NULL, s8 VARCHAR2 := NULL, s9 VARCHAR2 := NULL) IS
BEGIN
  IF expr THEN ERR(str, s1, s2, s3, s4, s5, s6, s7, s8, s9); END IF;
END;


END CC_LIBS;




Версия еще не окончательная, не сделаны условные шаблоны (возвращать пустую строку, если внутри шаблона отсутствуют значения), пока не придумал, как это сделать. Через пару дней доделаю.

Пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
select cc_libs.format('#{$1|FM0000}. Цена {$2|FM9G999G990D00|.''@<нет>}', 1, 1234567.345) s from dual;
/

S
-
#0001. Цена 1'234'567.35
...
Рейтинг: 0 / 0
29.11.2019, 09:22
| Ответить | Цитировать | Написать  
44 сообщений из 44, показаны все 2 страниц
  все  
Форумы / Oracle [игнор отключен] [закрыт для гостей] / Вопросы по package/procedure
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=52&tid=1881799]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 2ms
others: 13ms
total:  175ms
созд. / загр.: 175ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]