Задача на работу с текстовым файлом.

[Константинн]

Дан текстовый файл, фразы в котором отделены друг от друга точками, а слова – пробелами и знаками препинания. Оставить в этом файле только фразы, в которых нет запятых.

[Wild_klas]

Глянь у меня, там тоже я с текстового файла считывал, может поможет тебе чем-то.
http://programmersforum.ru/showthread.php?t=144272

[Константинн]

спасибо за отзывчивость,но не подходит)..

[Serge_Bliznykov]

Константинн,
1) язык программирования какой нужен? на Delphi пойдёт?
2) чем не подходит предложенный вариант?
3) А где Ваши наработки?!

[Константинн]

Язык паскаль!
мои наработки)

program xxx;
var f1,f2:text;
    x:char;
    st:string;
begin
assign(f1,'Text.txt');
assign(f2,'MText.txt');
Reset(f1);Rewrite(f2);
while not eof(f1) do
begin
 while not eoln(f1) do
  begin
  readln(f1,st,x);
   if (x<>',') and (x<>' ') and (x<>'-') and (x='.')  then
   writeln(f2,st);
end;end;
close(f1);close(f2);
Erase(f1);Rename(f2,'Text.txt');
end.

помогите очень нужно...

посмотрите наработки может там исправить надо просто

[Sparkman]

Сообщение от Константинн

Язык паскаль!
мои наработки)

program xxx;
var f1,f2:text;
    x:char;
    st:string;
begin
assign(f1,'Text.txt');
assign(f2,'MText.txt');
Reset(f1);Rewrite(f2);
while not eof(f1) do
begin
 while not eoln(f1) do
  begin
  readln(f1,st,x);
   if (x<>',') and (x<>' ') and (x<>'-') and (x='.')  then
   writeln(f2,st);
end;end;
close(f1);close(f2);
Erase(f1);Rename(f2,'Text.txt');
end.

помогите очень нужно...

посмотрите наработки может там исправить надо просто

var f1,f2:text;
    x:char;
    st,tmp,s:string;
    i : integer;
    zpt : boolean;
begin
     assign(f1,'Text.txt');
     assign(f2,'MText.txt');
     Reset(f1);
     Rewrite(f2);
     while not eof(f1) do
     begin
           readln(f1,st);
           tmp := '';
           zpt := false;
           s := '';
           for i := 1 to Length(st) do
           begin
                if st[i]=',' then
                begin
                   zpt:=true;
                   tmp:='';
                end else
                if st[i]='.' then
                begin
                     if not zpt then
                     begin
                          tmp:=tmp+st[i];
                          s:=s+tmp;
                     end;
                     zpt:=false;
                end else
                if not zpt then tmp:=tmp+st[i];
           end;
           s:=s+tmp;
           writeln(f2,s);
     end;
     close(f1);
     close(f2);
     Erase(f1);
     Rename(f2,'Text.txt');
end.

[Serge_Bliznykov]

наработки, говорите, есть...
ну ладно. попробуйте такой код:

program xxx;
var
  f1, f2: text;
  ch: char;
  st: string;
begin
  assign(f1, 'Text.txt');
  assign(f2, 'MText.txt');
  Reset(f1);
  Rewrite(f2);
  st := '';
  while not eof(f1) do
  begin
    if eoln(f1) then begin
      Readln(f1);
      st := st + ' ';
    end;
    Read(f1, ch);
    st := st + ch;
    if ch = '.' then begin
      if Pos(',', st) = 0 then WriteLn(f2, st);
      st := '';
    end;
  end;
  close(f1);
  close(f2);
  Erase(f1);
  Rename(f2, 'Text.txt');
end.

[Константинн]

ой спасибо)))
большое