Header
[Delphi] - Formattare un campo CSV
in: Delphi  So/Code: Generico Data: 04/06/2012
Ora: 14.49:49
Articolo visualizzato: 2802 volte

Di seguito una piccola funzione per formattare correttamente una campo CSV nel caso in cui contenga il separatore (;) o la quota ( " ).

La funzione restituisce il camo correttamente formattato nel caso in cui ci sia bisogno. http://it.wikipedia.org/wiki/Comma-separated_values

  1. function CsvQuotedStr(const S: string): string;
  2. var
  3.   I: Integer;
  4.   A: Boolean;
  5. begin
  6.   Result := S;
  7.   A := False;
  8.   for I := Length(Result) downto 1 do begin
  9.     if Result[I] = '"' then begin
  10.       Insert('"', Result, I);
  11.       A := True;
  12.     end;
  13.  
  14.     if Result[I] = ';' then
  15.       A := True;
  16.   end;
  17.  
  18.   if A then
  19.     Result := '"' + Result + '"';
  20.  
  21. end;

Commenti Commenti (0) | User Autore: Guido Camerlingo (Guiz)
Tags: delphi function funzione quoted str csv format formattare campo csv





Articoli Correlati
[Delphi] - Formattare un campo CSV
Delphi - last and first day of the month
[Delphi] - Simulare un Array Associativo in Delphi con le TStringList
[DELPHI] - Intercettare Memory Leaks
Delphi - case with string

Commenti

Scrivi Commento
Codice Verifica

Commento massimo 5000 caratteri.(Tutti i campi contrassegnati da * sono obbligatori).

   

Ricerca

Glossario Naviga nel nostro glossario!
Scopri il gergo dei Geek!


 ULTIMI ARTICOLI

457 giorni fa
678 giorni fa

 [EN] Last Articles

 Siti Amici

Visita il Blog Roll
Contattaci! Diventa nostro amico!



 Hot Downloads


 Categorie

85
163
58
87
13
2
20
36
1
2
5
5
128
7
24
15
62
45

 Code

11
11
3
6
2
24
1
7

 Games

19
45
13

 GUIDE


 Novità Downloads

71
69
3863

 Tags Cloud

E Triton cydia cydia Ink due in annunciato più annunciato 10.1 10.1 annunciato cydia E gadget italiano tradurre



 CopyRight

Valid XHTML 1.0 Transitional CSS Valido! [Valid RSS] Creative Commons License


Geek-Blog by Flavio Mandato, Giuseppe Vaccaro, Guido Camerlingo, Stefano Natale, Domenico Cavallo is licensed under a Creative Commons Attribuzione-Non opere derivate 2.5 Italia License.
Based on a work at www.geek-blog.it.
Permissions beyond the scope of this license may be available at http://www.geek-blog.it/

Disclaimer - Responsabilità - Pagina generata in 0.062 secondi. Geek-Blog.it