Discussion :

[NGeVtC87]

Bonjour,

Je veux éditer un fichier CSV avec un programme sous Delphi. J'utilise un TSream pour écrire dans ce fichier.
Je voudrais pouvoir effectuer un retour à la ligne. J'ai essayé plusieurs solution en insérant les chaines '#13#10" ou bien '\n' mais sans résultat la chaine est copiée dans le fichier CSV au lieu d'effectuer un retour à la ligne.

Voici la partie de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  Stream := TFileStream.Create(_csvFile,fmCreate);
  Stream.Write(line1[1], Length(line1));
  Stream.Write('#13#10', Length('#13#10')*sizeof(char));
  Stream.Write(line2[1], Length(line2));

Auriez vous s'il vous plait s'il vous plait un solution à ce problème

Merci

[ShaiLeTroll]

je le fais souvent mais en ANSI (Windows-1252) utilise la constante sLineBreak

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
//------------------------------------------------------------------------------
function Txxx.ExportResult(AResultStream: TStream): Boolean;
var
  lCSVLine: TStringDynArray;
  lCSVLineText: AnsiString;
  ResultCount: Integer;
begin
  ...
      lCSVLineText := TAnsiStringThomHelper.ImplodeLazy(lCSVLine, CSVSeparator) + AnsiString(CSVSeparator + sLineBreak);
      AResultStream.WriteBuffer(lCSVLineText[1], Length(lCSVLineText) * SizeOf(AnsiChar));
 
...
end;

Sinon tu confonds la chaine '#13#10' et la suite de caratère #13#10 !

[SergioMaster]

Bonjour,

il y a aussi Writeline http://docwiki.embarcadero.com/Libra...iter.WriteLine mais sans indication de version de Delphi ...
je ne sais d'ailleurs pas quand Writeline est apparu

[ALWEBER]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  Stream := TFileStream.Create(_csvFile,fmCreate);
  Stream.Write(line1[1], Length(line1));
  Stream.Write('#13#10', Length('#13#10')*sizeof(char));
  Stream.Write(line2[1], Length(line2));

remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
var
  sl1 : TStringlist ;
begin
  sl1 := TStringlist.Create ;
  sl1.Add (line1[1]);
  sl1.Add (line2[1]);
  sl1.SaveToFile(_csvFile);
  sl1.Free ;

[ShaiLeTroll]

Le TStreamWriter n'existait pas en BCB2007 mais en BCB XE c'est sûr qu'il était disponible (je pense depuis 2009 mais non documenté)