Discussion :

[Debutant_pc]

Bonjour

Quand je cré un fichier .csv avec excel, opencalc ou un éditeur de texte,et que je le lis avec delphi, je peux détecter le saut de ligne en testant le caractère #10

Mais quand je télécharge un fichier .csv depuis yahoo finance (https://finance.yahoo.com/quote/GERN/history?p=GERN) impossible !

Il semble que #10 ne soit pas le caractère qui correspond au saut de ligne.

Donc j aimerai savoir comment détecter ce saut de ligne.

Question subsidiaire : Un éditeur de texte peut il afficher ce saut de ligne pk j utilise SublimeText et je ne vois rien...

Code :

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

1
2
3
4
5
6
7
8
while fStr.Read(ch, 1) = 1 do
begin
  if (ch = #13) then
  begin
    Memo1.Lines.Add('ligne');
    break;
  end;
end;

merci de votre aide

[Debutant_pc]

Bon je progresse, j ai trouvé la réponse à ma question.

Il faut tester #10 en lieu et place de #13

[ALWEBER]

Tu peux aussi utiliser un TStringlist et charger directement ton fichier par loadFromFile. Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.FormActivate(Sender: TObject);
Var
  sl1, sl2: TSTringList;
  i1: integer;
begin
  sl1 := TSTringList.Create;
  sl2 := TSTringList.Create;
  sl1.LoadFromFile('GERN.CSV');
  sl2.Delimiter := ',';
  for i1 := 1 to sl1.Count - 1 do
  begin
    sl2.DelimitedText := sl1[i1];
    ListBox1.Items.Add(sl2[0] +'|'+ sl2[1]);
  end;
  sl1.free ;
  sl2.free ;
end;

[Paul TOTH]

si je ne m'abuse, il est possible de faire un Memo1.Lines.LoadFromFile() après avoir fixé Memo1.Lines.LineBreak := #10

[Debutant_pc]

merci pour vos réponses.
Si j ai choisis ce mode afin de proceder à la lecture de fichiers c est qu ils sont parfois énormes et nécessitent un explode ce qui est rendu bien plus rapide en procédant ainsi et en testant individuellement chaque caractère.

[gbegreg]

Bonjour,

Les sauts de lignes dans les fichiers textes dépendent de l'OS. Sous Windows, le saut de ligne est la combinaison des caractères #13 (Cariage Return) et #10 (Line Feed). Sous Unix (et Linux), seul le Line Feed est nécessaire. Sur les anciennes versions de Mac OS (<= à Mac OS 9 il me semble) seul le Cariage Return était nécessaire.

Pour votre question subsidiaire, avec NotePad++ il est possible d'afficher les symboles spéciaux : menu Affichage / Symboles spéciaux et cocher "Afficher les symboles de fin de ligne".
Sous mon éditeur (GBEPad ) c'est via les options : rubrique "Editeur" puis cocher les cases "Caractères spéciaux" et "Détails".