Récuperer une partie d'un mot

Question

Bonjour,


Je souhaiterai savoir comment r&#233;cuperer une partie d'un mot et le mettre par ex dans une listbox, par ex :


mottrucmot : si truc est pr&#233;sent, mettre mottrucmot dans la list box


A savoir qu'il y a une serie de mot dans une liste


cad :


ggrtruczez


frgdsgsdh


dfdgtrucere

J'esp&#232;re quej 'ai &#233;t&#233; clair et merci d'avance

micmerle · Answer

Salut,
Si c'est en VBA, tu peux essayer Like.
Ex: If "ggrtruczez" Like "*truc*" Then...
Michael

NHenry · Answer

Bonjour

Ou tu peux voir avec InStr(..)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Tuning Max · Answer

Je te conseillerais pour ma part plutot l'utilisation des fonctions

Dim var, MyString As String, SearchW As String


MyString = "mottrucmot"
SearchW = "truc"
var = Mid(MyString, InStr(Len(SearchW), MyString, SearchW, 1), Len(SearchW))

Lucyberad · Answer

sinon il y as rien de mieux que les regex (expression reguliere) pour ca. et de loin, c'est un outil totalement fais pour !
si ca t'interresse, j'essairai de trouver un lien pour ca (et si tu connait pas bien sur, mais tu connait pas sinon tu l'aurait utilis&#233; ^^)
par contre attention: c'est vraiment pas simple a debuter dedans !

<hr size="2" width="100%">
L U C Y I3 E R @ D

NHenry · Answer

Bonjour

Si c'est du .NET (parce que la on ne sait pas) il est possible de rechercher avec IndexOf(...)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

econs · Answer

Salut,



Voici un exemple de code pour faire &#231;&#224; (en VB6) :

Private Sub AjouterLeMot(sMot As String, sMotPresent As String,lst As ListBox)



    If Instr(1,sMot,sMotPresent) > 0 Then

        lst.Additem sMot

    End If



End Sub






Et ensuite, tu l'appelles comme ceci :



AjouterLeMot "dhsgftrucdsf" , "truc" , List1




Manu

cs_zitoun · Answer

Hum &#231;a marche pas, peut etre parce j'ai pas &#233;voqu&#233; les deux listbox :

En fait le mot &#224; chercher est dans une listbox et la liste o&#249; il y a tous les mots sont aussi dans une listbox :

truc                                             fdsdftruc
bla                                              dsfsdfsdf
                                                   tgdgsgtruc
                                                   sqdsbla

Quelque chose dans ce genre la, donc &#231;a fait qu'il faut prendre la premi&#232;re ligne de la 1ere listbox aussi.
Si on trouve le mot dans un mot dans la 2e listbox, par ex fdsdftruc se trouvera dans une troisieme liste, et ainsi de suite.

econs · Answer

Et bien, tu utilises ma proc&#233;dure comme ceci :



AjouterLeMot List1.List(j), List2.List(k), List3



En faisant varier j et k pour obtenir chaque &#233;l&#233;ment de tes deux premi&#232;res ListBoxes.

Manu

econs · Answer

Si, dans ton sch&#233;ma ci-dessus, List1 est &#224; gauche et List2 &#224; droite :







Dim j As Long

Dim k As Long



    List3.Clear

    For k = 0 To List2.ListCount - 1

        For j = 0 To List1.ListCount - 1

            AjouterLeMot List2.List(k) , List1.List(j) , List3

        Next j

    Next k

Manu

jrivet · Answer

Salut,

Il semblerait que tu es pas mal de difficult&#233; pour &#234;tre clair dans ton explication...  les fssqddsftruc et autres, c est pas tr&#232;s explicite... (je dis &#231;a mais &#231;a se trouve je ne vais pas &#234;tre mieux)

En utilisant la fonction de 100635  econs et en l'applicant &#224; ce que j'ai cru comprendre de ton probl&#232;me .
ATTENTION Tu peux certainement faire mieux, mais c est juste un exemple
Soit List1 ta listbox contenant les mots &#224; tester et List2 la liste qui contient LE (ou les d'ailleurs il faudrait preciser) et list3 le resultat.
Private Sub List2_Click()
Dim i as integer

For i  = 0 to List1.ListCount
   Call AjouterLeMot(List1.List(i), List2.List(List2.ListIndex), List3)
next

End Sub

Voila en esp&#233;rant avoir pu te d&#233;panner
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Re,

Pas assez rapide petit scarab&#233;e 
tant pis j'esp&#232;re au moins que j'ai pas trop taper &#224; cot&#233; de la plaque.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_zitoun · Answer

Dsl  si je n'ai pas &#233;t&#233; tr&#232;s "explicite" alors, j ai du mieux maintenant j ai un 0 qui s affiche ds la troisieme liste

Jai mis ce code dans un bouton aussi, alors peut etre que je peux pas j en sais rien.

Voila ce quej ai com code :
Private Sub Command7_Click()
Dim i As Long
Dim j As Long


For i = 0 To List1.ListCount - 1 '1ere liste ou il y a le mot a rechercher
List1.ListIndex = i
   For j = 0 To List2.ListCount - 1 '2e liste ou il y a la liste des mots
   List2.ListIndex = j
     
           If InStr(1, j, i) > 0 Then
              List3.AddItem j 
           End If
   End Sub

cs_zitoun · Answer

Next j
Next i

j lavais mis ds le code

econs · Answer

If InStr(1, j, i) > 0 Then

      List3.AddItem j 

End If



Quand on traduit ceci, &#231;&#224; signifie :



Si, dans le nombre j, je trouve le nombre i, alors j'ajoute le nombre j &#224; List3.

Ce n'est pas ce que tu souhaites faire.



ma proc&#233;dure (d&#233;pos&#233;e &#224; 13h48) fait l'op&#233;ration correctement.



Utilises :

List1.List(i)

List2.list(j)

pour r&#233;cup&#233;rer les mots qui se trouvent aux indices i et j de List1 et List2.






Manu

Récuperer une partie d'un mot

14 réponses

Discussions similaires