Textdatei schreiben, bis bestimmte Größe

sp00n · 02.02.2006

Hi,

mal ne kleine Frage zu VisualBasic

Ich möchte bei meinem Programm, bei allen Ereignissen, eine Logdatei mitschreiben.

So..
..wie stelle ich es an, dass die Logdatei z.B. nur max. 30mb groß sein darf.
Sobald sie 30mb erreicht hat, soll nicht mehr neuer Text dazu geschrieben werden, sondern der alte Text mit dem neuen überschrieben werden.

Damit meine ich aber nicht, das ich abfrage, ob die Logdatei 30mb erreicht hat, und wenn ja, das sie komplett geleert wird.

Ich möchte, dass die ältesten Einträge (die ganz unten

) gelöscht werden und neue (oben

) hinzugefügt werden. Und das ganze eben im Rahmen von z.B. 30mb bleibt

Ich hoffe ich hab mich verständlich ausgedrückt

mfG
sß00n

ernievombert · 03.02.2006

ich glaube nicht dass das so sinnvoll umsetzbar ist. 30mb ist eine monstertextdatei. wenn du unbedingt so viel logdaten brauchst, solltest du dir eine logdatenbank aufbauen. dann hast du auch komfortabel und vor allem SCHNELL lese-/schreib-(lösch-)zugriff auf einzelne einträge.

sp00n · 03.02.2006

30mb war nur ein beispiel..

Die richtige Größe der textdatei überlege ich mir dann, wenn ich ne passende Funtion dafür habe

ernievombert · 03.02.2006

Die richtige Größe der textdatei überlege ich mir dann, wenn ich ne passende Funtion dafür habe

wie schon angedeutet: falsche reihenfolge!
du entscheidest ja auch zuerst ob du zum nächsten supermarkt oder nach brasilien gehst, und wählst dann erst das passende verkehrsmittel dafür aus. ;-)

sp00n · 03.02.2006

hää? Muss ich das peilen

Das wichtige hier ist doch die Function.. die Dateigröße ist doch noch ganz egal..
soll ja variabel sein..

Die Function könnte zum Beispiel so aussehen: SchreibeLog(.\log.txt, 30000)

^^Natürlich hier sehr stark vereinfacht dargestellt

^^Die 30000 wären dann die 30000kb

Alexander16 · 03.02.2006

Bitteschön

Code:

Private Sub WriteLogEntry(sLogFilePath As String, nMaxFileSize As Long, sEntry As String)
 Dim iFN_1 As Integer
 Dim iFN_2 As Integer
 Dim sLine As String
 Dim sTempLogFilePath As String
 
 sTempLogFilePath = sLogFilePath &amp; .tmp
 
 If Dir$(sLogFilePath) &lt;>  Then
  iFN_1 = FreeFile: Open sLogFilePath For Input As #iFN_1
  iFN_2 = FreeFile: Open sTempLogFilePath For Output As #iFN_2
  Print #iFN_2, sEntry
  Do Until EOF(iFN_1)
   Line Input #iFN_1, sLine
   If (LOF(iFN_2) + Len(sEntry &amp; vbCrLf)) > nMaxFileSize Then
    Exit Do
   End If
   Print #iFN_2, sLine
  Loop
  Close #iFN_1, #iFN_2
  Kill sLogFilePath
  Name sTempLogFilePath As sLogFilePath
 Else
  iFN_1 = FreeFile: Open sLogFilePath For Output As #iFN_1
  Print #iFN_1, sEntry
  Close #iFN_1
 End If
End Sub

Private Sub Command1_Click()
-> Hier wird die Begrenzung auf 50 Bytes gesetzt
 WriteLogEntry C:\Log.txt, 50, EintragText
End Sub

Mfg Alexander

sp00n · 06.02.2006

Vielen Dank

Textdatei schreiben, bis bestimmte Größe

sp00n

ernievombert

sp00n

ernievombert

sp00n

Alexander16

sp00n

Textdatei schreiben, bis bestimmte Größe

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums