Retrouver un mot dans une chaineRésolu

Question

Salut j'ai dans un fichier text des ligne que je reprend dans un string

Comment faire pour retrouver un mot dans le string

exemple :

le livre de la mer du nord est la venue de la ville ect.........

comment retrouver par exemple nord

Merci

cqui789 · Accepted Answer

utilise les espaces...


dim p as integer
p = instr(" " & Tastring & " " , TonMot)

if p>0 then msgbox(mid$(tastring,p+1, len(Tonmot)))

bon, il faut rajouter un test avec une virgule apres...

cs_CanisLupus · Answer

salut

dim p as integer
p = instr(Tastring, TonMot)

if p>0 then msgbox(mid$(tastring,p, len(Tonmot)))

Cordialement, CanisLupus

petiflamand · Answer

Sa marche en partie car quand tu fait par exemple

"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

ticomic · Answer

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&#233; ne soit pas plus grand que celui qui repr&#233;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...

(Corrigez-moi si je me trompe)

cqui789 · Answer

oui mais il faut aussi tenir compte des accents



trouver 'jet" dans 'La jet&#233;'



bon courrage

cs_CanisLupus · Answer

Sinon, tu as une autre m&#233;thode si ton texte ne fait pas des kilom&#232;tres. Le split :

dim t() as string
t = split(TonTexte," ")

et tu l'interroges comme &#231;a :
dim i as integer
for i = 0 to ubound(t)
   if t(i) like TonMot & "*" then
      msgbox "trouv&#233;"
      exit for
   endif
next

tu peux m&#234;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 &#231;a tu peux aussi trouver les les "commen&#231;ant par".

et puis, si les ponctuations te g&#232;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, "  "," ")

Cordialement, CanisLupus