[vb help] modificare i campi di un record

[Elite83]

dunque avrei già scritto su un file di testo un record contenente 5 campi, ogni campo contiene un valore di tipo string

questa è l'istruzione che uso per scrivere sul file di testo.

dim record(1 to 5) as tipodelrecord
With record(1)
nome1 = label1.caption
nome2 = label2.caption
nome3 = label3.caption
nome4 = label4.caption
nome5 = label5.caption
end with

Open App.Path & "\testo\" & filetesto.txt For Append As #1
Print #1, nome1; nome2; nome3; nome4; nome5;
Close #1



Il file di testo ora contiene:

nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;



Ora dovrei modificare il valore del record(2).nome3 e salvare il file di testo.

pensavo di aggiungere un bottone all'applicazione e creare una nuova sub-routine che riceve in imput il nuovo valore aggiorna il record e scrive sul file di testo.

Chi mi da una mano??

[Elite83]

Perchè non risponde nessuno??

Se ho scritto qualche str@... ditelo...

[Elite83]

up

[icecube_HU]

Originariamente inviato da Elite83

dunque avrei già scritto su un file di testo un record contenente 5 campi, ogni campo contiene un valore di tipo string

questa è l'istruzione che uso per scrivere sul file di testo.

dim record(1 to 5) as tipodelrecord
With record(1)
nome1 = label1.caption
nome2 = label2.caption
nome3 = label3.caption
nome4 = label4.caption
nome5 = label5.caption
end with

Open App.Path & "\testo\" & filetesto.txt For Append As #1
Print #1, nome1; nome2; nome3; nome4; nome5;
Close #1



Il file di testo ora contiene:

nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;
nome1; nome2; nome3; nome4; nome5;



Ora dovrei modificare il valore del record(2).nome3 e salvare il file di testo.

pensavo di aggiungere un bottone all'applicazione e creare una nuova sub-routine che riceve in imput il nuovo valore aggiorna il record e scrive sul file di testo.

Chi mi da una mano??

I file sequenziali di testo non sono l'ideale se si tratta di modificare spesso record all'interno, per questo meglio i file ad accesso casuale (se non vogliamo scomodare i DB).

Se non vuoi modificare tipo di file, la miglior soluzione e' di leggere tutto il file memorizzando tutti i dati in matrici (se non sono migliaia di record !), modificare quello che ti serve, poi riscrivere tutto il file.... va' da se' che e' una soluzione efficace, ma non molto efficiente !

Dai un'occhiata all'istruzione "Open" con il tipo di file "Random"...

Ciao !

[Elite83]

ok e se invece decido di modificare il tipo di file?
dopotutto sempre meglio scrivere il codice una volta per tutte, come dovrei fare?
magari scomodiamoli pure sti db...

[icecube_HU]

Originariamente inviato da Elite83

ok e se invece decido di modificare il tipo di file?

Ripeto: dai un'occhiata all'istruzione "Open" con il tipo di file "Random"..., e inoltre alle istruzioni Get# e Put#...

Documentanti un po'..., non penserai che qualcuno scriva il TUO programma, no ?

[Elite83]

no ma non ho capito il concetto.. dovrei ricopiare tutti i campi del record in un nuovo file ?
Equivale a caricare nuovamente il vettore con nuovi dati... non si potrebbe cambiare il dato di una sola riga del record??

[Elite83]

up
praticamente dovrei modificare un record senza stravolgere il programma...
nessuno???

[Elite83]

up

[Elite83]

up

[icecube_HU]

Originariamente inviato da Elite83

no ma non ho capito il concetto.. dovrei ricopiare tutti i campi del record in un nuovo file ?
Equivale a caricare nuovamente il vettore con nuovi dati... non si potrebbe cambiare il dato di una sola riga del record??

Il concetto e' questo: un file sequenziale, pur fisicamente scritto su un supporto versatile come l'hard-disk, "simula" nella struttura un "media" sequenziale, come ad esempio un nastro.

