Как взять инициалы из имени?

[ryurik]

Требуется из стандартного ФИО
получить фамилию с инициалами.
Пример: "Иванов Иван Иванович" -> "Иванов И.И."
Нехотелось бы изобретать велосипед.
Есть ли в Галактике стандартные средства для этого или кто как решал эту проблему?

[ryurik]

Ламерство.
Есть стандартная функция:

//фамилия и инициалы
function GetSurnameWithInitials(string): string; external;

[Sanya]

s1:=trim(fio)
a1:=instr(‘ ’,fio)
fam:=substr(s1,1, a1-1)
s2:=substr(s1,a1+1,length(s1))
a1:=instr(‘ ’,s2)
ima:=substr(s2,1, a1-1)
s2:=substr(s2,a1+1, length(s2))
a1:=instr(‘ ’,s2)
oth:= substr(s2,1, a1-1)
Вот фамилия =fam
имя=ima
отчество=oth
Если надо резать, то
fam+' '+substr(ima,1,1)+'.'+substr(oth,1,1)+'.'
Наверное так вроде нигде не ошибся...

[Serrenium]

Вот так вот еще можно:

Код: Выделить всё

.function initfio (fio:string):string;
begin 
if pos('.',fio)=0 
initfio:= substr(fio,1,pos(' ',fio)-1) + ‘ ‘ +substr(fio,pos(' ',fio)+1,1)+'.'+substr(substr(fio,pos(' ',fio) + 1, length(fio) - pos(' ',fio)+1), pos(' ',substr(fio,pos(' ',fio)+1,length(fio)-pos(' ',fio)+1))+1,1)+'. ' 
else initfio:=fio; 
end.

из Фамилия Имя Отчество получаем: Фамилия И.О.

[Vik]

Ламерство.
Есть стандартная функция:

//фамилия и инициалы
function GetSurnameWithInitials(string): string; external;

Я так полагаю, если функция стандартная, то хотя бы в хелпе должна быть описана. Что-то этой "стандартной" функции я не нашел.

Можно еще использовать объектный фейс ObjStrFunc из StrFunc.vih (если есть конечно) - в нем много функций для работы с ФИО.

[Алексей]

Функция действительно есть, паскалевская, и работает

[edward_K]

в vipprogr.chm описаны только системные функций. А то что сделал в модуле для себя конкретный товарищ можно поискать в описании конкретного модуля - типа TxoSetkau вроде была в txo.pdf, по табелю screw в опыт выкладывал и так далее, тот же вывод в Excel.
Пшите в ТП за составлением доки на такие функции - там много чего интересного. Раньше их описание лежало в extfun.res.