Именованный формат

				
				select distinct top %8:d
				  %0:s.%2:s,
				  %0:s.%3:s
				from
				  %0:s
				  %1:s
				where
				  %0:s.%9:s = %1:s.%5:s
				  and %1:s.%4:s = '%7:s'
				  and %1:s.%6:s <> '%9:s'
				order by
				  %0:s.%3:s

Каждый раз, когда мне приходиться смотреть на SQL-запросы, написанные по всем правилам и рекомендациям, я испытываю когнитивный диссонанс. В самом деле, глядя на бесконечные ряды позиционных аргументов формата, сложно понять, о чем идет речь.

Думаю, именно из-за невозможности понять, что делают даже не самые сложные запросы, появилась такая штука, как PreprocQuery(). Если она подойдет в конкретной ситуации - отлично. Но иногда хочется странного получить более легкий и, в то же время, более универсальный инструмент. Ведь форматирование применяется не только в SQL-запросах, но и во многих других местах.

Так есть ли выход из этой безнадежной ситуации. Оказывается, есть. И, как это ни странно, все же давно придумано за нас.

Если мы взглянем на такой язык, как Python, то увидим, что вместо позиционных аргументов формата "%5:s" используются именованные "%(Name)s". Вместо списка подстановок передается словарь (Dictionary), содержащий пары  "имя-значение".

Для ISBL наиболее близким типом будет именованный список IList. Правда такого же удобного создания словаря, как в Python, на ISBL не получится, но можно воспользоваться функциями CreateInitializedList или CreateCompletedList().

И тогда вместо

DATE_TIME_FORMAT = "%2:s.%1:s.%0:s %3:s:%4:s:%5:s" 
DateTimeStr = Format(DATE_TIME_FORMAT; 
  ArrayOf(Year; Month; Day; Hour; Minute; Second))

Можно будеть писать

DATE_TIME_FORMAT = "%(Day)s.%(Month)s.%(Year)s %(Hour)s:%(Minute)s:%(Second)s" 
DateTimeStr = NamedFormat(DATE_TIME_FORMAT; CreateInitializedList(ArrayOf( 
  ArrayOf("Year"; Year);
  ArrayOf("Month"; Month); 
  ArrayOf("Day"; Day); 
  ArrayOf("Hour"; Hour); 
  ArrayOf("Minute"; Minute); 
  ArrayOf("Second"; Second))))  

Подстановка получается несколько длиннее, но зато по строке формата понятно, что курил хотел сказать автор.

P.S. Реализация функции NamedFormat прилагается. NamedFormat.zip (3,56 Кб) (пакет для DIRECTUM 4.7 - IS-Builder 7.8.3).

P.P.S. Функция написана на регулярных выражениях и IStringList, поэтому в теории должна работать шустро даже на больших строках формата.