Recherche de texte dans un texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 794 fois - Téléchargée 36 fois

Contenu du snippet

Cet ASP est très utile pour faire des recherches de mots dans des lignes ou des fichiers.
Il y a deux paramètres :
txtBase est le texte dans lequel on fait la recherche,
txtRecherche est le texte que l'on désire chercher.
La fonction renvoit TRUE si le mot est trouvé, FALSE s'il n'est pas trouvé.

Source / Exemple :


' ------------------------------------------------------------------------
' renvoit True si le deuxième texte passé en paramètre est dans le premier
' ------------------------------------------------------------------------
Function fTexteInTexte(txtBase, txtRecherche)

Dim i

fTexteInTexte = FALSE

i = 1
Do While (i + Len(txtRecherche) <= Len (txtBase) + 1) And fTexteInTexte = FALSE
	If LCase(txtRecherche) = LCase(Mid(txtBase, i, Len(txtRecherche))) Then
		fTexteInTexte = TRUE
	End If
	i = i + 1
Loop

End Function

A voir également

Ajouter un commentaire

Commentaires

InStr fait la même chose ou presque. Il ressort -1 si la chaine n'est pas trouvée, la position du début si elle existe...
tu aurais pu passer deux paramètres un paramètres qui contient la position de début du mot et l'autre la position de fin

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.