Sinon, tu as une autre méthode si ton texte ne fait pas des kilomètres. Le split :
dim t() as string
t = split(TonTexte," ")
et tu l'interroges comme ça :
dim i as integer
for i = 0 to ubound(t)
if t(i) like TonMot & "*" then
msgbox "trouvé"
exit for
endif
next
tu peux même compter le nombre de fois que tu le trouves
dim i as integer
dim cpt as integer
cpt = 0
for i = 0 to ubound(t)
if t(i) like TonMot & "*" then
cpt=cpt +1
endif
next
j'utilise like au lieu de =, comme ça tu peux aussi trouver les les "commençant par".
et puis, si les ponctuations te gènent, avant tu fais :
TonTexte = replace(TonTexte, ".","")
TonTexte = replace(TonTexte, ",","")
TonTexte = replace(TonTexte, "!","")
TonTexte = replace(TonTexte, "?","")
etc....
encore plus loin, quand tu effaces un "!" par exemple dans "hue ! au galop" il te reste un double espace que tu peux remplacer par 1 seul :
TonTexte = replace(TonTexte, " "," ")
"la partie de charles est la face avant de ....." comme string
et que je cherche "les" il me donnes "charles"
je voudrais qu'il rechere uniquement "les"
c'est un exemple bien sur
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Une virgule?
Et un point, et un point d'exclamation, etc.
Il faudrait, si tu veux seulement les mots, t'assurer qu'il y a un symbole qui n'est pas une lettre avant et apres le string (sauf si le mot commence ou finit la chaine). sans avoir a refaire le test 204^2 fois!
Il faut donc que le code de caractere ASCII avant et apres le mot trouvé ne soit pas plus grand que celui qui représente la plus grande lettre, et pas plus petit que le code repr/sentant "a". (Avec les fonction Asc et Mid)
C'est le seul moyen que je vois personnellement...