Traitement de chaineRésolu

Question

Salut a tous,

Eh voila j'essai de faire un tri d'une chaine de caratere contenant des noms de fichiers separes par une virgule, de maniere a placer chaque fichiers ds un tableau....

Quelqu'un saurait il me dire ou est l'erreur(s) ds mon code :

Dim NbChr As Long
Dim SepStrng As String
Dim Txt As String
Dim File(1 To 100) As String
Dim Occ1 As Long
Dim Occ2 As Long
Dim i As Long
Dim Ii As Long


    Occ1 = 1
    Txt = Text1.Text
    NbChr = Len(Txt)
    SepStrng = ","
    
    Do
        i = i + 1
        Occ2 = InStr(Occ1, Txt, SepStrng)         If Occ2 0 Then File(i) Mid(Txt, Occ1, NbChr): Exit Do
        File(i) = Mid(Txt, Occ1, Occ2 - 1)
        Occ1 = Occ1 + Len(File(i))
    Loop


For Ii = 1 To i
    MsgBox File(Ii)
Next Ii

Merci d'avance @+

EddiePonpon · Accepted Answer

Comme ça Apparement, ça marche

Do
        i = i + 1
        Occ2 = InStr(Occ1, Txt, SepStrng)
         If Occ2 0 Then File(i) Mid(Txt, Occ1, NbChr): Exit Do
        File(i) = Mid(Txt, Occ1, Occ2 - Occ1)
        Occ1 = Occ2 + 1
    Loop

BeinMoi · Answer

Super merci EddiePonpon c'est impec ;)

Bonne prog a tous @+

cs_CanisLupus · Answer

Salut, si c'est du vb6, tu aurais pu faire :

Dim file() as string
Dim Ii As Long

file = split(text1.text,",")

For Ii = 0 To ubound(file)
    MsgBox File(Ii)
Next Ii

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Traitement de chaine

3 réponses

Discussions similaires