<code><font color=green>' SOLLTE MAN SETZEN!!!</font>
Option Explicit
 
<font color=green>' WICHTIG!
' Type-Struktur mit fester Länge!!!</font>
Private Type mytype
  kürzel As String * 5
  zeit As String * 8
  text As String * 100
End Type
 
Private Sub c_click()
  Dim kanalnr As Integer
  Dim i As Integer
  Dim zaehler As Integer
  Dim Protokoll As mytype
 
  <font color=green>' Anzahl Datensätze + 1</font>
  zaehler = Grid.Rows + 1
 
  <font color=green>' Eingaben in RANDOM-Datei speichern</font>
  kanalnr = FreeFile
  Open App.Path & ".dat" For Random As #kanalnr Len = Len(Protokoll)
 
  With Protokoll
    .text = eingabe.text
    .zeit = Time$
    .kürzel = "#abe#"
  End With
 
  Put #kanalnr, zaehler, Protokoll
  Close #kanalnr
 
  <font color=green>' Eintrag im Grid anzeigen</font>
  With Grid
   .Rows = zaehler
   .Row = zaehler - 1
   .Col = 0
   .CellAlignment = 1
   .text = (Protokoll.zeit & " " & Protokoll.kürzel & " " & Protokoll.text)
  End With
End Sub
 
Private Sub Command1_Click()
  Dim kanalnr As Integer
  Dim zaehler As Integer
  Dim i As Integer
  Dim Protokoll As mytype
 
  <font color=green>' RANDOM - DATEI ÖFFNEN</font>
  kanalnr = FreeFile
  Open App.Path & ".dat" For Random As #kanalnr Len = Len(Protokoll)
 
  <font color=green>' Anzahl gespeicherter Datensätze ermitteln</font>
  zaehler = Int(LOF(kanalnr) / Len(Protokoll))
 
  With Grid
    .Rows = zaehler
    For i = 1 To zaehler
      Get #kanalnr, i, Protokoll
 
      .Row = i - 1
      .Col = 0
      .CellAlignment = 1
      .text = (Protokoll.zeit & " " & Protokoll.kürzel & " " & Protokoll.text)
    Next i
  End With
  Close #kanalnr
End Sub
 
Private Sub Form_Load()
  Dim zaehler As Integer
  Dim kanalnr As Integer
  Dim Protokoll As mytype
 
  <font color=green>' Grid initialisieren</font>
  With Grid
    .Row = 0
    .Col = 0
    .ColWidth(0) = 5000
  End With
 
  <font color=green>' Falls Datendatei leer</font>
  kanalnr = FreeFile
  Open App.Path & ".dat" For Random As #kanalnr Len = Len(Protokoll)
 
  <font color=green>' Anzahl gespeicherter Datensätze ermitteln</font>
  zaehler = Int(LOF(kanalnr) / Len(Protokoll))
 
  If zaehler < 1 Then
    <font color=green>' 1. Datensatz speichern</font>
    With Protokoll
      .text = "Einsatz eröffnet um " & Time$ & " an ELP 1"
      .zeit = Time$
      .kürzel = "#abe#"
    End With
 
    Put #kanalnr, 1, Protokoll
  End If
  Close #kanalnr
End Sub</code>