Recherches Multiples 2

Question

Bon, encore une question.. Si text1 contient: hihihihohohohahahahihihi2hohohohahahahihihi3hohohohahaha Comment receuillir hihihi, hihihi1 et hihihi2? Merci de votre aide, Blasting

econs · Answer

Dim tablo() As String

Dim l As Long

Dim indiceFin As Long



    tablo = Split(Text1.Text, "", , vbTextCompare)

    For l = LBound(tablo) To UBound(tablo)

        If tablo(l) <> "" Then

            indiceFin = InStr(1, tablo(l), "", vbTextCompare)

            MsgBox Left$(tablo(l), indiceFin - 1)

        End If

    Next l


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

BLaSTiNG · Answer

Merci, je trouve &#231;a tr&#232;s bien mais comment receuillir le r&#233;sultat dans une textbox?

Merci,
Blasting

BLaSTiNG · Answer

Quelqu'un peut m'aider?

Merci,
Blasting

econs · Answer

Dim tablo() As String

 Dim l As Long

 Dim indiceFin As Long

Dim sTemp As String



     tablo = Split(Text1.Text, "", , vbTextCompare)

    sTemp = ""

    For l = LBound(tablo) To UBound(tablo)

         If tablo(l) <> "" Then

             indiceFin = InStr(1, tablo(l), "", vbTextCompare)


           
sTemp = sTemp &  Left$(tablo(l), indiceFin - 1) & " "

         End If

     Next l

    Text1.Text = sTemp 










Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Recherches Multiples 2

4 réponses

Discussions similaires