VPF::Не происходит запись в файл - Форум программистов

progbeg

Дата 6.12.2006, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет

Проблема такая...
Есть два текстовых файла - один с определённой информацией (конкретно, собираемой с html'шки, но это не суть). Из него, обработав строки определённым образом, нужно переписать результат во второй файл. Второй файл создаётся каждый раз (отслеживаю по дате создания), но в него ничего не записывается. Всего две процедуры writeln, но ни одна не выполняется. Собственно, вопрос - как добиться записи в файл? Может, как-то можно придумать условие повторять до тех пор, пока не выполнится?

Matematik

Дата 6.12.2006, 22:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Без кода ничего сказать нельзя.
Обычно пишется так

Код


AssignFile(TextFile, 'text.txt');
ReWrite(TextFile);
WriteLn(TextFile, 'строка 1');
WriteLn(TextFile, 'строка 2');
CloseFile(TextFile);

Или так

Код


sl := TStringList;
sl.Add('строка 1');
sl.Add('строка 2');
sl.SaveToFile('text.txt');
sl.Free;

Albinos_x

Дата 7.12.2006, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Ошибка в 17 строке...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 7.12.2006, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Запись в файл:

Код


Rewrite(f);
Writeln(f, 'Строка');

Чтение из файла:

Код


Reset(f);
Writeln(f, s);

Дозапись в файл:

Код


Append(f);
Writeln(f, '1');

соответственно, перед каждым действием в моих примерах необходимо привязать файловой переменной сам файл:

Код


AssignFile(f, 'C:\MyFile.txt');

и в конце закрыть:

Код


CloseFile(f);

теперь посмотри на свой код, и разберись, что ты сделал не так.

--------------------

Ll 2

progbeg

Дата 9.3.2007, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет

М-да, собственно, всё возвращается на круги своя smile

. Программа, по которой был задан вопрос, была заброшена, но вот теперь пришлось к ней снова вернуться. И наблюдалось всё то же самое... Вот код:

Код


var
  opt:TextFile;
...
AssignFile(opt, 'options.dat');
Rewrite(opt);
Writeln(opt, 'Input=' + LabeledEdit1.Text);
Writeln(opt, 'Output=' + LabeledEdit2.Text);
CloseFile(opt);

Ничего в файл не записывалось. А вот если прописать полный путь к файлу, то всё стало нормально! Вот почему так?

gambit

Дата 9.3.2007, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Твой код прекрасно работает.

Цитата

А вот если прописать полный путь к файлу

Может ты просто не сохранил проект, файл должен появится рядом с exe.

Sunvas

Дата 10.3.2007, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(progbeg @ 9.3.2007, 22:24

)

А вот если прописать полный путь к файлу, то всё стало нормально!

Если нет полного пути к файлу, то поиск этого файла происходит в папке с программой. Т.е. твой options.dat должен лежать тут ExtractFilePath(paramstr(0)).

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

progbeg

Дата 10.3.2007, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет

В том-то и дело, что файл создавался мной и был положен рядом с exe-шником.

Цитата(gambit @ 9.3.2007, 22:31

)

Твой код прекрасно работает.

должен, ведь проще некуда. Но было опробовано на двух разных машинах и компилировалось из двух разных делфей...
Словом, чудеса... smile

Sunvas

Дата 10.3.2007, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

progbeg, тогда дело в другом коде, сопряженным с твоим.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

remax

Дата 11.3.2007, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: 1
Всего: 5

Скорее всего, во время работы программы происходил вызов диалога чтения/записи файла и соответственно менялся текущий каталог. В результате файл выводился, но в другом месте (не в том, откуда запускалась прога). Это легко проверить - поискав на своем компе файл с именем 'options.dat'.

--------------------

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »