Page 1 sur 1

[R] Tester si un mot existe dans un fichier.

Posté : jeu. 13 août 2009 18:51
par Eoweakin
Bonjour ! :D
Je voudrais savoir comment tester si un mot (imaginons 'chat' :) ) existe dans un fichier...
J'ai cherché dans la doc' mais peut-être pas assez... :roll:
Alors si quelqu'un peut m'aider... :wink:


Merci ! :mrgreen:

Re: [..] Tester si un mot existe dans un fichier.

Posté : jeu. 13 août 2009 19:17
par jbnh
Salut.

Regarde Stringinstr

Re: [..] Tester si un mot existe dans un fichier.

Posté : jeu. 13 août 2009 19:47
par Eoweakin
Mais euh... comment l'utiliser pour tester si le mot existe ? :roll:

Re: [..] Tester si un mot existe dans un fichier.

Posté : jeu. 13 août 2009 20:16
par orax

Code : Tout sélectionner

$mot="chat"
$texte = FileRead("fichier.txt")

$a=StringInStr($texte,$mot)
;~ ou bien :
;~ $a=StringRegExp($texte,"\b" & $mot & "\b",0) ; pour ne trouver que les "mots"

Re: [..] Tester si un mot existe dans un fichier.

Posté : jeu. 13 août 2009 20:24
par jumby

Code : Tout sélectionner

$1 = FileRead("chat.txt") ; placez ici l'adresse du fichier à tester.
$2 = StringInStr($1, "chat")
if @error or $2 = 0 Then
MsgBox(0, "Le mot chat n'a pas été trouvé.",  "Le mot chat n'a pas été trouvé.")
Else
MsgBox(0, 'Le mot chat a été trouvé.', 'Le mot chat a été trouvé.')
EndIf

[R] Tester si un mot existe dans un fichier.

Posté : jeu. 13 août 2009 20:40
par Eoweakin
Merci à vous deux ! :mrgreen: