[VB6] Leggere e scrivere linea per linea (file .txt)

[Nuvolari2]

Buongiorno a tutti,

Come da oggetto mi servirebbe sapere come faccio per scrivere (dopo averla letta) una linea in un file di testo.

In pratica, devo leggere linea per linea un file di testo e modificare alcuni caratteri.

Non posso aprirlo tutto in un botto perchè è un file di enormi dimensioni.


per ora, per leggere il file linea per linea utilizzo il seguente codice:

FileNum% = FreeFile
A$ = ""

Open Percorso For Input As #FileNum%
Do Until EOF(FileNum)
    Line Input #FileNum%, A$
    Contenuto = A$

' Codice per modificare "Contenuto"
' ???? Codice per salvare "Contenuto" nella linea corrente.

Loop
Close #FileNum%

mi manca la porzione di codice:
' ???? Codice per salvare "Contenuto" nella linea corrente.

Qualcuno sa come fare?
:master:

[mardok30]

Potresti anche leggere una riga->modificarla->ricopiarla in un file temp. Poi alla fine cancelli il file originale e rinomini il file temp col nome del file originale.
CIAO

[AleX ZeTa]

FileNum% = FreeFile
A = ""
dim str as String

Open Percorso For Input As #FileNum
Do Until EOF(FileNum)
    Line Input #FileNum, A
    Contenuto = A
    ' Codice per modificare "Contenuto"
    str = str & Contenuto & vbCrLf
Loop
Close #FileNum

Open Percorso For Output as #1
Print #1, str
Close #1

(nn comprendo quei "%"...)

[mardok30]

eh ma se il file è di "enormi" dimensioni non può mica mettere tutto il contenuto in "str" ??? In teoria potrebbe pure farlo ma a rischio che si impalla tutto, o no?
CIAO

[Corwin]

Originariamente inviato da mardok30
eh ma se il file è di "enormi" dimensioni non può mica mettere tutto il contenuto in "str" ??? In teoria potrebbe pure farlo ma a rischio che si impalla tutto, o no?
CIAO

No, lui legge una riga alla volta e la accoda al file nuovo, quindi "str" al massimo contiene una riga di testo.

[mardok30]

Ah ma quindi

Open Percorso For Output as #1
Print #1, str
Close #1

deve essere messo nel do until altrimenti così come sta messo copia l'intero file nella stringa str...
CIAO

[Nuvolari2]

Fate riferimento all'ultimo codice che ho postato nel mio ultimo messaggio prima di questo...

quello di precedente era solo una prova.



Ora mi manca il pezzo di codice indicato con il commento:

' ???? Codice per salvare "Contenuto" nella linea corrente.


grassie!

[Dardino]

Prova con questo:

FileNum1 = FreeFile
Open Percorso1 For Input As #FileNum1
FileNum2 = FreeFile
Open Percorso2 For Input As #FileNum2

A$ = ""

Do Until EOF(FileNum1)
    Line Input #FileNum1, A$
    Contenuto = A$

' Codice per modificare "Contenuto"

    Print #FileNum2, A$

Loop
Close

Kill Percorso1
Name Percorso2 As Percorso1

P.S. cerca di eliminare la sintassi con $ % ecc. che è di difficile lettura e del tutto inutile in VB6