Преобразование ФИО в краткое

[G.Menshikh]

Сегодня подкинули задачку небольшую, надо как раз из строки выдернуть инициалы
накидал джобик

    str         s = 'фАМИЛИЯ имя отчество      ';
    str         fio;
    container   c;
    int         i;
    ;

    s = strRTrim(strLTrim(s));  //удалим пробелы в начале и в конце строки, если есть
    s = str2CapitalWord(s);    //первая буква слова Заглавная, остальные прописные
    c = str2con(s, ' ');           //в контейнере разобьем по словам 

    for(i = 1; i <= conlen(c); i++)
    {
        if(fio)
        {
            fio += substr(conpeek(c, i), 1, 1) + '.';
        }
        else
        {
            fio += conlen(c) > 1 ? conpeek(c, i) + ' ' : conpeek(c, i);
        }
    }
    info(strfmt("%1", s));
    info(strfmt("%1", fio));