.txt Files durchsuchen

[Mister master]

Hi!

Ich stehe vor einem Problem. Ich habe eine Personen-Datenbank programmiert, wo jede Person ihre eigene .txt Datei im Ordner "C:\Pers\" hat. Ich will nun, dass wenn ein Timer-(Timer1 z.B.)Intervall abläuft, dass er:
alle .txt Datein im Ordner öffnet,

bei der ersten:
die dritte Zeile einer Variable (Testvariable z.B.) zuweist,
[mit der Variable eine Aktion durchführt, aber wie das geht weis ich ja]
die Datei schließt.

bei der zweiten das gleiche, dann bei der dritten... usw.
Es geht hierbei konkret um das Datum, und Geburtstag und so!


Ich hoffe auf eine baldige Antwort! Allerdings bin ich jetzt eine Woche weg, also wartet wärenddessen nicht auf eine Rückmeldung von mir!

 

[ronaldh]

Du kannst eine File-Box auf Deine Form packen, und die Dateien dann mit folgendem Code bearbeiten:

Option Explicit

Private Sub Form_Load()
   With File1
      .Path = "C:\Testen"
      .Pattern = "*.txt"
   End With
End Sub

Private Sub Timer1_Timer()
   Dim i As Integer
   Dim DateiName As String
   Dim FileNummer As Integer
   
   Timer1.Enabled = False
   
   i = 0
   Do While i <= File1.ListCount - 1
      File1.ListIndex = i
      DateiName = File1.FileName
      FileNummer = FreeFile
      Open File1.Path + "\" + DateiName For Input As #FileNummer
      'nun damit machen, was Du willst
      Close #FileNummer
      i = i + 1
   Loop
   
   Timer1.Enabled = True
   
End Sub

Die Enabled-Eigenschaft des Timers solltest Du beim Start (wie im Code beschrieben) auf false setzen, und hinterher wieder auf True, damit der Timer nicht erneut aufgerufen wird, während noch der letzte Vorgang läuft.

Viele Grüsse
ronaldh