[VB 6] Leggere, modificare e scrivere un file

[Nuvolari2]

Ciao a tutti!

Ho fatto una ricerca sul forum e ho trovato qualche indicazione, che però non riesco a mettere in pratica, quindi ecco questo 3d specifico per il mio problema:

Il mio obbiettivo è di leggere un file, salvando il contenuto in una variabile in memoria, effettuare un replace del testo, e poi salvare la modifica nel file originale.

Ovverro aprire un ipotetico file che contiene la scritta

CIAO COME STAI?

leggerne il contenuto, sostituire tutte le parole CIAO, con la parola BUONGIORNO, e risalvare il file modificato, nello stesso percorso sostituendo quello vecchio.

La parte più complicata per me risiede nell'aprire il file e metterlo in una variabile, e poi salvare il risultato della modifica nel medesimo file originale.

Sono sempre alle prime armi! quindi vi chiedo di essere clementi ed utilizzare un linguaggio comprensibile anche per un primitivo come me! Grazie !!

[Nuvolari2]

Dimenticavo di dire che i file che deve controllare spesso sono di una sola linea di testo, se questo può avere importanza...

grazie ancora!

[Sypher]

Fai una ricerca su FileSystemObject e dovresti risolvere!

[Sypher]

Aggiungi nei riferimenti Microsoft Scripting Runtime...aspetta che me so scordato il salvataggio!

Private Sub Form_Load()
    Dim fso As New FileSystemObject
    Dim filetxt As TextStream
    Path = "C:\prova.txt"
    Set filetxt = fso.OpenTextFile(Path, 1, False)

    testo = filetxt.ReadAll

    strTesto = Replace(testo, "Ciao", "Buongiorno")

    filetxt.Close
    Set filetxt = Nothing
    Set fso = Nothing
    
End Sub

[Sypher]

Private Sub Form_Load()
    Dim fso As New FileSystemObject
    Dim filetxt As TextStream
      
    Path = "C:\prova.txt"
    Set filetxt = fso.OpenTextFile(Path, 1, False)
    
    testo = filetxt.ReadAll

    filetxt.Close
    Set filetxt = Nothing

    strTesto = Replace(testo, "Ciao", "Benvenuto")
    
    Set filetxt = fso.CreateTextFile(Path, True)
    filetxt.Write (strTesto)
    filetxt.Close
    Set filetxt = Nothing
    Set fso = Nothing
    
End Sub

[Nuvolari2]

Erano proprio quello di cui avevo bisogno!!!!


Grazie mille!

:metallica