Sous-chaine indépendante des autres Sous-chaines [Résolu]
Nadirbachire
Membre Dernière intervention
25 août 2016
- - Dernière réponse :
Nadirbachire
Membre Dernière intervention
25 août 2016
- 25 août 2016 à 19:20
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
A voir également:
- Delphi matchstr
- Chaine independante - Meilleures réponses
- Matchstr delphi - Meilleures réponses
- Formatez vos chaines de caractères grâce à la fonction format - Conseils pratiques - Delphi
- Les chaînes de caractères (les tokens) - Conseils pratiques - IRC
- Envoyer des chaînes unicode sur le réseau - Conseils pratiques - Delphi
- Recupértaion d'une chaîne de caractères dans une autre - Codes sources - Visual Basic / VB.NET (Texte)
- Récupere une chaine de caracteres dans une autre (à droite) - Codes sources - Visual Basic / VB.NET (Texte)
2 réponses
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
Salut
quelqu'un d'autre a trouvé mieux
pour info la classe TStringList possède deux propriétés (Delimiter et DelimitedText) qui te permet directement de donner ta chaîne sans avoir besoin de passer par un string replace.
code
TmpChaine:=TStringlist.Create;
TmpChaine.Delimiter:=' ';
TmpChaine.DelimitedText:=liste;
quelqu'un d'autre a trouvé mieux
pour info la classe TStringList possède deux propriétés (Delimiter et DelimitedText) qui te permet directement de donner ta chaîne sans avoir besoin de passer par un string replace.
code
TmpChaine:=TStringlist.Create;
TmpChaine.Delimiter:=' ';
TmpChaine.DelimitedText:=liste;
Si la sous chaine se trouvait au début ou a la fin de la chaine le compte sera tjr faux
donc Cette façon de faire avec des espaces ne résout pas le problème
a moins que nous combinons les 3 positions , mais moi je cherchais plus simple
La solution que j'ai trouvé est la suivante
procedure TForm1.Button1Click(Sender: TObject);
var
Nsc2,i:integer;
Chaine,Sc,liste:string;
TmpChaine:TStringlist;
begin
Nsc2:=0;
Chaine:=('DHDDHTTY AZ DD DHER DRFG T DH AZA ZYTDH');
TmpChaine:=TStringlist.Create;
liste := StringReplace(Chaine,' ',#13#10, [rfReplaceAll, rfIgnoreCase]);
TmpChaine.Text:=liste;
for i := 0 to TmpChaine.Count -1 do
if MatchStr('DH', [TmpChaine.Strings[i]])then
inc(Nsc2);
showmessage(inttostr(Nsc2));
TmpChaine.Free;
end;
Merci encore
et Bravo...
L'utilisation de MatchStr (AnsiMatchStr sous D7) est astucieuse.
Joli code !
En fait, je m'aperçois que l'utilisation de MatchStr est inutile : une comparaison directe entre 'DH' et TmpChaine.Strings[i]] est suffisante :
for i := 0 to TmpChaine.Count - 1 do if TmpChaine.Strings[i] = 'DH' then Inc(Nsc2);Ce qui est astucieux néanmoins est l'idée d'avoir remplacé les espaces vides par "#13#10" dans la chaîne pour créer facilement la StringList.
Je maintiens donc mon "Bravo" ! ;-)