estrarre dati da file.txt per inserirli in un db

[sergio]

Saluti a tutti , ho un problemino che mi sta assillando ! Devo estrarre dei dati da un file di testo che hanno come separatore (|). Alla fine della riga ci sono 3 separatori. Sono dati che non hanno sempre la stessa lunghezza , quindi io dovrei fare contare i separatori. Vi faccio un esempio ; 20|1010100|prova|12,10||| ; Dovrei poi inserirli in un database (Mysql o di qualsiasi altro tipo, anche DB).Potete darmi una dritta ? Vi ringrazio . 

[Maverich]

sOrigine := '20|1010100|prova|12,10||| ';

dovresti immagazzinare la stringa senza i separatori
sOrigine, sDestinazione: String;
i: integer;

potresti usare StringReplace per sostituire ! con spazio

Codice: [Seleziona]

 sDestinazione  := StringReplace(sOrigine, ' ! ', '  ', [rfReplaceAll, rfIgnoreCase]);

oppure fare un ciclo per eliminare un separatore alla volta,
una volta che hai le stringe senza separatori, non ci saranno problemi per inserirle in un db.
qualcosa di simile

Codice: [Seleziona]

 i := Pos( '!', sOrigine,)
 if i > 0 then
 begin
  sDestinazione := Copy(sOrigine, 1, i-1);
  sOrigine := Copy(sOrigine, 1 , i-1);
 end;

oppure cercare gli ultimi 3 sapratori

Codice: [Seleziona]

 i := Pos( '!!!', sOrigine,)

[xinyiman]

Guarda questo spezzone di codice, è un esempio di come affronto io il problema in questione!



var
   appfile: TStringList;
begin


appfile:=TStringList.Create();

     appfile.LoadFromFile(FileDati);
     appFile.SaveToFile(FileControllo);
     for i:=0 to AppFile.Count-1 do
     begin
          MyQuery.SQL.Text:='';
          MyQuery.SQL.Add('INSERT INTO T_Dati(Articolo,CodSerie,DescSerie,Img,DataCons,TitoloRep)VALUES("' + StringReplace(EstrapolaValoreNumero(appFile.Strings,0),'''','''''', [rfReplaceAll]) + '","' + StringReplace(EstrapolaValoreNumero(appFile.Strings,1),'''','''''', [rfReplaceAll]) + '","' + StringReplace(EstrapolaValoreNumero(appFile.Strings,2),'''','''''', [rfReplaceAll]) + '","' + StringReplace(EstrapolaValoreNumero(appFile.Strings,3),'''','''''', [rfReplaceAll]) + '","' + StringReplace(EstrapolaValoreNumero(appFile.Strings,4),'''','''''', [rfReplaceAll]) + '","' + StringReplace(TitoloRep,'''','''''', [rfReplaceAll]) + '");');
          MyQuery.ExecSQL;
     end;
     appfile.Free;
end;


function TForm1.EstrapolaValoreNumero(stringa: string; pos: integer): string;
var
   MiaStringa: TStringList;
   ret: string;
begin
     ret:='';
     MiaStringa := TStringList.Create;
     MiaStringa.Delimiter := '|';
     MiaStringa.QuoteChar := '';
     MiaStringa.DelimitedText := stringa;

     if ((pos>=0) AND (pos<MiaStringa.Count)) then
     begin
          ret:=MiaStringa[pos];
     end;
     MiaStringa.Free;
     EstrapolaValoreNumero:=ret;
end;

[sergio]

Grazie , ci provo e poi ti dico , penso che la soluzione di xinyiman
 vada meglio . Grazie Mille , per ora !!!!

[nomorelogic]

io sono più pigro...

farei una StrToStrings indicando '|' come separatore per avere in una TStringList d'appoggio tutti i campi già separati su ogni riga
poi hai:
campo1 = lista[0]
campo2 = lista[1]
campo3 = lista[2]
campo4 = lista[3]

il tutto dentro un loop che fa la scansione di tutte le righe del file di testo

[sergio]

Scusa Nomore , come intendi ? Mi puoi fare un esempio , non ho capito!!!

[nomorelogic]

qualcosa del genere:

Codice: [Seleziona]

var
   slSrc, slFields: TStringList;
   scan: integer;
   SQL: string;
begin
   slSrc := TStringList.Create;
   slFields := TStringList.Create;
   try
      slSrc.LoadFromFile('...filename...');
      for scan := 0 to slSrc.Count - 1 do
         begin
            slFields.Clear;
            StrToStrings(slSrc[scan], '|', slFields, False);
            SQL := Format('INSERT INTO TABLE (CAMPO1, CAMPO2, CAMPO3, CAMPO4) VALUES (''%s'', ''%s'', ''%s'', ''%s'');', 
                                     [ slFields[0], slFields[1], slFields[2], slFields[3] ]);
         end;
   finally
      slFields.Free;
      slSrc.Free;
   end;

end;

il problema è che StrToStrings la trovi nelle jedi (JCL per l'esattezza, unit JclStrings)... e emh... sembra che usarle in fpc non sia così immediato
però ho trovato una implementazione che secondo me si adatta facilmente e se ci perdi tempo (pochissimo, ad occhio per compilarla non ci vorrà molto) hai una ottima funzione che riuserai sicuramente...

Codice: [Seleziona]

procedure StrToStrings(const S, Sep: String; const List: TStringList; const AllowBlank: Boolean);
var
  I, J, L, M: Integer;
  Left: String;
begin
  if List <> nil then
    List.Clear;

  if (List = nil) or (S = '') or (Sep = '') then
    Exit;

  L := Length(Sep);
  M := Length(S);
  I := 1;
  J := PosEx(Sep, S, 1);
  while (J > 0) do begin
    Left := Copy(S, I, J - I);
    if (Left <> '') or AllowBlank then
      List.Add(Left);
    I := J + L;
    J := PosEx(Sep, S, I);
  end;
  if I < M then begin
    Left := Copy(S, I, M - (I - 1));
    if (Left <> '') or AllowBlank then
      List.Add(Left);
  end;
end;

Edit:
come sento la mancanza delle jedi...

[bonmario]

Ciao,
se non ricordo male:

Codice: [Seleziona]

var
obje: TStringList;
begin
  obje := TStringList.Create;
  obje.Delimiter := '|';
  obje.DelimitedText := '20|1010100|prova|12,10|||';

  Arrivati qui:
  obje[0] sarà = a 20
  obje[1] sarà = a 1010100
  e così via
end;

Ciao, Mario

[sergio]

Grazie a tutti , questa sera ci provo e vedo cosa esce . grazie a tutti !!!!!!

[Stilgar]

Provare questo?
http://wiki.freepascal.org/CsvDocument#Download
E modificare il separatore di campo da "," o ";" e metterlo "|"?
Nessuno si è accordo che è un CSV come formato? ( )

EDIT:
Bonmario è andato su una soluzione rapida

[Stilgar]

Interessante anche questo http://wiki.freepascal.org/CSV#CSV_and_SDF
Verso la fine dice che c'è già tutto pronto ... o quasi

[sergio]

Grazie Stilgar , questa sera ci provo , visto che il metodo proposto da xinyiman
mi da un errore nella valutazione dei dati '' StringReplace(EstrapolaValoreNumero(appFile.Strings,0)'' . Ma devo rinominare in '.csv il file ?
 

[Stilgar]

Non lo so.
So solo che gli articoli che ti ho indicato possono aiutarti a risolvere il problema.

[sergio]

Grazie 

[sergio]

Scusate , il componente CSV mi richiede la LCL 1.0.1 . Sapete dove posso trovarla ? Grazie