[VB.NET] Salvare numeri incrementati progressivamente su file esterno

[titto96]

Salve a tutti... sono di nuovo qui a combattere questo problema

Avrei la necessità di includere un file testo contenete 4 numeri (almeno io ho optato per questa opzione). Avevo pensato di metterlo nei Resources. All'avvio del form il programma dovrebbe assegnare il numero (ripeto da 4 cifre) contenuto nel file .txt, nella textbox1

Poi premuto un pulsante, questo numero dovrà essere incrementato di 1 e sovrascrivere il numero precedente

ES:

All'inizio ho il numero 1702
premuto il pulsante diventerà 1703
e contemporaneamente verrà salvato quindi alla chiusura e alla successiva riapertura del programma, nella TextBox1 dovrà comparire il numero 1703 e non 1702

Per adesso sono arrivato a questo

Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     AcceptButton = Button1 
     Dim fileReader As String 
     fileReader = My.Resources.test 'questa è la stringa che assegna a filereader il valore del        file test.txt
     TextBox1.Text = fileReader 'qui assegno alla textbox1 il valore
     Dim data As DateTime = Today() 
     TextBox2.Text = data 
End Sub 

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click 
     PictureBox1.Image = My.Resources.BASE 
     If Not TextBox1.Text = "" Then 
           TextBox1.Text = Val(TextBox1.Text + 1) 'qui incremento
     End If 
     TextBox8.ReadOnly = True
     Dim test As Integer = My.Resources.test 'qui mi incasino
     AcceptButton = Button1 
     TextBox4.Text = "" 
     TextBox6.Text = "" 
     TextBox8.Text = "" 
     TextBox7.Text = "" 
     Combo1.Text = "" 
     Combo2.Text = "" 
     TextBox4.Focus() 

     'qui dovrei aggiungere la stringa per salvare il numero

End Sub

P.s. Grazie per tutto
P.s.s. Non fate caso a tutti gli altri impicci

[eziogsv]

Io metterei il numero NON nelle Risorse, ma nelle Impostazioni (My.Settings) impostandolo come Integer. Nell' esempio ho chiamato il Setting "Numero"

Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     AcceptButton = Button1 
     TextBox1.Text = My.Settings.Numero.ToString
     Dim data As DateTime = Today() 
     TextBox2.Text = data 
End Sub 

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click 

     Static Counter as Integer = My.Settings.Numero 'Inizializza Counter

     PictureBox1.Image = My.Resources.BASE 
     If Not TextBox1.Text = "" Then 
           Counter +=1
           TextBox1.Text = Counter.ToString 
     End If 

     TextBox8.ReadOnly = True
     AcceptButton = Button1 
     TextBox4.Text = "" 
     TextBox6.Text = "" 
     TextBox8.Text = "" 
     TextBox7.Text = "" 
     Combo1.Text = "" 
     Combo2.Text = "" 
     TextBox4.Focus() 

     'qui dovrei aggiungere la stringa per salvare il numero
     My.Settings.Numero = Counter
     My.Settings.Save

End Sub

Dovrebbe fungere.....

[titto96]

Mi da questo errore

Cast non valido dalla stringa "" al tipo 'Integer'

Alla riga in cui inizializzo counter

Stavo pensando se io faccio come te il numero aumenta si ma non me lo salva in memoria, cioè se apro il programma aumento il numero di 3 numeri (ES: da 1702 a 1705), chiudo il programma e poi lo riapro il numero deve essere 1705 e come ho capito, il numero resterà 1702

[oregon]

L'errore è dovuto al fatto che Numero è stato creato come String e non come Integer.

non me lo salva

Come no ... e cosa fa allora questa ?

My.Settings.Save

[titto96]

Ah ok

E come faccio a iniziare da 1702? per poi continuare?

EDIT: Problema risolto siete grandi su questo forum risolvo tutti i problemi

[titto96]

Scusate se riprendo una discussione così vecchia ma riprendendo il progetto mi viene questo dubbio... e se vorrei cambiare il numero di inizio?

[oregon]

Originariamente inviato da titto96
se vorrei

Se volessi ...

Non capisco lo scopo ... perché cambiare il valore iniziale se puoi modificarlo in qualsiasi momento?