Francis-mr
Nombre de messages : 186
Date d'inscription : 26/11/2012
 | | Sujet: Objet LIST Lun 25 Oct 2021 - 10:04 | |
| Bonjour,
Depuis un moment j’avais délaissé Panoramic, mais après l’annonce attrayante du dernier post de Jack, je me suis mis à reprogrammer un peu.
Et je bute sur un problème : comment savoir si un mot existe, ou pas, dans le texte d’un objet List ?
Cela a peut-être déjà été évoqué sur le forum, mais je n’ai pas trouvé.
Merci d’avance pour votre réponse. | |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Objet LIST Lun 25 Oct 2021 - 11:07 | |
| Bonjour Francis_mr ! Voici un exemple que je te propose : - Code:
-
dim motRecherche$, rang%
motRecherche$ = "jeudi"
list 1
item_add 1,"lundi"
item_add 1,"mardi"
item_add 1 ,"mercredi"
item_add 1,"jeudi"
item_add 1,"vendredi"
item_add 1,"semedi"
item_add 1,"dimanche"
if count(1) > 0
for rang% = 1 to count(1)
if item_read$(1,rang%) = motRecherche$
message "Le mot " + chr$(34) + motRecherche$ + chr$(34) + " existe déjà à la ligne " + str$(rang%)
end_if
next rang%
end_if
Attention : la recherche est sensible à la casse ! En espérant que cela réponde à ton souhait. Bonne programmation ! La recherche est sensible à la casse. | |
|
Francis-mr
Nombre de messages : 186
Date d'inscription : 26/11/2012
| | Sujet: Re: Objet LIST Lun 25 Oct 2021 - 11:28 | |
| @Marc
Merci de ta réponse.
Mais je voudrais savoir si le mot existe dans le texte d’une ligne. | |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Objet LIST Lun 25 Oct 2021 - 11:39 | |
| Pardon, j'ai mal interprété la consigne ! Voici un autre exemple qui devrait mieux correspondre à ton attente : - Code:
-
dim motRecherche$, rang%
motRecherche$ = "jeudi"
list 1
item_add 1,"Le lundi matin"
item_add 1,"Le mardi matin"
item_add 1,"Le mercredi après-midi"
item_add 1,"Le jeudi matin"
item_add 1,"Le vendredi soir"
item_add 1,"Le semedi midi"
item_add 1,"Le dimanche toute la journée"
if count(1) > 0
for rang% = 1 to count(1)
if instr(item_read$(1,rang%),motRecherche$) > 0
message "Le mot " + chr$(34) + motRecherche$ + chr$(34) + " existe déjà à la ligne " + str$(rang%)
end_if
next rang%
end_if
| |
|
Francis-mr
Nombre de messages : 186
Date d'inscription : 26/11/2012
| | Sujet: Re: Objet LIST Lun 25 Oct 2021 - 11:54 | |
| Encore merci Marc, cela correspond entierement à mon attente  | |
|
Calendrier