begin process at 2012 02 11 11:16:10
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > RECHERCHER UN MOT DANS UN TEXT

RECHERCHER UN MOT DANS UN TEXT


 Information sur la source

Note :
5,25 / 10 - par 4 personnes
5,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :11/04/2002 Date de mise à jour :11/04/2002 21:21:02 Vu :3 996
Auteur : Ylaosusdiande

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

C'est un peux difficile de chercher un mot dans un text voilà une astuce, il vous faut:
>>form
>>text1 contenant un texte contenant le mot "bonjour"
>>command1  

Source

  • Private Sub Command1_Click()
  • Dim aa As Integer
  • nom = "bonjour"
  • On Error GoTo erreur
  • aa = InStr(1, Text1, nom, vbTextCompare)
  • bb = Len(nom)
  • zz = Mid(Text1, aa, bb)
  • MsgBox zz
  • Exit Sub
  • erreur:
  • MsgBox "il n'y a pas:" & nom & " dans ce texte."
  • End Sub 
Private Sub Command1_Click()

Dim aa As Integer
nom = "bonjour"
On Error GoTo erreur
aa = InStr(1, Text1, nom, vbTextCompare)
bb = Len(nom)
zz = Mid(Text1, aa, bb)
MsgBox zz

Exit Sub

erreur:
MsgBox "il n'y a pas:" & nom & " dans ce texte."

End Sub



 Sources du même auteur

LIRE UNE COULEUR
LIRE UN FICHIER
ECRIRE DANS UN FICHIER
AJOUTER DES OBJETS
Toutes les sources de Ylaosusdiande

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna
Toutes les sources de la catégorie Trucs & Astuces

Commentaires et avis

Commentaire de Tortuegeniale le 11/04/2002 23:51:13

y a plus simple, il faut 2 textbox et 1 bouton

Private Sub Command1_Click()
If InStr(Text1.Text, Text2.Text) Then' cherche
MsgBox "le mot " & Text2.Text & " est dans le texte" ' si oui
Else
MsgBox " Le mot " & Text2.Text & " n'est pas dans le text" ' si non
End If
End Sub

Commentaire de Ylaosusdiande le 12/04/2002 18:03:37

tu l'as eu cette fois malin!!!!!!!!!!!!!!!!!

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos 7 home tablet - 2 Go
Entre 149€ et 159€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,778 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)