Oppure

Loading
19/08/08 13:11
super rambo
salve sto facendo un programma ché memorizza il contenuto di alcune text in questo modo: 

open "c:\dati.txt" tor output ad #1
Print#1, text1.text & "#" & text2 & "#" & text3 & "#" & text4 ecc..
Close 1

E le legge in questo modo: 
Open "c:\dati.txt" for input as 1
Dim campo() ad string
Do while not (eof(1))
Input #1, rīga
Campo = split ( riga,  "#")
Text1 = campo (0)
Text2 = campo(1)
Text3 = campo(2)
Text4 = campo(3)
Loop
Close #1

Ora se io quando vado a scrivere i dati scrivo nella text1 e nella text4 quando vado a caricarlo restano la text2 e la text3 vuote. Si potrebbe fare in modo ché quello scritto nella text4 vada nella text2 se è vuota?
Ps: non fate caso ad eventuali errori di sintassi nel codice per hè va e grammaticali perchè stò scrivendo dal cellulare. Grazie

aaa
19/08/08 13:32
Alceus
Non so se ho capito bene. Prova con un CommandButton: 
Private Sub Command1_Click()
If Text2.Text="" Then
Text2.Text=Text4.Text
Text4.Text=""
End If
End Sub

Ultima modifica effettuata da Alceus 19/08/08 13:35
aaa
19/08/08 13:40
super rambo
io volevo qualcosa che me lo fa in automatico se le text precedenti sono vuote
aaa
19/08/08 13:42
Alceus
Prova con: 
Private Sub Text4_Change() 
If Text2.Text="" Then 
Text2.Text=Text4.Text 
Text4.Text="" 
End If 
End Sub
aaa
19/08/08 14:47
GrG
Scusa ma perchè non metti il codice di Alceus appena chiudi il file?
cioè:

Open "c:\dati.txt" For Input As 1
Dim campo() ad String
Do While Not (eof(1))
Input #1, rīga
Campo = split ( riga, "#";)
Text1 = campo (0)
Text2 = campo(1)
Text3 = campo(2)
Text4 = campo(3)
Loop
Close #1
'codice di Alceus
...bla...bla...
aaa
19/08/08 15:27
super rambo
il problema è che stò facendo un programma con tutti i giorni dell'anno ed ogni mese il contenuto del file viene cancellato e in un mese di sono al massimo 10 giorni memorizzati da visualizzare nelle text solo che se utilizzo il codice che mi avete consigliato le combinazioni che dovrei fare sono tantissime. Ci sarebbe un altro metodo? Grazie
Ultima modifica effettuata da super rambo 19/08/08 15:32
aaa
19/08/08 15:58
GrG
ehm..ho capito poco e niente...
aaa
19/08/08 18:21
super rambo
in pratica ho 2 form. In uno ho delle checkbox per i giorni dell'anno e servono per la registrazione nel file di testo. Nell'altro ho 10 text dove visualizzo i dati registrati. In un mese registro al massimo 10 giorni e ogni mese il contenuto del file viene cancellato. Come faccio per far si che il contenuto delle text venga ordinato?
aaa