Как сохраниться в определенную строку.

← →
HF-Trade (2004-02-14 10:52) [0]

Типа открываем файл(скажем текстовый)и добавляем туды текст, но файл уже с текстом, как указать что надо раздвинуть строки и добавить текст после, ну пусть третий, или четвертой....строки.

← →
Андрей Сенченко (2004-02-14 12:30) [1]

Никак не указать.

Текстовый файл - устройство последовательного доступа
© Anatoly Podgoretsky

← →
Андрей Сенченко (2004-02-14 12:32) [2]

Примерная технология решения:
1. Прочитать и записать нужное количество строк
2. Записать новый фрагмент
3. Прочитать и дописать остаток файла.

Конкретная реализация - на Ваше усмотрение.

← →
HF-Trade (2004-02-14 12:34) [3]

Может есть способ стереть последние 20 или 50 символов в текстовом файле и перезаписать его?

← →
Андрей Сенченко (2004-02-14 12:41) [4]

Есть.
Не записывать в новый файл последние 20 или 50 символов :)

Вариант 1
var
f_old,f_new : text;

begin

Assign(f_old);
ResetFile(f_old);
Assign(f_new);
RewriteFile(f_new);

Read (f_old,...); // Читаем из старог все что нужно
Write (f_new ,..); // Пишем в новый все, что нужно

CloseFile(f_old);
CloseFile(f_new);

Rename(F_new,f_old);

Вариант 2.

Значительно проще, но меньшему научишься

TStringLisst.Create;
TStringList.LoadFromFile;

... // тут сам в хелпе почитаешь

TStringList.SaveToFile;

← →
Андрей Сенченко (2004-02-14 12:43) [5]

Злобный офтоп

Не покупайте, люди, электронных свитчей. Дрянь.

← →
HF-Trade (2004-02-14 17:44) [6]

Андрей Сенченко © (14.02.04 12:30) [1]
Никак не указать.

Текстовый файл - устройство последовательного доступа
© Anatoly Podgoretsky

Вот мне б последовательно, с конца файла, указать сколько символов надо удалить. ;_)

Есть еще вааапросик.
Берем стринг из поля едит1, и вставляем его в едит2, но в стринге он представленно как - "test.exe"(имеется в виду что название может быть любой длинны), можно ли обрезать четыре последних символа, для представления этого слова в поле едит2 как - "test"

← →
Андрей Сенченко (2004-02-14 17:51) [7]

Вот мне б последовательно, с конца файла, указать сколько символов надо удалить. ;_)

Если с конца - танцуй от EOF
// сейчас меня Мастера убивать будут за то что плохому учу.

можно ли обрезать четыре последних символа, для представления этого слова в поле едит2 как - "test"

Лезем в процедуры работы со строками. тебе нужны
Length() и Copy()

...
Эта. Как его ... букварь то купи - подешевше выйдет чем траффик интернетский.

← →
HF-Trade (2004-02-14 18:06) [8]

Я понимаю что от EOF, а как....

букварей у меня целая гора тут лежит, все тупы как пробки, их вообще по моему одно ито же лицо писало.

ЗЫ Я эта, как его..так понимаю еще один вопрос и меня тут кованными чешками замесят...да?

← →
Андрей Сенченко (2004-02-14 18:11) [9]

While not EOF (файловая переменная) do
Readln (файловая переменная,темповая строка);

Дальше если в последней строке больше символов, чем нужно удалить - работаешь с Copy() или Delete ()
Если в ней меньше символов - удаляешь всю строку + рекурсия

Как сохраниться в определенную строку. Найти похожие ветки