[RISOLTO]Stampare un testo in una determinata riga di un file

[vuott]

sono felice che la prendiate con filosofia senza arrabbiarvi. vi ringrazio davvero.

Bisogna venirsi incontro reciprocamente:  

l'ultimo codice che hai postato, su "For a = 0 To sArr$.Max "

Dove vedi dichiarata la variabile "a" ? All'interno della routine oppure sopra al di fuori ?

[eevan]

fermi tutti!!
ora sembrerebbe funzionare...

[vuott]

fermi tutti!!
ora sembrerebbe funzionare...

..."sembrerebbe" ?  

Aggiornaci !

[eevan]

certo, ora funziona! 

forse avevo sbagliato io a scrivere qualcosa ma adesso, rifacendo tutto da capo funziona benissimo!

posso mettere la tag risolto finalmente, continuare con lo sviluppo del programma e studiare bene la procedura ed il meccanismo fino allo stremo in modo da averli bene chiari in testa.

grazie mille 

[vuott]

certo, ora funziona! 

forse avevo sbagliato io a scrivere qualcosa ma adesso, rifacendo tutto da capo funziona benissimo!

posso mettere la tag risolto finalmente, continuare con lo sviluppo del programma e studiare bene la procedura ed il meccanismo fino allo stremo in modo da averli bene chiari in testa.

grazie mille 

Troverai i tuoi amici qui del forum sempre pronti a darti una mano.   

[Golia]

non basta dire "stampami textbox.text sulla riga 2." e fine dei giochi.

Mi è servito qualcosa del genere e ho fatto questo, se può servire..

Codice: gambas [Seleziona]

Public Sub sost_riga(origfile As String, destfile As String, valtext As String, riga As Integer)
  Dim hfile As File
  Dim i As Integer
  Dim valriga As String
  Dim contenitore As New String[]
  Dim NX As Integer
  Dim hfile1 As File
  
If origfile Then
    hFile = Open origfile For Input 
    While Not Eof(hFile) 
    Line Input #hFile, valriga
    contenitore.Add(valriga)
    Wend 
    Close #hFile    
  If destfile Then
  hFile1 = Open destfile For Create
        For i = 0 To contenitore.count - 1
              If NX = riga Then
                Print #hFile1, valtext
              Else
                Print #hFile1, contenitore[NX]
              Endif
              Inc NX
        Next
  Close #hfile1    
  Endif
Endif  
End

e basta dire

Codice: gambas [Seleziona]

sost_riga(tuofileorigine, tuofiledestinazione,tuastringa,rigachevuoisostituire)

ricorda che la prima riga è la numero 0