VB6 - numeri progressivi

[mdnet]

Ho provato a cercare nel forun ma non ho trovato info (spero di aver cercato bene).

Dovrei fare un piccolo form con 2 textbox, su text1 metto un numero di partenza es. 10 su text2 un numero di arrivo es. 20, a questo punto prendo un bottone dovrei fare in modo che mi scrivesse in un file di testo i numeri progressi uno sotto all'altro.

10
11
12
13
14
15
ecc. ecc. ecc.

Se avete qualche info in merito ve ne sarei MOLTO grato.

Grazie

[oregon]

Sulla guida di VB c'e' tutto quello che ti serve ...

Apri il file con la Open e ci scrivi con la Print # il valore della variabile di un ciclo For ...

[mdnet]

Grazie, allora con il ciclo for sono riuscito ad ottenere tutti i numeri, il mio problema e che con l'istruzione open apro un file di testo ma mi scrive sempre e solo l'ultimo numero che conta.

[wallrider]

E' giunto il momento di vedere un po' di codice

[mdnet]

Private Sub Command1_Click()

For i = Text1 To Text2

Next i


Open "c:\test.txt" For Append As #1
Print #1, i
Close #1


End Sub

[mdnet]

Risolto, grazie a tutti.

For i = Text1 To Text2


Open "c:\test.txt" For Append As #1
Print #1, i
Close #1

Next i

[oregon]

Veramente il codice che hai mostrato non e' quello che dovrebbe essere ... e' altamente inefficiente aprire continuamente il file ...

E' meglio farlo solamente una volta in Output

Dim i As Long
Open "c:\test.txt" For Output As #1
For i = Val(Text1.Text) To Val(Text2.Text)
   Print #1, i
Next i
Close #1

[mdnet]

Grazie 1000