A voir également:
- Sql extraire chaine separateur
- Delphi extraire sous-chaine - Meilleures réponses
- Extractstrings delphi - Meilleures réponses
- Decouper des chaine de caractéres qui sot séparés par des virgules - Forum - SQL
- SQL : Extraction de chaine de caractères à partir d'une occurence ("Separator&qu - Guide
- Extraire parti numérique d'une chaine alphanumérique ✓ - Forum - SQL
- Extraction de données d'une String ✓ - Forum - Java
- Extraction d'une chaine de caractère ✓ - Forum - C# / .NET
5 réponses
Tu peux utiliser les TStringList qui permettent facilement cela.
Je n'ai pas Delphi sous les yeux , donc je peux pas te dire le nom de la propriété tout de suite...
j!nH
Je n'ai pas Delphi sous les yeux , donc je peux pas te dire le nom de la propriété tout de suite...
j!nH
oups mon exemple n'a pas marché
je voulais mettre un exemple dans le genre:
merci,de,,,,,,,votre,,,aide
avec ',' comme caractere de separation
merci jinh pour ta reponse je vais aller voir comment fonctionne TStringList
je voulais mettre un exemple dans le genre:
merci,de,,,,,,,votre,,,aide
avec ',' comme caractere de separation
merci jinh pour ta reponse je vais aller voir comment fonctionne TStringList
Si tu n'avais qu'un seul caractère séparateur un code comme
aurait suffit.
Comme tu veux des choses plus compliquées tu peux passer par une bibliothèque d'expressions rationnelles comme .html http://regexpstudio.com/FR/TRegExpr/Help/About.html
MonStringList.Delimiter := ','; MonStringList.DelimitedText := 'merci,de,,,,,,,votre,,,aide';
aurait suffit.
Comme tu veux des choses plus compliquées tu peux passer par une bibliothèque d'expressions rationnelles comme .html http://regexpstudio.com/FR/TRegExpr/Help/About.html
Je vais tenter de faire une fonction de mon coté..si ca t'interesse je peux te tenir au courant...
j!nH
j!nH
salut,
merci pour votre aide a tous.
J'ai réussi à faire une petite fonction qui fait ce que je veux, le code est pas tres propre mais bon. Voila ce que j'ai fait:
begin
champ:='';
j:=1;
fin:=length(ligne);
while (j<fin) do
begin
sp:=Pos(' ',ligne);
if ( sp = 0 ) then sp:=3;
champ:=champ+copy(ligne,1,sp);
delete(ligne,1,sp);
ligne:=trim(ligne);
j:=j+sp;
if (ligne ='') then j:=fin;
end;
Result:=champ;
end;
Ca ne marche qu' avec des ensembles d'espace.
merci pour votre aide a tous.
J'ai réussi à faire une petite fonction qui fait ce que je veux, le code est pas tres propre mais bon. Voila ce que j'ai fait:
begin
champ:='';
j:=1;
fin:=length(ligne);
while (j<fin) do
begin
sp:=Pos(' ',ligne);
if ( sp = 0 ) then sp:=3;
champ:=champ+copy(ligne,1,sp);
delete(ligne,1,sp);
ligne:=trim(ligne);
j:=j+sp;
if (ligne ='') then j:=fin;
end;
Result:=champ;
end;
Ca ne marche qu' avec des ensembles d'espace.