Статистика по именам и пример парсера ФИО в запросе

Заинтересовало большое количество детишек с одинаковыми именами на детской площадке, базы с именами и датами рождения кроме как ЗУП под рукой не оказалось.
За одно потренировался ФИО разлаживать на Ф+И+О в запросе, на встроенным языком не интересно.

Что бы увеличить количество имен взял и физлиц и их детей, иначе и проблемы с парсером не возникло бы :)
Сам отчет на СКД, ставьте отборы как душе угодно

ВЫБРАТЬ

ФизическиеЛицаСоставСемьи.Имя КАК ФИО,

ФизическиеЛицаСоставСемьи.ДатаРождения,

ФизическиеЛицаСоставСемьи.Ссылка

ПОМЕСТИТЬ вт_объединенная

ИЗ

Справочник.ФизическиеЛица.СоставСемьи КАК ФизическиеЛицаСоставСемьи

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ФИОФизЛиц.ФизЛицо.Наименование,

ФИОФизЛиц.ФизЛицо.ДатаРождения,

ФИОФизЛиц.ФизЛицо

ИЗ

РегистрСведений.ФИОФизЛиц КАК ФИОФизЛиц

;

////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

вт.ФИО КАК ФИОоригинал,

вт.ДатаРождения,

вт.Ссылка,

ВЫБОР

КОГДА ПОДСТРОКА(вт.ФИО, 2, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 1)

КОГДА ПОДСТРОКА(вт.ФИО, 3, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 2)

КОГДА ПОДСТРОКА(вт.ФИО, 4, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 3)

КОГДА ПОДСТРОКА(вт.ФИО, 5, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 4)

КОГДА ПОДСТРОКА(вт.ФИО, 6, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 5)

КОГДА ПОДСТРОКА(вт.ФИО, 7, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 6)

КОГДА ПОДСТРОКА(вт.ФИО, 8, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 7)

КОГДА ПОДСТРОКА(вт.ФИО, 9, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 9)

КОГДА ПОДСТРОКА(вт.ФИО, 10, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 9)

КОГДА ПОДСТРОКА(вт.ФИО, 11, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 10)

КОГДА ПОДСТРОКА(вт.ФИО, 12, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 11)

КОГДА ПОДСТРОКА(вт.ФИО, 13, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 12)

КОГДА ПОДСТРОКА(вт.ФИО, 14, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 13)

КОГДА ПОДСТРОКА(вт.ФИО, 15, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 14)

ИНАЧЕ "---"

КОНЕЦ КАК Фамилия,

ВЫБОР

КОГДА ПОДСТРОКА(вт.ФИО, 2, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 3, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 3, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 4, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 4, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 5, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 5, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 6, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 6, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 7, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 7, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 8, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 8, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 9, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 9, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 10, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 10, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 11, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 11, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 12, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 12, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 13, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 13, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 14, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 14, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 15, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 15, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 16, 100)

ИНАЧЕ "---"

КОНЕЦ КАК ФИО

ПОМЕСТИТЬ вт_ио

ИЗ

вт_объединенная КАК вт

ГДЕ

вт.ДатаРождения <> ДАТАВРЕМЯ(1, 1, 1)

;

////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

вт.ФИОоригинал,

вт.ДатаРождения,

вт.Ссылка,

вт.ФИО КАК ИО,

вт.Фамилия,

ВЫБОР

КОГДА ПОДСТРОКА(вт.ФИО, 2, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 1)

КОГДА ПОДСТРОКА(вт.ФИО, 3, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 2)

КОГДА ПОДСТРОКА(вт.ФИО, 4, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 3)

КОГДА ПОДСТРОКА(вт.ФИО, 5, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 4)

КОГДА ПОДСТРОКА(вт.ФИО, 6, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 5)

КОГДА ПОДСТРОКА(вт.ФИО, 7, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 6)

КОГДА ПОДСТРОКА(вт.ФИО, 8, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 7)

КОГДА ПОДСТРОКА(вт.ФИО, 9, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 9)

КОГДА ПОДСТРОКА(вт.ФИО, 10, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 9)

КОГДА ПОДСТРОКА(вт.ФИО, 11, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 10)

КОГДА ПОДСТРОКА(вт.ФИО, 12, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 11)

КОГДА ПОДСТРОКА(вт.ФИО, 13, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 12)

КОГДА ПОДСТРОКА(вт.ФИО, 14, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 13)

КОГДА ПОДСТРОКА(вт.ФИО, 15, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 1, 14)

ИНАЧЕ "---"

КОНЕЦ КАК Имя,

ВЫБОР

КОГДА ПОДСТРОКА(вт.ФИО, 2, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 3, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 3, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 4, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 4, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 5, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 5, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 6, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 6, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 7, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 7, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 8, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 8, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 9, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 9, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 10, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 10, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 11, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 11, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 12, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 12, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 13, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 13, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 14, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 14, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 15, 100)

КОГДА ПОДСТРОКА(вт.ФИО, 15, 1) = " "

ТОГДА ПОДСТРОКА(вт.ФИО, 16, 100)

ИНАЧЕ "---"

КОНЕЦ КАК Отчество,

1 КАК Сч

ПОМЕСТИТЬ вт_ф_и_о

ИЗ

вт_ио КАК вт

;