laatste karakter van een regel (txt-bestand) verwijderen

[straj]

Wie kan mij helpen met een vba-procedure om van een tekstbestand de laatste karakter uit elke regel te verwijderen?

een bestaande teksbestand in lezen.
regel voor regel indien de regel voldoet aan een voorwaarde (moet beginnen met 4061) de laatste karakter verwijderen
gemuteerde regel wegschrijven in eventueel een nieuw tekstbestand of anders het oorspronkelijke overschrijven.

alvast bedankt voor jullie moeite en meedenken.

 

[Wigi]

Ik heb de tijd niet om die hele code neer te schrijven, maar ik ben er 100% zeker van dat je mits wat zoeken op internet snel heel analoge code vindt.

Wigi

 

[tiesja]

Laatste karakter conditioneel verwijderen...

zoiets:
<code>
Sub modify()
Dim inp As Integer, outp As Integer
Dim regel As String

inp = FreeFile()
Open "filenaam" For Input As #inp

outp = FreeFile()
Open "andere Filenaam" For Output As #outp

Line Input #inp, regel

While Not EOF(inp)
If Left(regel, 4) = "4061" Then
regel = Left(regel, Len(regel) - 1)
End If
Print #outp, regel
Line Input #inp, regel
Wend
Close #inp
Close #outp
End Sub
</code>