- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
function iofam(val a)
var fio[3];
fio[1]=""; fio[2]=""; fio[3]="";
a=trimall(a);
while strcountoccur(a," ")>0 do
a=strreplace(a," "," ");
enddo;
i=1;
while (strcountoccur(a," ")>0) and (i<=2) do
fio[i]=left(a,find(a," ")-1);
a=right(a,strlen(a)-1-strlen(fio[i]));
i=i+1;
enddo;
fio[i]=a;
return (left(fio[2],1)+"."+left(fio[3],1)+". "+fio[1]);
endfunction