Suchen / Ersetzen in der txt-Datei?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SubstituteSave() Dim arr() As String Dim iCounter As Integer Dim sPath As String, sTxtA As String Dim sTxtB As String, sTxt As String sPath = "C:\Daten\Lizenz.txt" sTxtA = "LIC = S:\Home\Lizenzen\" sTxtB = "#Lizenz wird erstellt" Close Open sPath For Input As #1 Do Until EOF(1) Line Input #1, sTxt If InStr(sTxt, sTxtA) Then sTxt = replace(sTxt, sTxtA, sTxtB) End If iCounter = iCounter + 1 ReDim Preserve arr(1 To iCounter) arr(iCounter) = sTxt Loop Close On Error GoTo ERRORHANDLER Exit Sub ERRORHANDLER: MsgBox "Job erledigt!" End Sub

Sub SubstituteSave() Dim arr() As String Dim iCounter As Integer Dim sPath As String, sTxtA As String Dim sTxtB As String, sTxt As String sPath = "C:\Daten\Lizenz.txt" sTxtA = "LIC = S:\Home\Lizenzen\" sTxtB = "#Lizenz wird erstellt" Close Open sPath For Input As #1 Do Until EOF(1) Line Input #1, sTxt If InStr(sTxt, sTxtA) Then sTxt = Replace(sTxt, sTxtA, sTxtB) End If iCounter = iCounter + 1 ReDim Preserve arr(1 To iCounter) arr(iCounter) = sTxt Loop Close Open sPath For Output As #1 For iCounter = 1 To UBound(arr) Print #1, arr(iCounter) Next iCounter Close On Error GoTo ERRORHANDLER Exit Sub ERRORHANDLER: MsgBox "Job erledigt!" End Sub

Hallo Selma,
nein - Du hast zu wenig Code.
Der Code öffnet die Textdatei und ersetzt den Suchbegriff mit dem Ersetzbegriff.
Dein derzeitiger Code speichert jedoch nicht die geänderte Textdatei, dazu fehlen die Anweisungen.
Versuchs mal hiermit:

Sub SubstituteSave()
Dim arr() As String
Dim iCounter As Integer
Dim sPath As String, sTxtA As String
Dim sTxtB As String, sTxt As String
sPath = "C:\Daten\Lizenz.txt"
sTarget = "C:\Daten\Lizenz_neu.txt"
sTxtA = "LIC = S:\Home\Lizenzen\"
sTxtB = "#Lizenz wird erstellt"
Close
Open sPath For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
If InStr(sTxt, sTxtA) Then
sTxt = Replace(sTxt, sTxtA, sTxtB)
End If
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = sTxt
Loop
Close
Open sTarget For Output As #1
For iCounter = 1 To UBound(arr)
Print #1, arr(iCounter)
Next iCounter
Close
Exit Sub
ERRORHANDLER:
MsgBox "Job erledigt!"
End Sub

So entsteht eine neue Textdatei (sTarget) mit den entsprechend durchgeführten Änderungen.
Die Originaldatei bleibt zwecks Nachvollziehbarkeit erhalten!
Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

Suchen / Ersetzen in der txt-Datei?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen / Ersetzen in der txt-Datei?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread