Удаление символа конца строки в текстовом файле

← →
jonik (2004-11-11 19:19) [0]

Собственно сабж ...

← →
DiamondShark © (2004-11-11 19:27) [1]

Одного? Или всех?

← →
jonik (2004-11-11 19:39) [2]

да хотя бы одного... А ещё интересней удаление символа конца файла...

← →
Verg © (2004-11-11 19:44) [3]

Перевод строки в конце текстового файла - оно нормально, даже нужно. Строка должна заканчиваться своим концом, а не концом файла.

> А ещё интересней удаление символа конца файла...

Символ Ctrl+Z (^Z) (конец файла)?
Где ты его "откопал"? :) Давненько я его не встречал :)

← →
jonik (2004-11-11 19:53) [4]

>Символ Ctrl+Z (^Z) (конец файла)?
Где ты его "откопал"? :) Давненько я его не встречал :)

У компонента TApolloTable есть метод CopyFileText. Загоняет содержимое таблицы в текстовик и добавляет этот самый ^Z! От него-то и хотелось бы избавиться...

← →
Alx2 © (2004-11-11 20:07) [5]

См Help и Truncate - обрезание конца файла (бр-р-р) :)

← →
jonik (2004-11-11 20:13) [6]

> См Help и Truncate - обрезание конца файла

Truncate с текстовыми файлами не работает :\

← →
Alx2 © (2004-11-11 20:20) [7]

>jonik (11.11.04 20:13) [6]
А разве обязательно текстовый файл использовать?

← →
jonik (2004-11-11 20:29) [8]

> А разве обязательно текстовый файл использовать?

В том-то и дело, что обязательно...

← →
KilkennyCat © (2004-11-11 20:42) [9]

а с текстовыми файлами работать можно только как с текстовыми?

← →
jonik (2004-11-11 20:45) [10]

// а с текстовыми файлами работать можно только как с текстовыми?

A как с какими?

← →
begin...end © (2004-11-11 20:49) [11]

jonik (11.11.04 20:45) [10]

var
F: File;

← →
jonik (2004-11-11 20:53) [12]

// var
F: File;

Ругается на SeekEof(F);

c : char;
f : file;

seek(f, FileSize(f)-1);
blockread(f, c, 1);
if c = ^Z then
begin
seek(f, FileSize(f)-1);
truncate(f);
end;
close(f);

Так, кажется

← →
jonik (2004-11-11 23:05) [14]

обрезает где-то в середине файла

хреново.

jonik (11.11.04 23:05) [14]
обрезает где-то в середине файла
в Reset напиши второй параметр равный 1

← →
jonik (2004-11-12 19:07) [17]

Приношу извинения всем, кто вчера не дождался окончания обсуждения! :)
Сообщаю: работает!!!
Итого имем:

Reset(f,1); seek(f,FileSize(f)-1); blockread(f, c, 1); if c = ^Z then begin seek(f,FileSize(f)-1); truncate(f); end; closefile(f);

Большой фэнкс всем за помощь в решении проблемы... :))))

Удаление символа конца строки в текстовом файле Найти похожие ветки