[micgan]

Имеем текстовый файл, в котором надо просто удалить ВСЕ строки, а в последней оставить слова, начиная со второго, т.е. из:

bla-bla...
qdfsadfdf dffasdff
sdfgadf asdgsdfsf sfsdf dfs df sdf sdfasf

надо получить и направить в другой текстовый файл вот это:

asdgsdfsf sfsdf dfs df sdf sdfasf

(Ни разу не программист, код нужен, чтоб вставить в регулярные выражения The Bat! на сортировке)

[lmikle]

TStringList тебе поможет. А так же функции Pos и Copy.

Код:

var
  L : TStringList;
  S : String;
begin
  L := TStringList.Create;
  L.LoadFromFile('filename.txt');
  S := L[L.Count-1];
  S := Copy(S,Pos(' ',S)+1,Length(S) - Pos(' ',S) + 1);
  L.Clear;
  L.Add(S);
  L.SaveToFile('newfilename.txt');
  L.Free;
end;

[Vold.khv]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Form1: TForm1;
  f,G:textfile;
  S : String;
  n:integer;
begin
AssignFile(F,'C:\Documents and Settings\Администратор\Рабочий стол\bla.txt') ; // путь и имя файла указываем свое
Reset(f);
  repeat
Readln(F,s);
  until EOF(f)=true ;

 n:=pos(' ',s);
 Delete(s,1,n);

 Assignfile(G,'C:\Documents and Settings\Администратор\Рабочий стол\test.txt');  //путь и имя файла указываем свое
 Rewrite(g);
 Write(g,s);
  closefile(f);
  closeFile(g);
end;
end.

Admin: Пользуемся тегами!