Discussion :

[kirua2150]

Bonjour à tous,

J'utilise un fichier csv (très mal construit) pour récupérer des données et j'ai besoin de séparer une chaine de caractère.
Les valeurs de la chaine que je récupère sont séparées par un nombre variable d'espace et j'aimerais mettre des ; à la place.

Par exemple :

Code :

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

1
2
 
format('aaaa        bb      cc d      ee    f               g:');

donnerait : 'aaaa;bb;cc;d;ee;f;g:'

J'ai essayé la fonction replacestring mais je suis coincé par le nombre variable d'espace.

Si quelqu'un voit une solution pas trop compliqué, sachant que je ne peux pas modifier le fichier csv.

merci

[Graffito]

Bonjour,

on peut faire ceci :

Code :

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

1
2
3
4
5
6
destline:='' ;
For i:=1 to length(sourceline) do 
     if sourceline[i]<>' ' 
        then destline:=destline+sourceline[i]
        else if (length(destline)=0) or (destline[length(destline)]<>' ') 
                 then destline:=destline+';' ;

[DMO]

Salut,

Tu peux utliliser un TStringList si tu veux, ce pourrait être pratique si tu dois traiter chaque valeur de champ.

Voilà dans l'idée :

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
19
20
21
22
23
24
25
26
function TForm1.DecouperLigne(const Ligne: String): String;
var
  vIndice: Integer;
begin
  with TStringList.Create do
    try
      Delimiter := ' ';
      DelimitedText := Ligne;
 
      for vIndice := Count-1 downto 0 do
        if Strings[vIndice] = EmptyStr then
          Delete(vIndice);
 
      {Bon je renvoie ce que tu demandes, mais tu peux traiter ici chaque valeur de Strings[indice de colonne]}
 
      Delimiter := ';';
      Result := DelimitedText;
    finally
      Free;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DecouperLigne('aaaa        bb      cc d      ee    f               g:'));
end;

[Bloon]

Le mieux est de faire une fonction :

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
19
20
21
22
23
24
25
26
27
function WSVToCSV(const s : string) : string;
var
  i, n : integer;
begin
  i := 1;
  n := length(s);
  result := '';
  while (i <= n) do
  begin
    // si pas blanc, on ajoute le caractère
    if (s[i] <> ' ') then
    begin
      result := result + s[i];
      inc(i);
    end
    // si blanc...
    else
    begin
      // ... on ajoute un ; ...
      result := result + ';';
      inc(i);
      // ... et on saute les éventuels blancs qui suivent
      while (i <= n) and (s[i] = ' ') do
        inc(i);
    end;
  end;
end;

Bloon

[kirua2150]

merci pour les différentes réponses.
Je testerais demain.