Автор Наталья Кулёмина задал вопрос в разделе Лингвистика
Как пишется парсер, который находит в тексте @ и забирает всё до пробела слева и справа от этого символа ? и получил лучший ответ
Ответ от Лариса Крушельницкая[гуру]
Турбо-паскаль function Sobaka(s:string):string; var i,flag:integer; ss:string; begin ss:=\'\'; flag:=0; for i:=1 to Length(s) do begin case flag of 0: if s[ i ]=\' \' then ss:=\'\' else begin if s[ i ]=\'@\' then flag:=1; ss:=ss+s[ i ];end; 1: if s[ i ]=\' \' then begin Sobaka:=ss; break; end else ss:=ss+s[ i ]; end; end; end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как пишется парсер, который находит в тексте @ и забирает всё до пробела слева и справа от этого символа ?