søg og erstat del af text i en txt fil

Public Sub Ret_I_Fil()
    Dim intFF As Integer, Ret As String, RetTil As String, strContent As String
    intFF = FreeFile
    Open "c:\fil.txt" For Input As #intFF
    strContent = Input(LOF(1), #intFF)
    Close #intFF
    Ret = InputBox("Hvad skal rettes")
    RetTil = InputBox("Hvad skal '" & Ret & "' rettes til")
    strContent = Replace(strContent, Ret, RetTil)
    Open "c:\fil.txt" For Output As #intFF
    Print #intFF, strContent
    Close #intFF
End Sub

ret c:\fil.txt til din fil, kør så makroen

kabbak: ligger du et svar. tak for hjælpen

virkede det ;-))

Har desværre ikke noget at teste din løsning endnu med den har givet mig nogle ideer som jeg skal have testet af. Endnu en gang tak. MBL

Ok prøv at gemme i en anden fil først, koden skriver i den samme som den læser.

Jeg har lige prøvet din løsning og den virker meget fint. Det er et større projekt jeg har sat igang og den er kun en lille del, men en vigtig del idet den skal spare mig for meget skrive arbejde.