Visual Basic 6 - Problema con eof in un archivio sequenziale

Forum - Visual Basic 6 - Problema con eof in un archivio sequenziale

Dyango (Normal User)
Pro

Messaggi: 83
Iscritto: 02/01/2009

Postato alle 17:08
Lunedì, 14/12/2009

ciao ragazzi praticamente io dopo aver ciclato fino alla fine del file e aver letto tutti i record dovrei di nuovo leggere i record del file pero essendo alla fine del file giustamente non mi entra piu nel ciclo until eof(3) come posso fare per rileggere i record nell archivio (forse dovrei spostare il puntatore che ora e alla fine del file su all inizio del file :-|

) vi allego il codice cosi capite meglio

Codice sorgente - presumibilmente Delphi

a00_op_Iniziali
    n_licen = InputBox("inserire quandi dipedenti si vuole eliminare dall'archivio")
    For num_volte = 1 To n_licen
        cod_lic = InputBox("Inserire il codice del dipendente da licenziare")
        Write #3, cod_lic
    Next
    Close #3
    Open App.Path & "\dipendenti_licenziati.txt" For Input As #3
    Do Until EOF(1)
       Input #1, cod_dip, anno, mese, ore_ord, ore_stra
       Do Until EOF(3)
          Input #3, cod_lic
          If cod_dip <> cod_lic Then
             Write #2, cod_dip, anno, mese, ore_ord, ore_stra
          Else
             trovato = "no"
          End If
       Loop
   Loop
   If trovato <> "no" Then
      MsgBox ("Nessuna corrispondenza con i dati inseriti")
   Else
      MsgBox ("Operazione completata con successo")
   End If
   Close
 
 
Private Sub a00_op_Iniziali()
   Open App.Path & "\dipendenti.txt" For Input As #1
   Open App.Path & "\dipendenti_agg.txt" For Output As #2
   Open App.Path & "\dipendenti_licenziati.txt" For Append As #3
End Sub

Ultima modifica effettuata da Dyango il 14/12/2009 alle 17:30

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:27
Lunedì, 14/12/2009

vedendo quel codice diciamo che non è che mi si siano schiarite molto le idee...

comunque per rileggere il file se ancora non è stato chiuso puoi usare sempre come "numero" 3 nel senso : Open ... as input #3

altrimenti se il file ancora non è stato chiuso usi 4

puoi usare anche una variabile del tipo

dim n as integer
n = 3
Open ... as input #n
e poi la incrementi con: n = n + 1

oppure usi n = FreeFile che da a n un "numero libero"

Ultima modifica effettuata da GrG il 14/12/2009 alle 17:28

Dyango (Normal User)
Pro

Messaggi: 83
Iscritto: 02/01/2009

Postato alle 19:21
Lunedì, 14/12/2009

Testo quotato

Postato originariamente da GrG:

vedendo quel codice diciamo che non è che mi si siano schiarite molto le idee...

comunque per rileggere il file se ancora non è stato chiuso puoi usare sempre come "numero" 3 nel senso : Open ... as input #3 mi da errore se lo riapro sempre con lo stesso nome logico

altrimenti se il file ancora non è stato chiuso usi 4 se metto 4 mi mi sballa la lettura avendo messo io 3 ma nella parte dopo hai fornito la soluzione ma...

puoi usare anche una variabile del tipo

dim n as integer
n = 3
Open ... as input #n
e poi la incrementi con: n = n + 1 troppo macchinoso a parer mio

oppure usi n = FreeFile che da a n un "numero libero" stesso problema di quando mi hai consigliato il 4

grazie grg per le risposte ma mi sono accorto che che spostando alcune istruzioni che avevo posizionato male per colpa della fretta ottengo proprio quello che voglio
nuovo codice:

Codice sorgente - presumibilmente Delphi

a00_op_Iniziali
    n_licen = InputBox("inserire quandi dipedenti si vuole eliminare dall'archivio")
    For num_volte = 1 To n_licen
        cod_lic = InputBox("Inserire il codice del dipendente da licenziare")
        Write #3, cod_lic
    Next
    Close #3
    
    Do Until EOF(1)
       Input #1, cod_dip, anno, mese, ore_ord, ore_stra
       Open App.Path & "\dipendenti_licenziati.txt" For Input As #3 'apro il file 3 dentro il ciclo until EOF(1)
       Do Until EOF(3)
          Input #3, cod_lic
          If cod_dip <> cod_lic Then
             Write #2, cod_dip, anno, mese, ore_ord, ore_stra
             trovato = "si"
          End If
       Loop
       Close #3  'aggiunto questo tra i due loop
   Loop
   If trovato = "si" Then
      MsgBox ("Operazione completata con successo")
   Else
      MsgBox ("Nessuna corrispondenza con i dati inseriti")
   End If
   Close

Ultima modifica effettuata da Dyango il 14/12/2009 alle 19:25