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
- Matchstr delphi - Meilleures réponses
- Chaine independante - Meilleures réponses
- Parcourir une chaine de caractère python ✓ - Forum - Python
- Remplir un tableau de chaine de caractère en c ✓ - Forum - C / C++ / C++.NET
- Python chaine de caractère extraire - Forum - Python
- Inverser une chaine de caractere en java ✓ - Forum - Java
- Chaine de connexion sql server c# ✓ - Forum - C# / .NET
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
- 420
- Date d'inscription
- samedi 17 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2019
15 > 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
- 420
- Date d'inscription
- samedi 17 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2019
-- Messages postés
- 420
- Date d'inscription
- samedi 17 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2019
15 > 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" ! ;-)