Работа с текстовым файлом

[Серега]

Макрос открывает текстовый файл при помощи инструкции Open.
После копирования необходимых данных в файл типа (Excel)
необходимо удалить все данные из файла или сохранить файл как пустой. Помогите

[kif]

Если просто пустой не в формате Excel, то:

Код: Выделить всё

dim f as integer

kill myfile.xls
f=freefile
open myfile.xls for bynary(например) as f
close f

[Sirik]

можна по проще:

Код: Выделить всё

open "myfile.xls" for output as 1
close

[Серега]

Я наверное не точно сформулировал.
Задача
Есть две программы(одна на Excel). Обмениваются файлами через текстовый файл.
Программа на Excel периодически открывает тестовый файл с данными (вторая программа в этот момент может писать в файл) Excel берет данные и закрывает так чтоб файл очистился(это чтоб его размер не увеличивался)
Вопрос: Каким способом надо открыть и закрыть тестовый файл чтобы он очистился?

[alibek]

Да никаким. Закрываешь его после использования и удаляешь. Если удалять нежелательно, то открываешь как Output и сразу закрываешь.

[Серега]

При таком алгоритме возможна утрата данных которые пишущая программа запишет в файл в промежутке между закрытием после чтения и открытием для очищения.
Хочу попробовать функцию REPLACE.
Только я чего-то не пойму как она работает с текстовым файлом.
Может кто подскажет.