Visual Basic 6 - ordinare contenuto text

Forum - Visual Basic 6 - ordinare contenuto text

Pagine: [ 1 2 3 ]

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 15:11
Martedì, 19/08/2008

salve sto facendo un programma ché memorizza il contenuto di alcune text in questo modo:

Codice sorgente - presumibilmente Plain Text

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

E le legge in questo modo:

Codice sorgente - presumibilmente VB.NET

Open "c:\dati.txt" for input as 1
Dim campo() ad string
Do while not (eof(1))
Input #1, r&#299;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

Alceus (Member)
Expert

Messaggi: 288
Iscritto: 22/07/2008

Postato alle 15:32
Martedì, 19/08/2008

Non so se ho capito bene. Prova con un CommandButton:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
If Text2.Text="" Then
Text2.Text=Text4.Text
Text4.Text=""
End If
End Sub

Ultima modifica effettuata da Alceus il 19/08/2008 alle 15:35

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 15:40
Martedì, 19/08/2008

io volevo qualcosa che me lo fa in automatico se le text precedenti sono vuote

Alceus (Member)
Expert

Messaggi: 288
Iscritto: 22/07/2008

Postato alle 15:42
Martedì, 19/08/2008

Prova con:

Codice sorgente - presumibilmente VB.NET

Private Sub Text4_Change() 
If Text2.Text="" Then 
Text2.Text=Text4.Text 
Text4.Text="" 
End If 
End Sub

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:47
Martedì, 19/08/2008

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...

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 17:27
Martedì, 19/08/2008

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 il 19/08/2008 alle 17:32

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:58
Martedì, 19/08/2008

ehm..ho capito poco e niente...

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 20:21
Martedì, 19/08/2008

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?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 20:32
Martedì, 19/08/2008

purtroppo non riesco a capirti bene...

Puoi allegare il tuo sorgente in modo che lo guardi e capisca?

Pagine: [ 1 2 3 ]