[VB6] Salvataggio dati su file esterno

[karl93]

Buonasera ragazzi,
ho un problema con il salvataggio. In particolare quando salvo o carico un dato, visualizzo solo la parte intera e la decimale no. Ecco cosa ho scritto:

Private Sub Salva_Click()  rec = Text6.Text Open (App.Path & "/time.txt") For Output As #1 Print #1, rec Close #1  End Sub

Private Sub Form_Load() Label10.Caption = "Oggi è il " & data & " "  Open (App.Path & "/time.txt") For Input As #1 Input #1, rec Text5.Text = rec Close #1  End Sub

Come devo modificare?

Grazie in anticipo!

[gibra]

prima di salvare, nella variabile devi sostituire la virgola con il punto.
quando carichi, fai il contrario.

[oregon]

Per risolvere, utilizza la funzione Replace ...

Ma sistema anche il codice ... definisci le variabili che usi con il loro tipo, scrivi meglio la Open e il nome del file, mostra il codice in modo che si possa leggere nel forum ...

[karl93]

In modo devo usare la funzione Replace?

In che senso dici di aggiustare il codice? Quello che ho scritto non va bene?

[oregon]

Originariamente inviato da karl93
In modo devo usare la funzione Replace?

Ecco la documentazione della funzione Replace. Usala per fare quanto detto da Gibra.

http://msdn.microsoft.com/en-us/library/aa241892(v=VS.60).aspx

In che senso dici di aggiustare il codice? Quello che ho scritto non va bene?

Hai mostrato tutto il codice in una sola linea ... te ne sei accorto?

Hai letto i suggerimenti che ti ho dato ? Che mi dici ?

[karl93]

Ecco di nuovo il codice:

Private Sub cmdSalva_Click()   
rec = Text6.Text  
Open (App.Path & "/time.txt") For Output As #1  
Print #1, rec 
Close #1   
End Sub

Private Sub Form_Load() 
Label10.Caption = "Oggi è il " & data & " "  
Open (App.Path & "/time.txt") For Input As #1 
Input #1, rec 
Text5.Text = rec 
Close #1  
End Sub

Ancora scusa!


Comunque la funzione ho capito quale intendi, ma non come scrivere nel codice!

[oregon]

Originariamente inviato da karl93
Comunque la funzione ho capito quale intendi, ma non come scrivere nel codice!

Ma non ci provi neanche?

[karl93]

Ok...appena fatto ti informo!

Per il momento grazie mille!

[karl93]

Non ci sono riuscito! Ho scritto così:

Private Sub mnuSalva_Click() 
rec = Text6.Text 
Open (App.Path & "/time.txt") For Output As #1 
Print #1, Replace(rec, ",", ".") 
Close #1 
End Sub

Private Sub Form_Load()
  Open (App.Path & "/time.txt") For Input As #1 
Input #1, Replace(rec, ".", ",") 
Text5.Text = rec 
Close #1  
End Sub

Così è errato, perchè già vb6 mi visualizza l'errore: "Errore di compilazione. Riachiesta variabile."

Cosa devo fare?

[oregon]

Così è errato ...

Con la Input # devi usare la variabile. La Replace va fatta nell'istruzione che segue.