changer le type de separateurRésolu

Question

bonjour ,

j'utilise une fonction pour sauvegarder un stringgrid dans un fichier mais en fait cette fonction me met un separateur "," entre chaque champs et moi je voudrait le remplacer par une tabulation.
quel parametre puis-je mettre a la place de "commatext" pour obtenir une tabulation plutot qu'une virgule ?

je vous met la fonction ci-dessous , si quelqu'un a une idee je suis prenneur .
merci d'avance.

{------------------------------------------------------------------------------}
{                       Fonction de sauvegarde du fichier                      }
{------------------------------------------------------------------------------}
function SaveToCSV:Boolean;
const
SeparTab    = Chr(9);

var
  SD : TSaveDialog;
  I : Integer;
  CSV : TStrings;
  FileName : String;
begin
  Try

  If Form1.SaveDialog1.Execute = True Then
  Begin

    FileName := Form1.SaveDialog1.FileName;
    If Copy(FileName,Pos('.',FileName),Length(FileName)-Pos('.',FileName)+1) <> '.ini' Then FileName := FileName + '.csv';
    Screen.Cursor := crHourGlass;
    CSV := TStringList.Create;
    Try
     For I := 0 To Form1.StringGrid1.RowCount - 1 Do CSV.Add(Form1.StringGrid1.Rows[I].Commatext);
      CSV.SaveToFile(FileName);
      Result := True;
    Finally
      CSV.Free;
    End;
  End;

  Finally
    Form1.SaveDialog1.Free;
    Screen.Cursor := crDefault;
  End;
end;

florenth · Accepted Answer

En gros, cela donne :
   CSV := TStringList.Create;
     Try 
    
      For I : = 0 To Form1.StringGrid1.RowCount - 1 Do 
      Begin
        Form1.StringGrid1.Rows[I].Delimiter :=  #9;
        CSV.Add(Form1.StringGrid1.Rows[I].DelimitedText
); 
      End;

      CSV.SaveToFile(FileName);
      Result := True;

     Finally 
      CSV.Free;
    End;
  End;
<hr size ="2" width="100%">Et l&#224; &#231;a marche.
NB: si tu as d&#233;j&#224; une tabulation dans la ligne (par ex, si CSV[3] := 'Hello' + #9 + 'World'), la propri&#233;t&#233; DelimitedText t'entourerra cette cha&#238;ne par des guillemets ou tout autre caract&#232;re d&#233;fini dans QuoteChar.

@ ++

Si tu ne te plantes pas ......
tu ne pousseras jamais

cs_jfs59 · Answer

StringGrid1.Rows[1].Delimiter
StringGrid1.Rows[1].DelimitedText

peut etre ...

Tout est en tout et r&#233;ciproquement ...

cs_99999 · Answer

StringGrid1.Rows[1].Delimiter
StringGrid1.Rows[1].DelimitedText
peut etre ...

non j'avais essayer &#231;a et &#231;a ne marche pas.

Delimiter me donne un fichier qu'avec une virgule sur chaque ligne
et 
delimitedText n'a l'air d'avoir aucun effet.

florenth · Answer

Alala,
Tu d&#233;finis Delimiter &#224; #9 (tabulation) et tu lis DelimitedText et l&#224;, tu as ce eue tu veux.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

cs_99999 · Answer

merci florenth  &#231;a marche .

Par contre il va falloir que je trouve comment declarer le QuoteChar comme tu m'explique dans ton NB car je ne veux pas des guillements  qui entoure les tabulations.

merci.

florenth · Answer

Tu peux mettre autre chose que des guillemets entre tes cha&#238;nes en sp&#233;cifiant QuoteChar mais tu ne peux pas mettre #0 (c-&#224;-d rien).
Si tu veux uniquement s&#233;parer tes cha&#238;nes par une tabulation, il faut que tu d&#233;finisse toi m&#234;me ta m&#233;thode.
Mais puisque c'est pour y enregistrer dans un fichier, c'est pas bien important, non ?

cs_99999 · Answer

c'est genant si je ne peux pas mettre la valeur rien...car en faite c'est important ;
ce fichier est relu apres dans un autre logiciel et il faut que les champs soit separer que par des tabulations .
certaines valeurs de champs sur les lignes sont entre guillemets et doivent le rester  mais le faite que des guillemets soit rajouter sur mes champs vides me pose probleme.

cs_jfs59 · Answer

Bon .. va falloir r&#233;viser ma fa&#231;on de r&#233;pondre aux questions ... 

------------------------------
Tout est en tout et r&#233;ciproquement ...

cs_99999 · Answer

j'oubliais , 

pour ouvrir mon fichier j'utilisele code source de cette page et il gere a l'ouverture les tabulations ou autre separateur mais mon niveau de programmation ne m'a pas permit d'exploiter correctement ce qui existe deja , c'est pourquoi j'utilise une autre fonction pour sauvegarder qui a mon avis n'est pas adapter a ce que je veux...

cs_99999 · Answer

Bon .. va falloir r&#233;viser ma fa&#231;on de r&#233;pondre aux questions ...

J'aurais du aussi preciser que je debute ...

florenth · Answer

@ jfs59: C'est sur qu'avec une petie phrase, il aurait bien mieux compris...

@ 99999: Si tu veux s&#233;parer uniquement par une tabulation, c'est &#224; toi d'&#233;crire une fonction de sortie.
Tiens, je suis g&#233;n&#233;reux aujourd'hui (a cause des vacances ?!)
  function  ExtractWithTabs(S: TStrings): string;
const
  SPACE: array[Boolean] of string[1]  = (#9, '');
var
  I: Integer;
begin
  Result :=  EmptyStr;
   for  I : = 0 to S.Count - 1 do    Result :Result + S[I] + SPACE[I S.Count - 1];
 end ;
<hr size ="2" width="100%">Et voila !!
Tu remplaces donc 
 Form1.StringGrid1.Rows[I].Delimiter := #9;
CSV.Add(Form1.StringGrid1.Rows[I].DelimitedText
); 
 par : 
CSV.Add(ExtractWithTabs(Form1.StringGrid1.Rows[I]));

NB: Un d&#233;tail: nomme tes composants, &#231;a t'aidera pour plus tard je t'assure.

Si tu ne te plantes pas ......
tu ne pousseras jamais

cs_99999 · Answer

merci encore une fois florenth , c'est nickel maintenant , je n'y serais pas arriver sans toi .
je vous remercie grandement de votre aide.
bonne fin de week end a vous.

Changer le type de separateur

12 réponses

Votre réponse

Discussions similaires