Sub przlinksoeffnen()
'.L Datei öffnen und aktuellen Wert auslesen und In Label anzeigen
On Error GoTo fehler
dateiname = eingabe & ".L"
Dim FNr As Long
Dim strText As String
Dim Zeile As String
 
FNr = FreeFile
Open "C:\xml\" & dateiname For Binary Access Read As #FNr
    strText = Space$(LOF(FNr))
    Get #FNr, , strText
Close #FNr
 
Dim Lst$(), i&
 
Lst = Split(strText, vbCrLf)
For i = 0 To UBound(Lst)
  If InStr(1, Lst(i), "FinalThickness", vbTextCompare) > 0 Then
    Zeile = Lst(i)
    Exit For
  End If
Next i
Label7.Caption = "Aktueller Wert In" & dateiname
Label10.Caption = Zeile
 
'strText = Replace$(strText, "FinalThickness=0", "das soll hin")
'strText = Mid$(strText, InStr(1, strText, "Finalthickness", vbTextCompare) + Len("Finalthickness"))
 
'Datei schließen und speichern
FNr = FreeFile
Open "C:\xml\" & dateiname For Output As #FNr
Print #FNr, strText
Close #FNr
List1.AddItem "****************************************"
List1.AddItem Now
List1.AddItem dateiname & "wurde ausgelesen"
List1.AddItem "*****************************************"
 
'Fehlerbehandlung
fehler:
Select Case Err.Number
    Case 53
    MsgBox "Datei nicht gefunden"
    Image12.Visible = True
    Image11.Visible = False
End Select
    'MsgBox "Fehlernummer: " & Err & Chr(13) & Chr(10)
End Sub