Hallo,
ich möchte in einer Textdatei jedes fünfte Zeichen pro Zeile durch ein anderes ersetzen.
So soll aus 5214=Carnibutius Mengeri ... 5214;Carnibutius Mengeri... werden, das Zeichen an 5. Stelle kann aber verschieden sein.
Mein bisheriger Code
Über konkrete Hilfe würde ich mich sehr freuen
Danke M:cha
ich möchte in einer Textdatei jedes fünfte Zeichen pro Zeile durch ein anderes ersetzen.
So soll aus 5214=Carnibutius Mengeri ... 5214;Carnibutius Mengeri... werden, das Zeichen an 5. Stelle kann aber verschieden sein.
Mein bisheriger Code
Visual Basic-Quellcode
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile = objFSO.OpenTextFile("Eingabe.txt", 1) ' nur zum Lesen Öffnen
- Neu = objFile.ReadAll
- objFile.Close
- Neu1 = Replace(Neu, vbTab, " ")
- Neu2 = Replace(Neu1, "<DIR>" , "")
- Neu3 = Replace(Neu3, "\", "")
- Neu4 = Replace(Neu4, Mid(Neu4,5,1), ";") ' ersetzt alle gleichen Zeichen wie die des 5. Zeichens
- ' es soll aber nur das 5. Zeichen ersetz werden
- Set objFile = objFSO.CreateTextFile("Ausgabe.txt")
- objFile.WriteLine Neu4
- objFile.Close
Über konkrete Hilfe würde ich mich sehr freuen
Danke M:cha
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sachsenbauch“ () aus folgendem Grund: Tippfehler korrigiert (Zeile 9)