Как из строки Привет Привет Привет
получить строку Привет П. П.?????

глФИО(Строка)

??? чего

ой
ФИО("Привет Привет Привет") - это процедура в глобальнике в бух

(2) функция такая есть в ГМ

это из бухии
//******************************************************************************
//    глФамилияИмяОтчество(Объект,Фамилия,Имя,Отчество)
//
//    Параметры:
//        Объект     - элемент справочника Сотрудники или Строка
//        Фамилия     - в этот параметр будет записана фамилия сотрудника
//        Имя         - в этот параметр будет записано имя сотрудника
//        Отчество - в этот параметр будет записано отчество сотрудника
//
//    Возвращаемое значение:
//        фамилия и инициалы сотрудника
//
//    Описание:
//        разбирает "наименование" сотрудника по Фамилия, Имя, Отчество
//        и возвращает фамилию и инициалы сотрудника
//
Функция глФамилияИмяОтчество(Объект,Фамилия="",Имя="",Отчество="") Экспорт
   
   Если ТипЗначения(Объект)=2 Тогда
       ФИО = глРазделить(СокрЛП(Объект),",");
   Иначе
       ФИО = глРазделить(СокрЛП(Объект.Наименование),",");
   КонецЕсли;                            
   ФИО = глРазложить(ФИО," ");
   Фамилия = ""; Имя = ""; Отчество = "";
   Если ФИО.РазмерСписка() > 0 Тогда
       Фамилия = ФИО.ПолучитьЗначение(1);
       Если ФИО.РазмерСписка() > 1 Тогда
           Имя        = ФИО.ПолучитьЗначение(2);
           Если ФИО.РазмерСписка() > 2 Тогда
               // а вот отчество бывает и не из одного слова                
               Для Сч = 3 По ФИО.РазмерСписка() Цикл
                   Отчество = Отчество + ФИО.ПолучитьЗначение(Сч) + " ";
               КонецЦикла;
               Если ПустоеЗНачение(Отчество) = 0 Тогда
                   Отчество = Лев(Отчество,СтрДлина(Отчество)-1);
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
   
   Возврат Фамилия+?(ПустоеЗначение(Имя)=0," "+Лев(Имя,1)+"."+?(ПустоеЗначение(Отчество)=0,Лев(Отчество,1)+".",""),"")

КонецФункции    // глФамилияИмяОтчество



в ТиС , есть глФИО , точно такая же

не везде ... она такая есть

Пасиб

(6) Но теперь она есть даже в этой ветке :)

(8) глФИО , немного другая, она более правильно написана

можно проще...

(10) пости... в книгу знаний добавим :)

+11 ошибся - " в базу знаний"

(10) В одну строку ? ;)

(0)
Стр = Лев(Стр,Найти(Стр," "))+" "+Лев(Сред(Стр,Найти(Стр," ")+1),1)+"."+Лев(Сред(Сред(Стр,Найти(Стр," ")+1),Найти(Сред(Стр,Найти(Стр," ")+1)," ")+1),1)+".";

(13) (14)в одну строку.....

(14)что вернет "Баранов Леонид" ?

за одну не знаю...

//*******************************************
function GetInitials(strName = "")
 strName = strreplace(strName, " ", linebreak);
 strName = strgetline(strName, 1) + " " +
 ?(isblankstring(strgetline(strName, 2)) = 0, left(strgetline(strName, 2), 1) + "." +
 ?(isblankstring(strgetline(strName, 2)) = 0, left(strgetline(strName, 3), 1) + ".", ""), "");
 return strName;
endfunction

не мое... автор Рупор... я так не много доработал

(15) Никто и не сомневался

ФИО=Лев(ФИО,?(Найти(ФИО," ")=0,СтрДлина(ФИО),Найти(ФИО," ")+1))+?(СтрЧислоВхождений(ФИО," ")=0,"",".")+?(СтрЧислоВхождений(ФИО," ")>1,Сред(Прав(ФИО,СтрДлина(ФИО)-Найти(ФИО," ")),Найти(Прав(ФИО,СтрДлина(ФИО)-Найти(ФИО," "))," ")+1,1)+".","")

