Помогите по работе с текстовыми файлами

[ЕвгениуS]

на жестком С:\ есть файл 1.txt
в нем сохранен текст. надо в этом текстовом файле каждую строку написать задом наперед, удалив из нее все пробелы. и сохранить с именем 2.txt в ту же папку что и первый.
Заранее благодарен.

[Ulex]

Не очень понятно - вам сама программа нужна, или исходник??
Если исходник, то на каком языке ??

[ЕвгениуS]

Сообщение от Ulex

Не очень понятно - вам сама программа нужна, или исходник??
Если исходник, то на каком языке ??

Нужен исходник на Паскале. Когда я писал программу она все строки из первого файла переворачивала, как мне надо, но, почему-то писала в одну строчку. Испробовал много вариантов. результат нулевой.

[Noor]

ну так может предоставите исходник программы, может там пару исправлений нужно сделать и все !!???

[eoln]

var
  f1, f2: text;
  s, s1, s2: string;
  i: byte;
begin
  assign(f1, '1.txt');
  reset(f1);
  assign(f2, '2.txt');
  rewrite(f2);
  while not eof(f1) do begin
    readln(f1, s1);
    s2 := '';
    for i := 1 to length(s1) do begin
      s := copy(s1, i, 1);
      if s <> ' ' then s2 := s + s2
    end;
    writeln(f2, s2)
  end;
  close(f1);
close(f2)
end.

[ЕвгениуS]

Сообщение от Noor

ну так может предоставите исходник программы, может там пару исправлений нужно сделать и все !!???

Я ее делал в институте. Скопировал на флешку. Но дома на комп скопировать не могу- у меня USB порта нету. (

[ЕвгениуS]

[QUOTE=eoln;96993]

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

[eldarik]

нужен исходник на Дельфи: составить проект заменяющий символы в файле Text.in соответствющими цифрами в алфавитном порядке в файл Text.out.

Заранее благодарен за помощь

[IT-man]

eldarik стучи договоримся недорого!

[eldarik]

Неужели никто БЕСПЛАТНО не может помочь?