Option Explicit
 
Dim sLines() As String
 
Private Sub Form_Load()
  ' CFG-Datei komplett einlesen
  Dim sBuffer As String
  Dim F As Integer
  F = FreeFile
  Open "Datei.cfg" For Binary As #F
  sBuffer = Space$(Lof(F))
  Get #F, , sBuffer
  Close #F
 
  sLines = Split(sBuffer, vbCrLf)
 
  ' Zeile 43, 45, 57 und 48 anzeigen
  ShowLine Text1, 43
  ShowLine Text2, 45
  ShowLine Text3, 47
  ShowLine Text4, 48
End Sub
 
Private Sub ShowLine(oTextBox As Object, ByVal nLine As Long)
  Dim sText As String
  sText = sLines(nLine + 1)
  If InStr(sText, Chr$(34)) > 0 Then
    sText = Replace(Mid$(sText, InStr(sText, Chr$(34))), Chr$(34), "")
  End If
  oTextBox.Tag = sText
  oTextBox.Text = sText
End Sub
 
Private Sub Command1_Click()
  ' Inhalt zurückspeichern
  SetLine Text1, 43
  SetLine Text2, 45
  SetLine Text3, 47
  SetLine Text4, 48
 
  Dim F As Integer
 
  F = FreeFile
  Open "Datei.cfg" For Output As #F
  Print #F, Join(sLines, vbCrLf);
  Close #F
End Sub
 
Private Sub SetLine(oTextBox As Object, ByVal nLine As Long)
  With oTextBox
    sLines(nLine - 1) = Replace(sLines(nLine - 1), .Tag, .Text)
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de