;))) ... не могу .... сдаюсь... не проверял, но сдаюсь....

(19)не, правда работает... надо только чтоб пробелов не было в начале и в конце... :)

и между вамилией с именем... да  ;)))


в 16 в принципе тоже

(21)по идее, если добавить несколько СокрЛП, то вообще все зашибись будет.... счас доделаю....

не страдай... все равно ни кто не оценит

(23)так скучно, делать нечего....

ну тогда страда

страдай...

ФИО = Формат(СокрЛП(ФИО),"С"+?(Найти(СокрЛП(ФИО)," ")=0,Число(СтрДлина(СокрЛП(ФИО))),Число(Найти(СокрЛП(ФИО)," ")-1)))+?(СтрЧислоВхождений(СокрЛП(ФИО)," ")>0," "+Лев(СокрЛП(Сред(СокрЛП(ФИО),Найти(СокрЛП(ФИО)," "))),1)+".","")+?(СтрЧислоВхождений(СокрЛП(Сред(СокрЛП(ФИО),Найти(СокрЛП(ФИО)," ")))," ")>0,Лев(СокрЛП(Сред(СокрЛП(Сред(СокрЛП(ФИО),Найти(СокрЛП(ФИО)," "))),Найти(СокрЛП(Сред(СокрЛП(ФИО),Найти(СокрЛП(ФИО)," ")))," "))),1)+".","")

теперь ваще все круто....

ух ты... теперь в БЗ.... тогда последнюю добавьте лучше....

все теперя я в истории...

(27) Научил людей в одну строку фигачить, блин.. =)

(31) Один человек "научил" практически в одну строку любые ФИО склонять...

(31)сам себе... что ли ;))

Почему эта тупая ветка добавлена в БЗ?

(33) Я знаю, но промолчу.

(34) Потому, что инженер такой же?

(35) Не надо меня провоцировать.

(33)а почему тупая?

