Zeile ersetzen in externer Datei
Timothy
mir hat hier schon der Sepp mit folgendem Code geholfen:
Dim strFile As String, strT As String
Dim strTemp As String, strFind As String, strReplace As String
Dim ff As Integer
strFile = "C:\testumgebung\Testdatei.mpr" 'Pfadname
strFind = "?=" 'gesuchter Teilstring
strReplace = "?=""3219""" 'Ersatzstring
ff = FreeFile
Open strFile For Input As #ff 'öffnen der Datei
Do While Not EOF(ff) 'gibt solange FALSE zurück, bis Ende der Datei _
_
erreicht ist (dann TRUE)
Line Input #ff, strT 'ließt Daten aus Datei und weist sie Variablen _
_
zu
If strT Like "*" & strFind & "*" Then 'wenn Wert mit * * in einer Zeile gefunden _
wurde
strTemp = strTemp & strReplace & vbCrLf 'ersetze den Wert
Else
strTemp = strTemp & strT & vbCrLf 'füge neuen Wert dazu und Zeilenumbruch
End If
Loop
Close #ff
ff = FreeFile
Open strFile For Output As #ff
Print #ff, strTemp
Close #ff
Jetzt habe ich dem Abschnitt folgendes Problem:
strFind = "?=" 'gesuchter Teilstring
strReplace = "?=""3219""" 'Ersatzstring
Er sucht jetzt alle Zeilen, welche mit XX="(hier steht noch ein variabler Wert)" beginnen heraus, und ersetzt diese mit ?="3219"!!!
Aber er soll nur die Zeile im Dokument ersetzen, welche genau den Wert ?="Hier steht noch ein variabler Wert) beinhaltet!
Also wenn da z.B. steht BR="1000", dann ersetzt er auch diese Zeile in der Datei. SOll er aber nicht....!
Er soll nur z.B. ?="13" mit ?="3219" ersetzen!
Wie kann man das denn lösen?
Vielen Dank für Eure Hilfe!!!
Grüße
Timothy
Anzeige