Originariamente inviato da AleX ZeTa
Se hai VB6 puoi fare così:

codice:
Sub Sostituisci()
 dim str as String
 dim c as String
 str = vbNullString
 Open ("C:\...") for Input as #1
 Do until EOF(1)
  Line Input #1, c
  str = str & c
 Loop
 close
 str = Replace(str, "parola1", "parola")
 Open ("C:\...") for Output as #2
 Print #2, str
 close
End Sub
:master:
Spero tu stia scherzando, è una battuta vero?