Utilizzi un metodo di salvataggio errato.
Per prima cosa, ti consiglio di cambiare variabile a ciò che che ha solamente due opzioni, come modalità, utilizzando le variabili boolean.
Seconda cosa, utilizzare millemila file.txt per ogni impostazione è sbagliato. utilizza un file xml che è molto più ordinato e funzionale.
Ecco come leggerne / scrivere uno. ti sto scrivendo il source adatto al tuo programma. ciò che devi fare poi è ripescarti i valori dalle variabili in cui li inserisco.
VBNET Programming
Dim read As New Data.DataSet ' l'oggetto che leggerà/scriverà il file
read.ReadXml(".\settings.xml") ' con ".\" trovi direttamente il percorso dov'è situato il programma. attraverso questo codice, leggi il file
' Questa è la lettura del contenuto delle varie tag utilizzate.
Dim color_set As integer = read.Tables("impostazioni").Rows(0).Item("color") ' impostazioni è una table così da rendere tutto più ordinato.
Dim speed_set as string = read.Tables("impostazioni").Rows(0).Item("speed")
Dim advance_set as boolean = read.Tables("impostazioni").Rows(0).Item("advance")
Dim sound_set as boolean = read.Tables("impostazioni").Rows(0).Item("sound")
Ecco come sarà il file xml.
XML Programming
<?xml version="1.0" standalone="yes"?>
<Settings>
<impostazioni>
<color>-16744448</color>
<speed>veloce</speed>
<advance>true</advance>
<sound>true</sound>
</impostazioni>
</settings>
impostazioni come già detto è la table per mantenere ordine.
color è un'integer che conterrà il colore.
speed è una string che conterrà il testo "veloce"
advance è una variabile boolean, la rispettiva modalità solamente che questa determina se la modalità avanzata è attiva o no ( true/false)
sound come sopra.
Per modificare il valore dei vari tag utilizzi una roba del genere.
VBNET Programming
ds.Tables("impostazioni").Rows(0).Item("sound") = False 'prendo come esempio sound in cui, cambio il valore booleano da true a false. per le stringhe utilizzi gli apici es. = "medio" (velocità) e per gli integer utilizzi caratteri numerici senza apici.
Se ho sbagliato qualcosa ditemelo che 'sto scrivendo direttamente quì. non ho possibilità di testare.
Infine, La velocità "veloce" non funziona.