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