[VB6]Ricerca e modifica stringa in un file

[AlexCJB]

Ciao,

il mio problema è il seguente. Ho un file con molte righe di questo tipo

RIGA1[1];0
RIGA1[2];2
RIGA5[6];0
ETC....

Supponiamo che io debba aprire il mio file, cercare e modificare a mio piacimento la riga del file con scritto RIGA5[6];0 come faccio?

Se apro il file con il metodo input leggo ma non scrivo, se lo apro con l'output invece è il contrario.

Io invece vorrei far passare tutte le righe del file e nel momento in cui trovo la stringa che cerco sostituirla con una variabile string che ho a disposizione.

Spero di essermi spiegato.

Grazie in anticipo

Alessandro

[wallrider]

infatti devi
leggere tutto il file dentro una variabile
modificare la stringa interessata
sovrascrivere il file mettendoci il valore della variabile

[xegallo]

tralasciando cosa faccia la routine e che cosa sia B_P

se il file lo apri for binary o for random non serve aprirlo 2 volte

Private Sub EditLabel(FileName As String, B_P As Baia_Posto)
On Error GoTo Hell
Dim iFile As Integer
Dim sFile As String
    
    iFile = FreeFile
    
    Open F.ms_FileFolder & "\" & FileName For Binary As #iFile
        sFile = Space$(LOF(iFile))
        Get #iFile, , sFile
        sFile = Replace(sFile, "??", Format$(B_P.Baia, "00"))
        sFile = Replace(sFile, "!!", Format$(B_P.Posto, "00"))
        Put #iFile, 1, sFile
    Close #iFile
    
Exit Sub
Hell:
    Close
End Sub