Discussion :

[Overcrash]

Bonjour a tous,

J'ai un fichier .txt ou dedans sont récupérer par mes soins les infos d'un flexgrid de trois colonnes.

Donc un aperçue du fichier .txt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Libéllé Champs\Index Champs\Libéllé Sortie\
asdqsd\5\qsdqsd\
qsdqsdqs\5\sdqsdqsd\

Mon but est de récupérer les infos du fichier .txt et de le charger dans la flexgrid chaque élément dans sa colonne bien entendu.
Sauf la première ligne du fichier qui correspond au colonne du flexgrid

Donc je recherche une fonction ou astuce pour découper la chaine a chaque fois qu'il voit le "\"
C'est la que ca me pose probleme je ne trouve pas de solution.

Voici le code que j'ai réussi a pondre pour le moment :
Private Sub Cmdload_Click()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
    Dim adresse As String
    Dim i As Integer
    Dim ligne As String
    Dim nb As Integer
 
 
    CmDial.ShowOpen
    adresse = CmDial.FileName
 
    Open adresse For Input As #1
 
 
        While Not EOF(1)
 
            Line Input #1, ligne
            ligne = Trim(ligne)
            nb = InStr(ligne, "\")
 
            MsgBox (ligne)
            MsgBox (nb)
 
 
        Wend
 
    Close #1
 
End Sub

Merci de votre aide
Over

[DAUDET78]

C'est très similaire à cette question : http://www.developpez.net/forums/d84...cteres-chaine/

Tu remplaces les ";" par des "\" et ça devrait t'aider

[Overcrash]

Oulala
Carton rouge pour moi.

Pourtant j'avais chercher sur le fofo mais j'avais pas trouvé :s

En tous cas merci pour cette réponse.

Bonne Journée
Bonne Fêtes aussi

Over