Octave / zamena

function s = zamena(s)
alf='абвгдеёжзиклмнопрстуфхцчшщъыяэюя';
s=strrep(s,'--', '-');
s=strrep(s,'балд','Балд');
ch=substr (s, 1,2);
if (ch ~= '"')
s=regexprep(s, ch, upper(ch), "once");
else
ch=substr (s, 2,2);
s=regexprep(s, ch, upper(ch), "once");
endif
% s=strrep(s,ch,upper(ch));
n=findstr (s,'. ');
if (n>0 & n~= length(s))
ch=substr(s,n(1),4);
s=strrep(s,ch,upper(ch));
endif
n=findstr (s,'? ');
if (n>0 & n~= length(s))
ch=substr(s,n(1),4);
s=strrep(s,ch,upper(ch));
endif
n=findstr (s,'! ');
if (n>0 & n~= length(s))
ch=substr(s,n(1),4);
s=strrep(s,ch,upper(ch));
endif
nom = strfind(s,'"');
for j=1:length(nom)
ch = nom(j);
if (ch < length(s) - 1)
s(ch + 1: ch + 2) = upper(s(ch + 1: ch + 2));
endif
endfor;
endfunction