solo che c'e' un problema, credo che il numero delle righe che ci sono nel file vari, quindi dovrai usare un altro controllo , non le label...codice:Open "C:\" & "nome file.531" For Input As #1 'apri il file Input #1, letto 'importi la prima riga del file Label1.Caption = letto Input #1, letto 'importi la seconda riga del file Label2.Caption = letto Input #1, letto 'importi la terza riga del file Label3.Caption = letto Input #1, letto 'importi la quarta riga del file Label4.Caption = letto Input #1, letto 'importi la quinta riga del file Label5.Caption = letto Input #1, letto 'importi la sesta riga del file Label6.Caption = letto Close #1 'chiudi il file aperto Open "C:\" & "nomefile.txt" For Output As #1 'apri il file per scriverlo write #1 , Label1.Caption 'scrivi la prima riga write #1 , Label2.Caption 'scrivi la seconda riga write #1 , Label3.Caption 'scrivi la terza riga write #1 , Label4.Caption 'scrivi la quarta riga write #1 , Label5.Caption 'scrivi la quinta riga write #1 , Label6.Caption 'scrivi la sesta riga Close #1
se hai problemi chiedi pure
![]()