Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Вниз
Удаление символа конца строки в текстовом файле Найти похожие ветки
← →
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);
← →
Verg © (2004-11-11 20:54) [13]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]обрезает где-то в середине файла
← →
KilkennyCat © (2004-11-11 23:15) [15]хреново.
← →
GuAV © (2004-11-11 23:52) [16]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);
Большой фэнкс всем за помощь в решении проблемы... :))))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.034 c