Prendi una musicassetta: se vuoi sostituire 10 secondi di musica dopo, ad es., 2 minuti dall'inizio, cosa devi fare?
Leggi esattamente 2 minuti di nastro, poi registri esattamente 10 secondi con il nuovo contenuto (facendo attenzione a non cancellare qualcos'altro !).

Piccolo problema: puoi farlo se vuoi sostituire i 10 secondi di contenuto con ESATTAMENTE 10 secondi del NUOVO contenuto, ma se ne vuoi inserire 20, come fai ???
Leggi 2 minuti, li passi su una nuova cassetta ("l'altro" file, ricordi ?), poi inserisci i NUOVI 20 sec., e poi il resto della prima cassetta.
L'hai mai fatto ? No, eh ?... E' un casino ! APPUNTO !!!

Tornando al tuo file, puoi fare facilmente quello che desideri SOLO se il nuovo contenuto e' ESATTAMENTE LUNGO (in caratteri) quanto il precedente.... altrimenti devi usare un secondo file...

Con i file Random e' diverso, perche' in questo caso i record hanno tutti la stessa lunghezza, ed il sistema ti fornisce le istruzioni (Get# e Put#) per leggere e scrivere direttamente i record nella posizione desiderata !
(C'hai dato un'occhiata ? ... No, eh ? )

Ciao !

[Elite83]

Originariamente inviato da icecube_HU

Il concetto e' questo: un file sequenziale, pur fisicamente scritto su un supporto versatile come l'hard-disk, "simula" nella struttura un "media" sequenziale, come ad esempio un nastro.

Prendi una musicassetta: se vuoi sostituire 10 secondi di musica dopo, ad es., 2 minuti dall'inizio, cosa devi fare?
Leggi esattamente 2 minuti di nastro, poi registri esattamente 10 secondi con il nuovo contenuto (facendo attenzione a non cancellare qualcos'altro !).

Piccolo problema: puoi farlo se vuoi sostituire i 10 secondi di contenuto con ESATTAMENTE 10 secondi del NUOVO contenuto, ma se ne vuoi inserire 20, come fai ???
Leggi 2 minuti, li passi su una nuova cassetta ("l'altro" file, ricordi ?), poi inserisci i NUOVI 20 sec., e poi il resto della prima cassetta.
L'hai mai fatto ? No, eh ?... E' un casino ! APPUNTO !!!

Tornando al tuo file, puoi fare facilmente quello che desideri SOLO se il nuovo contenuto e' ESATTAMENTE LUNGO (in caratteri) quanto il precedente.... altrimenti devi usare un secondo file...

Con i file Random e' diverso, perche' in questo caso i record hanno tutti la stessa lunghezza, ed il sistema ti fornisce le istruzioni (Get# e Put#) per leggere e scrivere direttamente i record nella posizione desiderata !
(C'hai dato un'occhiata ? ... No, eh ? )

Ciao !

ciao, grazie per la risposta, dunque si ieri sera ci ho dato un'occhiata, ho un libro sul linguaggio sql e negli utlimi capitoli c'era la gestione di un file mdb (creato con access) con il vb.
Li per li non mi è sembrato complicato, ma avrei dovuto prendere tutto il file e creare un nuovo database con access e successivamente crearmi una query in vb per accedere e modificare i campi...
Ho scartato anche l'utilizzo di un file di testo aperto con open for random, perchè dovrei rimuovere molto spesso alcuni campi del vettore per mandarlo in stampa e da quanto ho capito non è possibile compattare il vettore così finierei per avere un file txt lunghissimo pieno di spazi vuoti.
Così ho deciso di creare un nuovo file e tentare di modificarlo.
Stasera ti faccio sapere.

[icecube_HU]

Originariamente inviato da Elite83

ciao, grazie per la risposta, dunque si ieri sera ci ho dato un'occhiata, ho un libro sul linguaggio sql e negli utlimi capitoli c'era la gestione di un file mdb (creato con access) con il vb.
Li per li non mi è sembrato complicato, ma avrei dovuto prendere tutto il file e creare un nuovo database con access e successivamente crearmi una query in vb per accedere e modificare i campi...
Ho scartato anche l'utilizzo di un file di testo aperto con open for random, perchè dovrei rimuovere molto spesso alcuni campi del vettore per mandarlo in stampa e da quanto ho capito non è possibile compattare il vettore così finierei per avere un file txt lunghissimo pieno di spazi vuoti.
Così ho deciso di creare un nuovo file e tentare di modificarlo.
Stasera ti faccio sapere.

Ok, probabilmente per quello che ti serve non conviene scomodare i DB, per modificare il singolo record del file di testo puoi fare cosi':

   Dim F1 As String, F2 As String     'nomi dei file
   Dim L As String, NR As String
   Dim N As Long, i As Long
   
   F1 = App.Path & "\Prova.txt"     ' il nome del file da modificare
   F2 = F1 & ".tmp"                     ' il file temporaneo
   
   N = 2     '<<<<<<   il numero di record da modificare !
   NR = "---- questo e' il NUOVO contenuto del record ----"
   
   Open F1 For Input As #1
   Open F2 For Output As #2
   
   For i = 1 To N - 1     'legge e copia i record precedenti
      Line Input #1, L
      Print #2, L
   Next
   
   Line Input #1, L      ' legge il record da modificare
   Print #2, NR           ' scrive il NUOVO contenuto del record
   
   Do Until EOF(1)       ' legge e copia il resto del file
      Line Input #1, L
      Print #2, L
   Loop
   Close
   
   ' finite le modifiche ai file, ora ripristiniamo i nomi precedenti
   Kill F1
   Name F2 As F1

in questo codice devi:
- inserire il nome del file al posto di "Prova.txt"
- inserire al posto di N=2 il numero effettivo del record da modificare
- in NR mettere il contenuto dell'intero record da inserire al posto dell'N-esimo

eventualmente costruendoti una Sub in modo da passare gli argomenti N e NR...

Ciao !


P.S.: sia chiaro che, soprattutto se i dati sono molti, rimane una struttura assolutamente NON efficiente !!
Probabilmente e' molto meglio, viste le capacita' di memoria delle macchine attuali, caricare in memoria tutti i dati (una matrice, oppure un vettore per ogni campo), fare comodamente (e velocemente ! ) tutte le modifiche che ti servono direttamente sulle variabili, e salvare tutti i dati nel file di testo all'uscita del programma.

[Elite83]

si grazie, anche perchè io avrei già caricato tutto il contenuto del file su un vettore, per cui avrei due soluzioni, la prima operare direttamente sul vettore in memoria, la seconda operare sul file di testo.
La seconda è la più rapida io avevo già nome1,nome2.... nome5 sul file di testo e sulla matrice.

Sarebbe:

Open F1 For Input As #1
Open F2 For Output As #2

For i = 1 To N - 1 'legge e copia i record precedenti
Line Input #1, L
Print #2, L
Next

Do Until EOF(1) ' legge e copia il resto del file
Line Input #1, L
Print #2, L
Loop
Close
Open f2.txt For Append As #3
Print #3, nome1; nome2; nome3; nome4; nome5; ' qui indico i nomi delle variabili che scriverò sul file, è più comodo che unire più variabili in un unica stringa.
Close #3

Praticamente copio tutto il 1file tranne il record da modificare su un secondo file ed a questo punto inserisco alla fine un nuovo record con le modifiche necessarie, in seguito passo tutto ad una public function per l'ordinamento alfabetico dei campi del vettore.

L'altra possibilità invece sarebbe come hai detto tu di inserire un nuovo campo in fondo al vettore, dopodichè eliminare il campo che non serve più ordinare il vettore e scrivere tutto su un nuovo file di testo tipo f1mod.txt
Ma a questo punto non mi è chiaro se dovrò utilizzare due vettori uno per caricare il contenuto del file ed un'altro per apportare inserire un record, eliminare il vecchio ed ordinare il tutto prima della scrittura.

tenterò la via più breve, perchè dopotutto mi interessa non lasciare spazi bianchi ed avere un file di testo da mandarei in stampa velocemente.

[Elite83]

le istruzioni per modificare un record del vettore sarebbero:

n= posizione che voglio modificare

vettore(n).campo1 = "nome1"
vettore(n).campo2 = "nome2modificato"
vettore(n).campo3 = "nome3"
vettore(n).campo4= "nome4"
vettore(n).campo5= "nome5"

[Elite83]

evvai.. ho trovato l'errore, l'ultima istruzione vettore(n).campo5= "nome5" riceveva il valore dalla textbox sbagliata... infatti avevo sempre 1 in quella posizione....


però non ho fatto come hai detto ma così:
X=msgbox

Se la posizione da modificare = x allora
scrivi sul file il contenuto delle texbox
altrimenti
copia il record dal vecchio file.

funziona bene e va anche abbastanza veloce, l'unico problema è che per il momento creo un file chiamato nuovofile.txt e che viene sovrascritto ad ogni modifica.... per cui dovrò fare in modo di modificare o al limite sovrascrivere lo stesso file.