Récuperer une partie d'un mot

Bonjour,

Je souhaiterai savoir comment récuperer une partie d'un mot et le mettre par ex dans une listbox, par ex :

mottrucmot : si truc est pré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ère quej 'ai été clair et merci d'avance

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

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é
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

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))

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é ^^)
par contre attention: c'est vraiment pas simple a debuter dedans !

---

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é
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Salut,

Voici un exemple de code pour faire çà (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

Hum ça marche pas, peut etre parce j'ai pas évoqué les deux listbox :

En fait le mot à chercher est dans une listbox et la liste où il y a tous les mots sont aussi dans une listbox :

truc                                             fdsdftruc
bla                                              dsfsdfsdf
                                                   tgdgsgtruc
                                                   sqdsbla

Quelque chose dans ce genre la, donc ça fait qu'il faut prendre la premiè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.

                     

Et bien, tu utilises ma procédure comme ceci :

AjouterLeMot List1.List(j), List2.List(k), List3

En faisant varier j et k pour obtenir chaque élément de tes deux premières ListBoxes.


Manu

Si, dans ton schéma ci-dessus, List1 est à gauche et List2 à 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