Discussion :

[sandball22]

bonsoir, j'aimerais pouvoir remplir un MSFlexGrid grâce au contenu d'un fichier texte.

je suppose qu'il va falloir savoir le nombre de ligne du fichier pour pouvoir paramétré le MSFlexGrid.

Pour cela j'essaie ce bout de code mais cela ne fonctionne pas malheureusement.

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
 
Private Sub Command1_Click()
 
Dim nomfichier As String
Dim strLigne As String
Dim nbligne As Integer
nbligne = 0
 
cheminfichier = "C:\essai\essai.txt"
'cheminfichier = " C:\..\FichierScenario\"
numfichier = FreeFile
 
 
Open cheminfichier For Append As numfichier
Do While Not EOF(1)
Line Input #1, strLigne
   nbligne = nbligne + 1
   toto = strLigne
   Text1.Text = toto
Loop
MsgBox "La dernière ligne est :" & Chr(10) & strLigne & Chr(13) & "Le nombres de ligne est : " & nbligne
'MsgBox (toto)
Close numfichier
 
End Sub

cela m'affiche toujours 0.
Avez vous des conseils à me donner?
Merci

[iclic]

Oui

D'abord ouvrir le fichier en lecture et non en écriture

Code :

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

1
2
 
Open cheminfichier For Input  As numfichier

[iclic]

Et tu peux mettre ton fichier texte dans un tableau

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
 
   Dim nbligne as Integer
   Dim  Valfic as String,Chemin As String
   dim strLigne() as String
 
   'ouvrir et lire le fichier texte
   Open Chemin For Binary As Numfichier
   Valfic = String(LOF(Numfichier), 0)
   Get #Numfichier, 1, Valfic
   Close Numfichier
   'mets les enregistrements  dans un tableau
   strLigne = Split(Valfic, vbCrLf)
   nbligne = UBound(strLigne)  'donne le nombre d'enregistrements
 
  MsgBox "La dernière ligne est :" & Chr(10) & strLigne(nbligne) & Chr(13) & "Le nombres de ligne est : " & (nbligne +1 )
'Attention la première ligne du tableau est à l'indice 0
'donc on commence à compter à partir de 0

Et alors tu places comme tu veux tes valeurs dans une MSFlexGrid.

[sandball22]

J'ai un petit soucis avec le contenu de mes fichers, ils sont de cette forme :

60 200
20 300

les séparateurs sont des espaces.

Il me faudrait 2 tableaux correspondant aux 2 colonnes pour pouvoir remplir facilement mes valeurs dans une MSFlexGrid.
En effet, si je ne fais pas cela, j'affiche le contenu de toute ma ligne dasn chaque case de ma MSFlexGrid.

[DAUDET78]

les séparateurs sont des espaces

regarde la fonction "Split"

[sandball22]

J'essaie d'utiliser la fonction split.
J'obtiens bien le chiffre de ma 1ere collone par conte j'ai des soucis avec la deuxième colonne.
en effet, le contenu de mon fichier est de cette manière :

60 200
20 300

Il y a plusieurs sépateurs d'espaces dans mon fichier.

Comment peut-on faire pour pouvoir prendre le conteu de la deuxieme colonne?

pour info, j'utilise ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 0 To nbligne - 1
    MSFlexGridScenario.AddItem (i + 1)
 
    decoupe = Split(strLigne(i), " ")
 
    intensite(i) = decoupe(0)
    temps(i) = decoupe(12)
 
 
    MSFlexGridScenario.TextMatrix(i + 1, 1) = intensite(i)
    MSFlexGridScenario.TextMatrix(i + 1, 2) = temps(i)
Next i