Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: ffabio - Marzo 23, 2016, 04:47:08 pm

Titolo: file di testo carattere FF
Inserito da: ffabio - Marzo 23, 2016, 04:47:08 pm
Ciao ragazzi, sto aprendo un file di testo .

In questo file trovo il carattere speciale FF . (Salta pagina).
Vorrei leggere ogni pagina per poterla dividerla in tanti file.
nella riga 9 di ogni pagina ho di chi è quella pagina.

es: Fabio,Marco ecc..
quindi vorrei crearmi tanti file quanti sono i nomi che contengono le loro pagine.

Qualcuno ha qualche idea ???
Titolo: Re:file di testo carattere FF
Inserito da: nomorelogic - Marzo 23, 2016, 06:33:18 pm
sarà l'ora tarda ma non ho capito bene :)
devi splittare un file di testo in N file a seconda di quando c'è un carattere FF?

se non è un problema posta un esempio di file da splitatre
Titolo: Re:file di testo carattere FF
Inserito da: ffabio - Marzo 24, 2016, 09:43:28 am
Esatto nomorelogic. Come dici tu .
Ti mando un esempio di file .
nel file come vedi ho due volte il sig. luca bianchi .

Vorrei come risultato finale avere tre file . uno per la rossi uno per farinelli e uno per bianchi luca.

Quello di bianchi luca deve avere due pagine .



Titolo: Re:file di testo carattere FF
Inserito da: nomorelogic - Marzo 24, 2016, 12:01:01 pm
il codice non l'ho provato, ma tenterei questa strada
se funziona e/o fai aggiustamenti facci sapere ;)

Codice: [Seleziona]
procedure Split(value: string);
var sl, sl2: TStringList;
     i: integer;
begin
   sl:=TStringList.Create;
   sl2:=TStringList.Create;

   sl.Clear;
   sl.StrictDelimiter := true;
   sl.Delimiter := #$FF;
   sl.DelimitedText := value;

   for i:= 0 to sl.Count -1 do begin
      sl2.Text:=sl[i];
      sl2.SaveTofile('pagina_' + IntToStr(i) + '.txt' );
   end;

   sl2.Free;
   sl.Free;
end;
Titolo: Re:file di testo carattere FF
Inserito da: ffabio - Marzo 24, 2016, 12:12:26 pm
Grazie nomorelogic ... lo provo subito.