Hi zusammen, komme hier nicht weiter. Ich lese eine Textdatei auf einmal ein. nämlich so:Sub przoeffnen()
'Öffnet alle Dateien und zeigt die aktuellen Werte (FinalThickness) In den Labels an
'##################################################################
'.R Datei öffnen und aktuellen Wert auslesen und In Label anzeigen
dateiname = eingabe & ".R"
Dim FNr As Long
Dim strText As String
FNr = FreeFile
Open "C:\xml\" & dateiname For Binary Access Read As #FNr
strText = Space$(LOF(FNr))
Get #FNr, , strText
Close #FNr
strText = Replace$(strText, "FinalThickness=0", "das soll hin")
'strText = Mid$(strText, InStr(1, strText, "Finalthickness", vbTextCompare) + Len("Finalthickness"))
MsgBox strText
FNr = FreeFile
Open "C:\xml\" & dateiname For Output As #FNr
Print #FNr, strText
Close #FNr
List2.AddItem "****************************************"
List2.AddItem Now
List2.AddItem dateiname & "wurde ausgelesen"
List2.AddItem "*****************************************"
'##################################################################
End Sub
Diese Datei hat ca. 100 Zeilen und in nur einer davon kommt der Wert
FinalThickness=0
vor. Wie kann ich aus dem gesamten eingelesenen jetzt nach dieser Zeile suchen und es z.B. in die Variable "Zeile" schreiben lassen.
Ansatz:Dim zeile As String
zeile=?????????
Grüße
asd