СокрЛП(Сред(СокрЛП(СокрЛП(Сред(СокрЛП(СокрЛП(Сред(СокрЛП(СокрЛП(Сред(СокрЛП(СокрЛП(Сред(СокрЛП(СокрЛП(Сред(СокрЛП(СокрЛП(Сред(СокрЛП(...нашли

на зло врагам ... нас гнетущим..

(38)???

не много подправлю еще один косяк Рупора... на случай если вдруг между фамилией и именем оператор набъет два пробела

//*******************************************
function GetInitials(strName = "")
 while find(strName, "  ") > 0 do
   strName = strreplace(strName, "  ", " ");
 enddo;
 strName = strreplace(strName, " ", linebreak);
 strName = strgetline(strName, 1) + " " +
 ?(isblankstring(strgetline(strName, 2)) = 0, left(strgetline(strName, 2), 1) + "." +
 ?(isblankstring(strgetline(strName, 2)) = 0, left(strgetline(strName, 3), 1) + ".", ""), "");
 return strName;
endfunction

(41) Опа ... А почему этот косяк носит моё имя?

Куя, исправил...

(42)так это ты предложил...

Скунки, ты везде у себя на аглицком калякаешь?
ЗЫ извиняй за (43) - всё, импортную писанину больше не читаю...

не поверишь везде...

поверю

(41,44) Косяк Рупора или косяк, исправленный Рупором?

как подсказали... еще более правильный вариант

//*******************************************
function GetInitials(strName = "")
 if isblankstring(strName) > 0 then
   strName = "";
 else
   strName = trimall(strName);
   while find(strName, "  ") > 0 do
     strName = strreplace(strName, "  ", " ");
   enddo;
   strName = strreplace(strName, " ", linebreak);
   strName = strgetline(strName, 1) + " " +
   ?(isblankstring(strgetline(strName, 2)) = 0, left(strgetline(strName, 2), 1) + "." +
   ?(isblankstring(strgetline(strName, 2)) = 0, left(strgetline(strName, 3), 1) + ".", ""), "");
 endif;
 return strName;
endfunction

(48)в том варианте который предложил он... были Косячки...

(50) Наговариваешь ты на меня ...
Тебе бы только всё хорошее ругать ...

(51)даже думать не смел

Рупор абсурда
9 - 21.09.05 - 15:35
Стр=СтрЗаменить(ФИО," ",РазделительСтрок);
Стр=СтрПолучитьСтроку(Стр,1)+" "+Лев(СтрПолучитьСтроку(Стр,2),1)+"."+Лев(СтрПолучитьСтроку(Стр,3),1)+".";


взято от сюда
Прав, Лев, СокрЛП

СтрРазница=1;
Пока СтрРазница>0 Цикл
 СтрРазница=Стрдлина(стр);
 Стр=СтрЗаменить(Стр,"  "," ");
// два пробела на один
 СтрРазница=СтрРазница-Стрдлина(стр);
КонецЦикла;

ну все равно это полностью твой код... я просто сделал его не много универсальней...

у тебя кошерно отрабатывался только вариант "Баронов Лев Леонидович" ...

у меня за пох
"Баронов   Лев   Леонидович"
"   Баронов  Лев  Леонидович   "
"Баронов Лев Леонидович"
"Баронов Лев"
"Баронов"

Баронов?

очепятка ... Баранов ...

(53) А мне там код Grant'а понравился ...
Кстати, не знаешь куда он пропал?

нет... я даже не видал... а что там было?

(59) Код там в (12) ...
Я не про пропажу кода спросил, а про пропажу самого Гранта ... :))

(60)нет куда Грант пропал незнаю ...

а код ... нет о еще кривее чем у тебя ... козябаки теже... а по скорости... твой делает...

(55) А проверка на цифры и символы, например %,.>? =)

(62)за пох... проблема оператора...

А можно набивальщиц посадить, как кто в базе работает с ФИО у них выпрыгивает Ввести строку и они быстренько ее пишут, если тыщ 100 набивальщиц то быстрее любого алгоритму...

(63) Проблема программера, имхо нужно при вводе проверять на недопустимые символы

"-" - допустимый символ?

(66) да

(65)вопрос, я что делать с недопустимыми символами? Удалять слово, вырезать, считать раздилителем, вобще оператора нах... посылать?

+(68) раздЕлителем...

Опратор вел "Ба-ра-нов" чей косяк?

(68) вырезать, в 80% случаев поможет

(71)один цикл в три строчки, если есть список недопустимых символов.... тебе написать?

(70) Оператора, только я тебе про двойные пробелы говорил и !?:;%&*()$#@><'"][{}+/

(74) двойные пробелы... там удаляються... глянь внимательно

за остальное... надо тебе... ты удаляй... мне нет не надо...

(73)а двойные пробелы удаляются в обоих алгоритмах

Function Replacet(patrn,replStr,str1)
 Set regEx = New regexp
 regEx.Pattern = patrn
 regEx.IgnoreCase = true
 Replacet = regEx.Replace(str1,replStr)
End Function

str1 = "Петров-и-даже-водкин Василий Алибобаевич ибн Ибрагимович"
str1=Replacet("(\s)(.)(\S+)","$1$2.",str1)
for i=2 to ubound(split(str1," "))
   str1=Replacet("(\.)(\s)(.)(\S+)","$2$3.",str1)
next
for i=2 to ubound(split(str1," "))
   str1=Replacet("(\s)(\S)(\s)"," $2. ",str1)
next
MsgBox str1
;)

ржал

Function Replacet(patrn,replStr,str1)
 Set regEx = New regexp
 regEx.Pattern = patrn
 regEx.IgnoreCase = true
 Replacet = regEx.Replace(str1,replStr)
End Function

str1 = "Петров-и-даже-водкин  Василий Алибобаевич  ибн Ибрагимович"
for i=2 to ubound(split(str1," "))
   str1=Replacet("  "," ",str1)
next
str1=Replacet("(\s)(.)(\S+)","$1$2.",str1)
for i=2 to ubound(split(str1," "))
   str1=Replacet("(\.)(\s)(.)(\S+)","$2$3.",str1)
next
for i=2 to ubound(split(str1," "))
   str1=Replacet("(\s)(\S)(\s)"," $2. ",str1)
next
MsgBox str1
;)