:master: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
Spero tu stia scherzando, è una battuta vero?![]()