VB6 - Scrivere su file.

[ivaapril]

Ciao a tutti.
Avrei bisogno di aprire un file, cercare dei caratteri all'interno e sostituirli con altri caratteri.
Mi sembra di aver capito di poter utilizzare open nomefile for ...
Ma se uso input posso solo leggere, mentre se uso output sovrascrivo senza poter leggere.
Qualcuno mi sa aiutare ?

[quartutek]

Inizia con questo:

Sub Manip_Files()
Dim fso as New FileSystemObject, txtfile, fil1, fil2
Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
MsgBox "Scrittura del file in corso"
' Scrive una riga.
txtfile.Write ("Questo è un test.")
' Chiude il file in modo che non vi si possa più scrivere.
txtfile.Close
MsgBox "Spostamento in corso del file in c:\tmp"
' Imposta un handle al file nella directory principale di C:\.
Set fil1 = fso.GetFile("c:\testfile.txt")
' Sposta il file nella directory \tmp.
fil1.Move ("c:\tmp\testfile.txt")
MsgBox "Copia in corso del file in c:\temp"
' Copia il file in \temp.
fil1.Copy ("c:\temp\testfile.txt")
MsgBox "Eliminazione dei file in corso"
' Imposta gli handle alle posizioni correnti dei file.
Set fil1 = fso.GetFile("c:\tmp\testfile.txt")
Set fil2 = fso.GetFile("c:\temp\testfile.txt")
' Elimina i file.
fil1.Delete
fil2.Delete
MsgBox "Operazione terminata"
End Sub

[ivaapril]

Grande, grazie mille, ma come faccio ad aprire un file esistente e sostituire dei caratteri ?

[quartutek]

Prova con txtfile.Delete ("Questo è un test.")

[allejo]

dim record as string
Open percorsodelfile For Input As #1
While Not EOF(1)
Line Input #1, record 'legge riga x riga

Wend
Close #1

[allejo]

dim record as string
Open percorsodelfile For Input As #1
While Not EOF(1)
Line Input #1, record 'legge riga x riga
'Qui scrivi la funzione x sostituire il carattere
Wend
Close #1

[ivaapril]

Si, la strada mi sembra questa,
apro il file in lettura (for input) e leggo riga per riga.
Ma se ho aperto il fil3e solo in lettura, come faccio a scrivere una funzione che mi sostituisce i caratteri ?

dim record as string
Open percorsodelfile For Input As #1
While Not EOF(1)
Line Input #1, record 'legge riga x riga
'Qui scrivi la funzione x sost il carattere <-- ma sono in lettura
Wend
Close #1

[allejo]

Apri un'altro file di tipo Append.
facendo cosi
'Questa funzione permette di copiare gli stessi caratteri che ha il percorsofile.

dim record as string
Open percorsodelfile For Input As #1
While Not EOF(1)
Line Input #1, record 'legge riga x riga
if trovato carattere da sostituire
record=cosa sostituire
End If
open percorsofile1 for Append as # 2
print #2,record
close # 2
Wend
Close #1

[ivaapril]

Ok, ma cosi vado a scxrivere in fondo al file.
Non e' possibile aprire il file contemporaneamente in lettura e scittura ?

[xegallo]

Originariamente inviato da ivaapril
Ok, ma cosi vado a scxrivere in fondo al file.
Non e' possibile aprire il file contemporaneamente in lettura e scittura ?

aprilo for binary

get canale ,, variabile stringa

elabori la stringa

put canale ,, variabile stringa