Visual Basic 6 - Write & Input

Che problema, sto impazzendo...ho 5 textbox e 5 cmd per intenderci...

devo memorizzare il contenuto nelle textbox in un file INI alla pressione di un dei tasti...


Questo è il codice presente in ogni textbox, le variabili sono pubbliche e quindi visibili...

----Inizio Code----

Var1 = txtVar1.Text
Var2 = txtVar2.Text
Var3 = txtVar3.Text
Var4 = txtVar4.Text
Var5 = txtVar5.Text

Open App.Path + "\Impo.ini" For Output As #1
Write #1, Var1
Write #1, Var2
Write #1, Var3
Write #1, Var4
Write #1, Var5
Close #1

----Fine CODE----

Il problema è in lettura

----Inizio Code----
Open App.Path + "\Impo.ini" For Input As #1
Input #1, Var1
Input #1, Var2
Input #1, Var3
Input #1, Var4
Input #1, Var5
Close #1

txtVar1.Text = Var1
txtVar2.Text = Var2
txtVar3.Text = Var3
txtVar4.Text = Var4
txtVar5.Text = Var5
----Fine Code -----

Il code è giusto l'ho controllato per ore solo che in lettura le prime due textbox hanno lo stesso valore che sarebbe quello riferito a

Input #1, Var2

Come diavolo è possibile???????

Si potrebbe solo dire che anche nell'ini ci sono gli stessi valori. Non vedo errori.

Solo un paio di domande: è una tua scelta non usare textbox indexati? Risparmieresti molto spazio...

E quando usi write, lo fai perché hai bisogno delle virgolette "?

ho trovato un pò di cose che possono fare al caso tuo...spero di essere stato utile!
p2pforum.it/forum/…
redangel.it/…
ciao ciao
edit: non vedo errori nel codice...prova con print e line input...

Reese:

Per quanto riguarda write e le virgolette non è che mi servono è stata una scelta sul momento, tanto le virgolette poi non vengono prese dall' Input.

Per quanto riguarda le textbox da indexare hai proprio ragione...purtroppo faccio fatica a cambiare i metodi...

Fr3d3R!K :

HO provato a cambiare WRITE in PRINT e INPUT in Line Input ma non ho avuto successo...
Ti ringrazio per i link corro a dare un'occhiata...

Il problema quindi rimane...ma nelle altre prove che ho fatto non si presenta, questo è proprio un'arcano...vi faro cmq sapere...

GRAZIE RAGA

cosa vuoi dire? che hai provato su altri computer e funziona e che hai provato sul tuo pc altre volte funziona e altre no?? perchè forse il problema è qui...
edit: ma perchè non posti direttamente il sorgente (su megaupload.com o yousendit.com insomma in posto dove si possa scaricare...)??? magari c'è qualche distrazione o qualcosa della quale non ti accorgi...(ipotizzo... )

Non su altri computer sul mio...ho fatto un programma di prova molto simile al mio e....scrive e legge che è un piacere...

Ho provato a cancellare il code e a riscriverlo ma nada...

domani pubblico il sorgente integrale...nel frattempo


ecco come legge i dati, non ci sono errori e in più controllo il file INI prima di avviare il programma per verificare che i dati siano giusti:::
----code-----
Private Sub Form_Load()

Open App.Path + "\Impostazioni.ini" For Input As #1
Line Input #1, ValEuroDollaro
Line Input #1, ValEuroLira
Line Input #1, ValEuroYen
Line Input #1, ValEuroRublo
Line Input #1, ValEuroSterlina
Close #1

txtEuroDollaro.Text = ValEuroDollaro
txtEuroLira.Text = ValEuroLira
txtEuroYen.Text = ValEuroYen
txtEuroRublo.Text = ValEuroRublo
txtEuroSterlina.Text = ValEuroSterlina

End Sub
----fine code lettura----


----inizio code salva1----

Private Sub cmdSalva2_Click()

ValEuroDollaro = txtEuroDollaro.Text

Open App.Path + "\Impostazioni.ini" For Output As #1
Print #1, ValEuroDollaro
Print #1, ValEuroLira
Print #1, ValEuroYen
Print #1, ValEuroRublo
Print #1, ValEuroSterlina
Close #1

txtEuroDollaro.Locked = True
cmdModifica2.Enabled = True
cmdSalva2.Enabled = False

End Sub

----------------

posto un'altro comando salva

----inizio----
Private Sub cmdSalva3_Click()

ValEuroYen = txtEuroYen.Text

Open App.Path + "\Impostazioni.ini" For Output As #1
Print #1, ValEuroDollaro
Print #1, ValEuroLira
Print #1, ValEuroYen
Print #1, ValEuroRublo
Print #1, ValEuroSterlina
Close #1

txtEuroYen.Locked = True
cmdModifica3.Enabled = True
cmdSalva3.Enabled = False

End Sub

non fate commenti sul codice, so che è di ....
----fine---

RAGAZZI...sembra impossibile ma proprio adesso ho avviato il programma per vedere se riuscivo a risolvere l'errore...e con grande sorpresa e gioia IL PROGRAMMA FUNZIONA.........

TRA POCO LO PUBBLICO SUL SITO SI CHIAMA

"CONVERTER 1.0"

date un'occhiata al code e fatemi sapere...

meglio così!!!