Rechercher 1 caractere ds tt 1 texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 851 fois - Téléchargée 47 fois

Contenu du snippet

Rechercher 1 chr ds tt 1 texte et en connaitre toutes les positions ds ce meme texte

Source / Exemple :


Dim nbelement As Integer
Dim element(1000) As Integer    ' 1000 correspond o nombre max du nombre de positions trouvées lors de la recherche

Private Sub Command1_Click()
' text1.text est textbox contenant le texte de base
' text2.text est textbox contenant le texte a rechercher
rechtxt Text1.Text, Text2.Text
' pr afficher ttes les positions
' dim j
' for j=1 to nbelement
' .... = element(j)
' nextj
' pr afficher le nombre d'element
' ... = nbelement
End Sub

Private Sub rechtxt(txtbase As String, txtrech As String)
Dim dep
Dim i
Dim pos
dep = 1
nbelement = 0
For i = 1 To 1000    ' 1000 correspond o nombre max du nombre de positions trouvées lors de la recherche
element(1000) = 0
Next i
For i = 1 To Len(txtbase)
pos = InStr(dep, txtbase, txtrech)       ' recherche txtrech dans txtbase en debutant a la position dep ds la chaine de caractere de txtbase
If pos = 0 Then Exit For
nbelement = nbelement + 1
element(nbelement) = pos
dep = pos + 1
Next i
End Sub

Conclusion :


il fo text1 (textbox) et text2 (textbox) et d labels pr l'affichage d infos ...
c tout !

PS: cette source n'est ka titre informatif ! elle pt etre surement simplifiée mais pr 1 tt debutant cela pt etre utile d'aprendre la fonction instr.
'

A voir également

Ajouter un commentaire

Commentaires

Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

putain memere t partou !!!!!
tu doit pas m'avoir ds l'oeil car tu casse tt ce ke je fé !!!!!!!!!
m'enfin bon c pas toi ke ca va aider ! (o;p
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007

MOUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRRRRRRRRRFFFFFFFFFFFFFFFFFFFFF
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

Jos, oui ca serait bcp mieux !
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

Les 2 Dim tt en o sont a integrer ds les 2 premiere ligne du code sources de ton ton projet. C variables seront donc preparées pr tout le code et tu n'auras + besoin de les redimenssionées.
Voila.

pour lancer la recherche:
rechtxt txt1 , txt2 -> ou txt1 est le texte ou fo rechrcher le texte contenu ds txt2.
tu integre les 2 dim et la sub rechtxt entierement ds ton code (ou tu vx pr la sub)
et tu fé appel a rechtxt ... , ... qd t besoin.
les resultats de la recherche sont ds nbelement et element(x).
Messages postés
17
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
25 mai 2002

je suis débutant et je l'integre ou ton code ?
( les dim ???? )
Afficher les 6 commentaires

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.