Pascal - Come prendere una determinata stringa in un file

Forum - Pascal - Come prendere una determinata stringa in un file - Pagina 2

Pagine: [ 1 2 ]

subazu (Normal User)
Rookie

Messaggi: 35
Iscritto: 06/08/2011

Postato alle 20:38
Venerdì, 03/02/2012

Si alla fine comunque tutti i file sono binari, la differenza la fa il modo in cui li leggi.
Ora non so se sia obbligatorio, ma è per me scontato che se dichiari un file binario come il tuo, con delle stringhe, gli devi mettere una dimensione fissa.

Codice sorgente - presumibilmente Pascal

var parole: file of string;

per poterlo scorrere in modo non sequenziale si deve mettere per forza una dimensione fissa alla stringa, questo perché la lunghezza variabile delle variabili del record (i file binari sono composti di record mi hanno insegnato) non ci permette di sapere dove inizia e dove finisce uno qualsiasi di questi record.
E' infatti molto semplice il calcolo:
dimensioneDelRecord(in Byte) * numeroRecordaCuiSiVuoleAccedere (intero)

Quindi prima cosa metti un lunghezza fissa alla stringa, utilizzando per buon costume un costane.

Codice sorgente - presumibilmente Delphi

Const dimensioneMassimaParole = 10;
Type  parole = file of string[dimensioneMassimaParole];

Seconda cosa, per scorrere il binario esiste la procedura Seek(<fileLogico>,<indice>

, che sposta il file nel record numero <indice>.
Quindi un esempio:

Codice sorgente - presumibilmente Delphi

Uses
  sysutils; //libreria contenente la funzione per verificare se un file esiste
Const
  Path = "percorsoMioFile/nomeMioFile.dat"; //percorso del mio file
  dimensioneMassimaParole = 10; //dimensione massima di una parola
Type
  parole = file of string[dimensioneMassimaParole]; //creo il mio tipo di file
Var 
  mioFile : parole; //il file
  dimensioneF : Integer; //numero di elementi nel file
  indice : integer ;  //indice del record del file da leggere
  buff : String[dimensioneMassimaParole] //variabile temporanea dove salvare la stringa
 
Begin
 
//Apro il file
  Assign(mioFile,Path);
  If FileExists(Path) Then 
     Reset(mioFile) //apre il file in lettura E scrittura
  Else
     Rewrite(mioFile); //creo il file in lettura E scrittura
  //appena aperto il mio file è in posizione del primo record (numero 0 )
  //che sia stato cerato o aperto
  
//ora estraggo una stringa a caso dal file
  dimensioneF := filesize(mioFile); //restituisce il NUMERO DI ELEMENTI
 
  If dimensioneF <> 0 then //se il file non è vuoto
    Begin
    //ora genero un numero casuale
    Randomize(); //inizzializzo il generatore
    indice := Random(dimensioneF); 
    // genera un numero compreso fra 0 e dimensioneF -1
    // N.B. il record il posizione dimensioneF è un record vuoto!!!!
    Seek(mioFile,indice); //sposto il mio file nel record numero indice
    read(mioFile,Buff); //leggo la stringa
    End
  Else
    Writeln('il file è vuoto!!!!!');
 
  Writeln(buff); //scrivo a video la stringa
End.

Ultima modifica effettuata da subazu il 03/02/2012 alle 20:53

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 21:19
Venerdì, 03/02/2012

La sintassi corretta per utilizzare i file binari, è quella di definire un tipo apposito.

Nel caso specifico di Luca95, addirittura bisogna trasportare le parole in un file binario.
Il risparmio di tempo, si riduce a poche frazioni di secondo, se non nullo.

Ultima modifica effettuata da Poggi Marco il 03/02/2012 alle 21:23

Pagine: [ 1 2 ]