Variable erstellen, die immer den aktuellen Inhalt einer Datei enthält

    • VBA: Sonstige

      Variable erstellen, die immer den aktuellen Inhalt einer Datei enthält

      Ich arbeite privat mit kleinen selbstgestrickten "Datenbanken". Ich speichere meine Daten in Textdateien. In einem meiner VB-Projekte rufe ich immer wieder Daten aus verschiedenen Dateien ab und ändere Daten. Das klappt auch recht gut, nur war das etwas umständlich. Nun habe ich eine Möglichkeit gefunden, wie man eine Variable erzeugen kann (genauer gesagt eine Property), die immer den aktuellen (Text-)Inhalt einer Datei enthält, jedoch nur dann die Datei neu lädt, wenn sie geändert wurde.

      Hierzu benutze ich zunächst folgendes Grundgerüst:

      Visual Basic-Quellcode

      1. Type Dateiinfo
      2. Pfad As String
      3. Inhalt As String
      4. Datum As Date
      5. End Type
      7. Property Get Dateitext(DatVar As Dateiinfo) As String
      8. Dim FSO As Object, Datei As Object
      9. Set FSO = CreateObject("Scripting.FileSystemObject")
      10. If FSO.FileExists(DatVar.Pfad) Then
      11. If FileDateTime(DatVar.Pfad) <> DatVar.Datum Then
      12. DatVar.Datum = FileDateTime(DatVar.Pfad)
      13. Set Datei = FSO.OpenTextFile(DatVar.Pfad, 1, False)
      14. DatVar.Inhalt = ""
      15. While Not Datei.AtEndOfStream
      16. DatVar.Inhalt = DatVar.Inhalt & Datei.Read(1024)
      17. Wend
      18. Datei.Close
      19. End If
      20. Else
      21. DatVar.Inhalt = ""
      22. DatVar.Datum = 0
      23. End If
      24. Dateitext = DatVar.Inhalt
      25. End Property
      27. Property Let Dateitext(DatVar As Dateiinfo, Text As String)
      28. Dim FSO As Object, Datei As Object
      29. If DatVar.Inhalt <> Text Then
      30. Set FSO = CreateObject("Scripting.FileSystemObject")
      31. If FSO.FileExists(DatVar.Pfad) Then Kill DatVar.Pfad
      32. If Text <> "" Then
      33. Set Datei = FSO.OpenTextFile(DatVar.Pfad, 8, True)
      34. Datei.Write Text
      35. DatVar.Inhalt = Text
      36. DatVar.Datum = FileDateTime(DatVar.Pfad)
      37. End If
      38. End If
      39. End Property


      Ich habe es bei mir so eingestellt, dass ein Nullstring ("") zurückgegeben wird, wenn die Datei nicht existiert (Zeile 21), und die Datei gelöscht wird, wenn man der Variablen einen Nullstring zuweist (Zeilen 31/32).


      Nun ein Beispiel, bei dem die Variable "DatVar1" die Datei "C:\Test1.txt" darstellen soll, und "DatVar2" die Datei "C:\Test2.txt".
      Hierzu brauche ich für beide Variablen je eine Hilfsvariable, die ich außerhalb der Prozeduren deklariere:

      Visual Basic-Quellcode

      1. Dim HilfsDatVar1 As Dateiinfo
      2. Dim HilfsDatVar2 As Dateiinfo


      Nun lege ich noch fest, welche Variable welcher Datei zugeordnet wird, und definiere, dass beim Abrufen der Variablen der Dateitext abgerufen wird und beim Zuweisen der Dateitext zugewiesen wird, sprich: der Text in die Datei geschrieben wird, die zuvor gelöscht wird:

      Visual Basic-Quellcode

      1. Property Get DatVar1() As String
      2. If HilfsDatVar1.Pfad = Empty Then HilfsDatVar1.Pfad = "C:\Test1.txt"
      3. DatVar1 = Dateitext(HilfsDatVar1)
      4. End Property
      6. Property Let DatVar1(Text As String)
      7. If HilfsDatVar1.Pfad = Empty Then HilfsDatVar1.Pfad = "C:\Test1.txt"
      8. Dateitext(HilfsDatVar1) = Text
      9. End Property
      11. Property Get DatVar2() As String
      12. If HilfsDatVar2.Pfad = Empty Then HilfsDatVar2.Pfad = "C:\Test2.txt"
      13. DatVar2 = Dateitext(HilfsDatVar2)
      14. End Property
      16. Property Let DatVar2(Text As String)
      17. If HilfsDatVar2.Pfad = Empty Then HilfsDatVar2.Pfad = "C:\Test2.txt"
      18. Dateitext(HilfsDatVar2) = Text
      19. End Property


      Dieses Beispiel soll die Funktionalität verdeutlichen:

      Visual Basic-Quellcode

      1. Sub Beispiel()
      2. MsgBox DatVar1
      3. 'Gibt bei mir "Test" aus, da die Datei bei mir bereits existiert und "Test" drinsteht.
      4. DatVar1 = "Test1" 'Schreibt "Test1" in die Datei "C:\Test1.txt".
      5. MsgBox DatVar1 'Gibt "Test1" aus.
      6. Kill "C:\Test1.txt"
      7. MsgBox DatVar1 'Gibt "" aus, da "C:\Test1.txt" nicht mehr existiert.
      9. DatVar1 = "Test1" 'Schreibt "Test1" in die Datei "C:\Test1.txt".
      10. DatVar2 = "Test2" 'Schreibt "Test2" in die Datei "C:\Test2.txt".
      11. MsgBox DatVar2 'Gibt "Test2" aus.
      12. DatVar2 = "" 'Löscht "C:\Test2.txt"
      13. MsgBox DatVar2 'Gibt "" aus, da "C:\Test2.txt" nicht mehr existiert.
      14. FileCopy "C:\Test1.txt", "C:\Test2.txt"
      15. MsgBox DatVar1 'Gibt "Test1" aus.
      16. MsgBox DatVar2 'Gibt "Test1" aus, da "C:\Test1.txt" kopiert wurde.
      17. End Sub


      EDIT: (01.10.2008)

      Ich habe das Grundgerüst leicht geändert, da ich mit "ReadAll" (war in Zeile 14) merkwürdige Ergebnisse beim Auslesen der Dateien hatte. Jetzt klappts bei mir.

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „roddy“ ()

    Facebook