Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2007, 12:36   #1
Var17
Пользователь
 
Регистрация: 13.12.2007
Сообщений: 41
По умолчанию Редактирование файла в цикле

Здраствуйте, есть проблема при создании программы.
Программа создает заданное количество каталогов в цикле, копирует туда файлы, необходимо в одном из текстовых файлов поправить одну строчку.
Открываем файл, считываем его содержимое, заменяем строчку, а затем нужно исправленные данные записать в файл.
Проблема в том, что не понятно где хранить эти данные для записи в файл в цикле.

Начало цикла
while k<k1 do begin
Reset (f);
while not EOF (f) do begin
Readln (f, buf);
//находим нужную строку
if pos('=', buf) <> 0 then
buf:=izm3;
// ? куда записать эти данные
end;
closefile(f);
rewrite (f);
//запись в файл
closefile (f);
end;
Var17 вне форума Ответить с цитированием
Старый 13.12.2007, 14:51   #2
Domovoy
Форумчанин
 
Регистрация: 24.10.2007
Сообщений: 254
По умолчанию

Подозрительное это "=" смахивает на ini файл.
Если я прав то решение гараздо проще!
В твоём случае я б сделал так:
Код:
var
  LText:TStringList;
  i:integer;
  S:string;
begin
  LText:=TStringList.Create;
  LText.LoadFromFile('C:\1.txt');
  S:=LText.Text;
  i:=pos('=',S);
  delete(S,i+1,i+2);
  insert('Z',S,i+1);
  LText.Text:=S;
  LText.SaveToFile('C:\2.txt');
  LText.Free;
end;
Это всего лишь пример как можно было сделать
Domovoy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi Редактирование текстового файла Starscream Общие вопросы Delphi 11 18.02.2008 17:15
Типизированные файлы.Создание, удаление, редактирование, сортировка записей типизированного файла.Паскаль Студент Шиза Помощь студентам 6 08.12.2007 13:41
редактирование бмп файла kyuzo Мультимедиа в Delphi 7 01.08.2007 14:32