[VB6.0]charger flixgrid par un fchier txt

**am.adnane** · 21/01/2006, 23h48

salut *
mtn
svp je veux charger une flixgrid(MSF) a partir d'un fichier text(text.txt)
ca structure comme ceci:

Ref Desig1 PU QS
Ref Desig2 PU QS
Ref Desig3 PU QS
Ref Desig4 PU QS
Ref Desig5 PU QS
Ref Desig6 PU QS
Ref Desig7 PU QS
Ref Desig8 PU QS
Ref Desig9 PU QS
Ref Desig10 PU QS
Ref Desig11 PU QS
Ref Desig12 PU QS
Ref Desig12 PU QS

j'ai une flix gride
contient 4 champ colonnes biensur.
et merci de vos réponse

**bouley** · 22/01/2006, 02h41

Salut am.adnane,

Cela te convient-il ?

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
 
Private Sub Form_Load()
Dim fso As FileSystemObject
Dim fichier As TextStream
Set fso = New FileSystemObject
 
' ouverture du fichier
Set fichier = fso.OpenTextFile("c:\test.txt", ForReading)
' Pour chaque ligne du fichier
    Do Until fichier.AtEndOfStream
 
        'lecture de la ligne
        ligne = fichier.ReadLine
 
        ' on remplace le séparateur de champ ici une espace
        'par chr$(9) le séparateur de champ de la flexgrid
        ligne = Replace(ligne, " ", Chr$(9))
 
        ' on ajoute l'enregistrement à la flexgrid
        Me.MSFlexGrid1.AddItem ligne
    Loop
 
fichier.Close
Set fichier = Nothing
Set fso = Nothing
 
End Sub

@+

**am.adnane** · 22/01/2006, 12h28

j'ai écris votre code mais il me donne des erreurs en

Code :

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

1
2
3
 
Dim fso As FileSystemObject
Dim fichier As TextStream

Type défini par l'utilisateur non défini

je pense que je dois ajouter un préférence,ou bien ce code ca marche selment dans la version la plus récent du vb notament vb.net.
mais en tout ca merci.