Szybkie szukanie
Słowo kluczowe:
sobota, 11 luty 2012
Start arrow Tips & Tricks arrow Zapisywanie danych do pliku *.log
Zapisywanie danych do pliku *.log Drukuj E-mail
Napisał Administrator   
sobota, 21 styczeń 2006
'thanks to Carl Franklin

'Jezeli chcesz miec mozliwosc logowania ustaw w menu VB
'Tools/Project/Advanced/CommandLine Arguments = /D


Public Sub WriteLogFile(szData As String)

'-- File handle for the log file (if used)
Static nLogFileNum As Integer

On Error Resume Next

If InStr(UCase$(Command$), "/D") Then
'-- Is the file not open yet?
If nLogFileNum = 0 Then
'-- Open it
nLogFileNum = FreeFile
Open App.Path & "\" & App.EXEName & ".LOG" For Binary Shared As nLogFileNum
Seek #nLogFileNum, LOF(nLogFileNum) + 1
End If

'-- Write the string
szData = Str$(Now) & Chr$(9) & szData & vbCrLf
Put #nLogFileNum, , szData

End If

End Sub

Komentarze
O ZAPISYWANIU DANYCH DO PLIKU *.LOG
Dodane przez samolot w dniu - 2006-01-26 23:19:32
Chcia?bym spyta? o tryb otwierania pliku For Binary Shared, bo chyba si? z tym nie spotka?em. Ja znam tryby: Output , Append, Input , Random, Binary . jadnak nie wiem jakie znaczenie ma Shared. 
 
Ja to sobie obs?ug? b??dów robi? w ten sposób, ?e w poszczególnych procedurach po wpisaniu na jej początku On Error Gosub 100 na ko?cu procedury w linii 100  
wywo?uj? inną procedur? która obs?uguje b?edy. W niej tworz? odpowiedni komunikat i zapisuj? do pliku log w katalogu App.Path.  
Potem instrukcą Shell za pomocą Notatnika otwieram ten plik , a wczeaniej w komunikacie Msg daje u?utkownikowi wybór , co ma ztym zrobi?: zapisa?, skasowa?, czy wydrukowa?. 
Mam problem z tym , ?eby procedura obs?ugi b??dów mog?a pobra? nazw? aktywnego okna i nazwe procedury , ktora b?ad spowodowa?a z jakejś zmiemmej Visual Basica , jak np. App.Souce, czy App.ExeName . Z nazwą okna zrobi?em tak ?e w jego zdarzeniu Activate przypisa?em do zmiennej globalnej jego nazw? , wi?c ka?de okno z chwilą jego aktywowania wstawia do niej swoją nazw?. A w ogóle to mo?e ktoś mi podpowie, skąd znale?? opis wszystkich w?aściwości obiektu App po polsku . Naliczy?em ich 27 , a znam dobbrze tylko kilka ?  
Close nLogFileNum
Dodane przez raff1410 w dniu - 2006-10-06 18:46:56
To powinno by? na ko?cu (chyba) 

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

Powered by AkoComment 2.0!

< Poprzedni   Następny >

Menu główne
Start
Teoria
VB.NET
Api
Tips & Tricks
Warsztat
VBMagazine
Pliki
Forum
Literatura
Ankiety
Linki
Szukaj
Wyślij program
Napisz do nas
Redakcja
Logowanie
Login

Hasło

Zapamiętaj mnie
Nie pamiętasz hasła?
Nie masz konta? Załóż je sobie
Gościmy
Aktualnie jest 56 gości online
Statystyka
Użytkownicy: 11345
Newsy: 237
Odnośniki: 48
Odwiedzających: 4327623
Mambo is Free Software released under the GNU/GPL License.