Datoros žurnālfails ir fails, kas reģistrē vai nu notikumus, kas notiek operētājsistēmā, vai citas programmatūras darbības laikā, vai ziņojumus starp dažādiem sakaru programmatūras lietotājiem. Mežizstrāde ir žurnāla uzturēšana. Vienkāršākajā gadījumā ziņojumi tiek rakstīti vienā žurnāla failā.
Apsveriet scenāriju, lietojumprogramma reģistrē lietotāja datus žurnāla failā, kas piekļūst lietojumprogrammai.
Žurnālu faili ir noderīgi dažādās situācijās, īpaši izstrādātājiem. Žurnāla faili ir vienkārša teksta faili, kuros informāciju var uzglabāt pagaidu vai pastāvīgāku. Lai izveidotu žurnāla failu, jums nav nepieciešams daudz koda. Šajā rakstā mēs koncentrēsimies uz automātisku žurnālfailu izveidi noteiktā mapē.
Jautājums: Kā es varu izveidot piezīmju grāmatiņas failu, kurā ir pašreizējais datums, laiks un lietotājvārds, kad fails tiek atvērts?
Tālāk ir redzams Excel darbgrāmatas momentuzņēmums, kurā ir iekļauta finanšu informācija.
Šajā piemērā rezultāts būs teksta faila formā. Piezīmju grāmatiņā būs datums, laiks un cita informācija; nedaudz šādi:
Lai izveidotu žurnāla failus, mums ir jāveic šādas darbības, lai palaistu VB redaktoru:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Noklikšķiniet uz Ievietot, pēc tam uz moduļa
- Tādējādi tiks izveidots jauns modulis
- Modulī ievadiet šādu kodu
Sub LogInformation (LogMessage As String) Const LogFileName As String = "D: \ FOLDERNAME \ TEXTFILE.LOG" Dim FileNum As Integer FileNum = FreeFile 'nākamā faila numurs Atvērt Drukāt #FileNum, LogMessage "rakstīt informāciju teksta faila beigās Aizvērt #FileNum" aizvērt failu End Sub
Public Sub DisplayLastLogInformation () Const LogFileName As String = "D: \ FOLDERNAME \ TEXTFILE.LOG" Dim FileNum As Integer, tLine As String FileNum = FreeFile 'nākamais faila numurs Atvērt LogFileName ievades piekļuvei Lasīt Kopīgots kā #f' atveriet failu lasot Do while Not EOF (FileNum) rindas ievade #FileNum, tLine 'nolasa rindu no teksta faila cilpas', līdz tiek lasīta pēdējā rinda Aizvērt #FileNum 'aizver failu MsgBox tLine, vbInformation, "Pēdējā žurnāla informācija:" End Sub
Apakš DeleteLogFile (FullFileName kā virkne) Ieslēgta kļūda Atsākt Nākamo "ignorēt iespējamās kļūdas Nogalināt FullFileName" izdzēsiet failu, ja tas pastāv un tas ir iespējams Kļūda GoTo 0 "pārtraukt kļūdas Beigt apakšdaļu
ThisWorkbook modulī nokopējiet šādu kodu
Privāta apakšdarbgrāmata_Atvērt () LogInformation ThisWorkbook.Name & "atvēra" & _ Application.UserName & "" & Format (Tagad, "gggg-mm-dd hh: mm") Beigu apakšdaļa
- Tagad VBA kods ir gatavs; nākamreiz, atverot Excel darbgrāmatu, datums un laiks tiks saglabāti piezīmju grāmatiņā; skatiet zemāk esošo attēlu:
Makro nepārrakstīs datus.
Secinājums: Makro darbosies katru reizi, kad darbgrāmata tiks atvērta norādītajā ceļā un mapē.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē