Text in txt Datei ersetzen
25.08.2022 23:53:50
Lapos
ich habe hier im Forum einen Code von Rudi Maintaire gefunden. Im Moment erweitert der Code eine Textdatei um eine Zeile ganz oben.
Kann mir jemand sagen wie ich den Code so anpassen kann das er mir die 10. Zeile in meiner Textdatei überschreibt ?
Sub aaa()
Dim vntIn, strTmp As String
vntIn = "Beispielzeile"
Open "c:\test\beispiel.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strTmp
vntIn = vntIn & vbCrLf & strTmp
Loop
Close #1
Open "c:\test\beispiel.txt" For Output As #1
Print #1, vntIn
Close #1
End Sub
