Как програмно создать log файл ?

[Андрей Васюта]

Как програмно создать log файл ?
Для примера: В нем будет розмещаться информация о времени запуска программы.

[SHURUP]

А в чем собстенно сложность:

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

Private Sub Form_Load()
Open "C:\windows\logfile.log" For Append As #1
    Print #1, "Програма запущена " & Now
Close
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "C:\windows\logfile.log" For Append As #1
    Print #1, "Програма закрыта " & Now
Close
End Sub

[tyomitch]

Ага, и если Злой Юзер поставит на C:\windows\logfile.log рид-онли, то программа уже никогда не запустится

[SHURUP]

Ага, и если Злой Юзер поставит на C:\windows\logfile.log рид-онли, то программа уже никогда не запустится

НУ Злой Юзер может и папку "windows" удалить (это недавно где-то тут обсуждалось). А про обработку ошибок - это само собой!
Можно также и атрибуты програмно менять, и файл считывать - убивать - заново записывать.
Я же самый банальный пример привел!

[|kerish|]

Вот ща написал пару функций для работы с лог файлами.

Public sub WriteToLog (LogFile as String, Text as String)
On error resume next
if dir(LogFile) = "" Then Msgbox "LogFile ''" & logfile & "'' is not found" , vbinformation , "No logfile":exit sub
close #1 'Вдруг до этого, кто-то, чего-то открывал...
open logfile for append as #1
print #1, Text
print #1, ""
close #1
End sub

Public Sub ClearLog (LogFile as string)
on error resume next
close #1
open logfile for output as #1
close #1
End Sub

Public Function GetLogText (LogFile As String) As String
Dim Tmp as string
on error resume next
if dir(LogFile) = "" Then Msgbox "LogFile ''" & logfile & "'' is not found" , vbinformation , "No logfile":exit function
open logfile for input as #1
while eof(1) = false
line input #1,tmp
getlogtext = getlogtext & tmp & vbcrlf
wend
close #1
End Function

[Ruslan Demidow]

Я использую такую процедуру.
Лежит она у меня в общем модуле.

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

Public Sub SaveLog(ByVal sMsg As String)
    Dim fnum As Integer
    Dim LogFile As String
    On Error Resume Next
    LogFile = gAppPath & "\" & "FBRlog.log"
    fnum = FreeFile
    Open LogFile For Append As fnum
        Print #fnum, Now & vbTab & "- " & sMsg
    Close fnum
End Sub


Вызываю из любой процедуры так
SaveLog("Запустились.")
или
SaveLog("Закрываемся.")

Разумеется gAppPath и "FBRlog.log" подставляем свои.

[Eduard]

А кто знает (может это даже не для это топика) может обяснить, для чего в VB в объекте App есть какой-то лог (свойства, процедуры) для чего этот лог вообще нужен?? Всегда интерестно было!

[tyomitch]

Чтобы писать в Event Log WinNT.
Открой Программы -> Настройка -> Панель управления -> Администрирование -> Просмотр событий, и ты поймёшь, что это.

[Eduard]

Дык, что получается эта щтука только под NT нужна, в 9x/Me от них толку не какого?

[tyomitch]

Получается так... В Win9x она точно так же пишет в обычный файл, как и все представленные здесь функции.

[Saturn.65]

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

Private Sub Form_Load()
Open "C:\windows\logfile.log" For Append As #1
    Print #1, "Програма запущена " & Now
Close
End Sub


Скажите, а как сделать, чтоб писать не одну строку, а сколько нужно? К примеру выводить данные из разных textbox? Вывести то я их вывел, но все время пишу этот же код для каждой строки, только меняю цифры в Print # и в Append As #. Наверное это глупо, но работает.
Наверное можно сделать как-то проще, чтоб было как-то так:

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

Open "C:\windows\logfile.log" .....(здесь надо как-то написать, чтоб было много строчек)
Print #1, (Text1.Text)
Print #2, (Text2.Text)
Print #3, (Text3.Text)
Close


[Хакер]

Это не может работать, цифра обозначает номер файла.

Вывести — как обычно, одним вызовом Print. В чём проблема-то?

[RayShade]

Проблема в кривом подходе.
Надо делать так:

1. Делаем класс LogItem - со свойствами datetime, id, type, message.
2. Делаем класс Logger - хранит коллекцию of LogItem и предоставляет методы add, remove, save и clear.
3. Profit!

[Денис]

Сатурн:

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

Open "C:\windows\logfile.log" For Append As #1
Print #1, Text1.Text & " " & Text2.Text & " " & Text3.Text
Close


и все.

[Saturn.65]

Сатурн:

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

Open "C:\windows\logfile.log" For Append As #1
Print #1, Text1.Text & " " & Text2.Text & " " & Text3.Text
Close


и все.

Это то понятно. Но мне нужно именно по строчкам, чтоб было наглядно видно. Одна строчка одно, вторая другое..
Т.е.

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

Print #4, (Text1.Text); "......."; (Text12.Text)
Print #5, (Text2.Text); "......"; (Text22.Text)


Выглядит в логфайле так:

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

Количество....0 шт.
Сумма...........0.00 руб.


Просто в отчете сразу наглядно видно.
Спасибо всем за информацию.

[Saturn.65]

Вывести — как обычно, одним вызовом Print. В чём проблема-то?

Я Денису написал, просто мне нужно кучу строчек выводить друг под другом вот и думал, что может "C:\windows\logfile.log" For Append As #1 как-нибудь один раз писать можно. Теперь понял, что нельзя. Ничего страшного, просто код больше будет.

[RayShade]

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

    Open "C:\windows\logfile.log" For Append As #1
    Print #1, Text1.Text & vbcrlf & Text2.Text & vbcrlf & Text3.Text
    Close


[Saturn.65]

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

   
    Print #1, Text1.Text & vbcrlf & Text2.Text & vbcrlf & Text3.Text


Вот спасибо! То, что нужно!
Немного переделал под свое.

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

Print #1, (Text1.Text); "....."; (Text2.Text) & vbCrLf & (Text3.Text); "....."; (Text4.Text)


Получилось:
Количество....0 шт.
Цена..........0.00 руб.