Sous-chaine indépendante des autres Sous-chaines [Résolu]
Nadirbachire
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Dernière intervention
- 25 août 2016
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- Dernière intervention
- 25 août 2016
A voir également:
- Delphi matchstr
- 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
- 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;
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- 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
- 423
- Date d'inscription
- samedi 17 mai 2003
- Dernière intervention
- 4 août 2018
> Nadirbachire- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- 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
- Dernière intervention
- 25 août 2016
> korgis- Messages postés
- 423
- Date d'inscription
- samedi 17 mai 2003
- Dernière intervention
- 4 août 2018
-- Messages postés
- 423
- Date d'inscription
- samedi 17 mai 2003
- Dernière intervention
- 4 août 2018
> Nadirbachire- Messages postés
- 5
- Date d'inscription
- vendredi 19 août 2016
- 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" ! ;-)