Sous-chaine indépendante des autres Sous-chaines [Résolu]
Nadirbachire
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
A voir également:
- Delphi matchstr
- Chaine independante - Meilleures réponses
- Matchstr delphi - Meilleures réponses
- Conversion d'un nombre entier en une chaine de caractère - Forum - Visual Basic
- 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)
2 réponses
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
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;
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
-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
- Messages postés
- 429
- Date d'inscription
- samedi 17 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2019
16 > Nadirbachire- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
-et Bravo...
L'utilisation de MatchStr (AnsiMatchStr sous D7) est astucieuse.
Joli code !
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
> korgis- Messages postés
- 429
- Date d'inscription
- samedi 17 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2019
-- Messages postés
- 429
- Date d'inscription
- samedi 17 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2019
16 > Nadirbachire- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Statut
- Membre
- Dernière intervention
- 25 août 2016
-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" ! ;-)