Запись лога в файл. Закипаю.

[Dimon111]

Нужно в одной процедуре открыть файл Open "data.txt" For Append As #1

А в другой - записать в него Print #1, Val(str). Ну так, для примера.

Беда в том, что в другой процедуре этого открытого файла не видно!

Т.е. система выдаёт просто ERROR на строку Print #1, "5"

[ger_kar]

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

[Qwertiy]

с локальной константой

Хм...

[ger_kar]

Ну да #1константа? Конечно! И зона видимости оной ограничивается процедурой. Как ее еще назвать то?

[Dimon111]

Нашёл выход.

В Form_Load() открываю файл: Open "data.txt" For Output As #1

В другой процедуре (Timer1_Timer()) тогда всё великолепно пишется: Print #1, Time

Если условие поменялось, закрываю файл в третьей процедуре и открываю там же вновь:

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

    Close #1
    Open "data.txt" For Output As #1

Таким образом файл очищается.
Работает.

[Qwertiy]

Ну да #1константа? Конечно! И зона видимости оной ограничивается процедурой. Как ее еще назвать то?

Как у числовой константы может быть область видимости? Это же число и оно во всех местах одинаковое. Я что-то не понимаю?

[ger_kar]

Ну число то одинаковое, но оно привязано к конкретной функции или процедуре. Не факт, что номер файла открытый в одной процедуре будет валидным в другой. Да и вообще открывать файл с константой довольно корявое решение само по себе.

В Form_Load() открываю файл: Open "data.txt" For Output As #1

Если при таком раскладе открыть второй экземпляр формы уже будет облом.
Поэтому лучше всегда использовать переменную и функцию FreeFile. Для данного случая переменная должна быть глобальной.

[Qwertiy]

Поэтому лучше всегда использовать переменную и функцию FreeFile.

Лучше, но не поэтому. Эта функция просто берет свободный номер.
Номер - это номер в рамках всей программы.

[ger_kar]

Лучше, но не поэтому. Эта функция просто берет свободный номер.

Правильно, но свободные номера могут быть разными, поэтому и следует использовать функцию FreeFile и присваивать, то что она возвращает переменным.

[Dimon111]

Появился следующий вопрос. Вывожу в файл:

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

Print #1, "R" & ReaderNum & " = " & Format(Reader / 100, "#000.00") & vbTab

Получаю результат:

R11 = 009,87
R12 = 001,27
R14 = 002,69
R15 = 000,06

Хотя должно быть по идее в одну строку (vbTab) вконце. Т.е. команда Print #1 обязательно вставляет либо 0xD, либо 0xA, либо всё сразу. Можно ли как - то этого избежать?

[Dimon111]

Понял. И всего - то нужно ";"

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

Print #1, "R" & ReaderNum & " = " & Format(Reader / 100, "#000.00") & vbTab;

А после цикла уже переводим строку:

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

Print #1, vbLf;

Вот что получилось:

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

R11 = 014,28   R12 = 001,90   R14 = 001,92   
R11 = 014,70   R12 = 001,66   R14 = 002,36   
R11 = 015,04   R12 = 001,53   R14 = 002,33   
R11 = 014,43   R12 = 001,23   R14 = 002,17   


[Qwertiy]

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

Print #1, "R" & ReaderNum & " = " & Format(Reader / 100, "#000.00") & vbTab;
Print #1, vbLf;

[Хакер]

Не факт, что номер файла открытый в одной процедуре будет валидным в другой.

Вообще то факт.

[ger_kar]

Вообще то факт.

Почему тогда

Нужно в одной процедуре открыть файл Open "data.txt" For Append As #1А в другой - записать в него Print #1, Val(str). Ну так, для примера.Беда в том, что в другой процедуре этого открытого файла не видно!

???
Я предположил, что именно из-за того, что я собственно и изложил. Сам я так никогда не пишу, и всегда использую переменную нужной области видимости и FreeFile.

[Qwertiy]

Сам я так никогда не пишу, и всегда использую переменную нужной области видимости и FreeFile.

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

Почему тогда

Вот мне тоже интересно... Вероятно, код кривой.

[ger_kar]

Ты действительно думаешь

Была обозначена проблема, я предположил почему. У меня таких ситуаций не было, ибо я всегда действую по другому. А как там оно есть в действительности, пес его знает