cupeus
Messages postés4Date d'inscriptionsamedi 26 janvier 2002StatutMembreDernière intervention 1 octobre 2013
-
26 janv. 2002 à 12:30
filec
Messages postés13Date d'inscriptionvendredi 3 septembre 2004StatutMembreDernière intervention 3 octobre 2006
-
25 nov. 2005 à 14:47
bonjour,
Ca fait un mois que j'essaie de mettre le contenu d'un fichier texte dans un flexgrid :
La structur d'une ligne de fichier est la suivante :
19980311 41,46 41,46 41,14 41,14 1711
Je voudrais mettre dans un flexgrid ( ou un datagrid ) ces données pour avoir :
19980311 dans une cellule
41.46 dans une autre
41.14 dans une troisième, etc...
Chaque donnée est séparée par un [tab] ( CHR9).
J'ai essayé l'instruction INPUT# mais les virgule sont reconnues comme des séparateurs et les tab ne sont pas reconns.
Avec l'instruction line Input# , je met bien chaque ligne dans une variable mais après je n'arrive pas à séparer pour mettre dans le flexgrid.
filec
Messages postés13Date d'inscriptionvendredi 3 septembre 2004StatutMembreDernière intervention 3 octobre 2006 25 nov. 2005 à 14:47
Bonjour.
Voici une routine que je me sert pour alimenter soit une listbox soit une combobox soit un felxgrid.
Public Sub sGetValuesA(vksFichier As String, NbCol As Single, DernièreLigne As Single, Maliste() As Variant) 'a mettre dans un module, remplacer wksFichier par nom du fichier, NbCol par nombre de colonne du fichier, Dernièreligne=variable debut fin tableau, maliste()=variable tableau 2 dimensions dans lequel on retrouve toute les données de ce qui va suivre.
Dim a, b, c
Dim Texte As String
DernièreLigne = -1
Open vksFichier For Input As #1
Do While Not EOF(1)
DernièreLigne = DernièreLigne + 1
Line Input #1, Texte
Loop
Close #1
ReDim Maliste(DernièreLigne, NbCol)
Open vksFichier For Input As #1
For a = 0 To DernièreLigne
For b = 0 To NbCol
'Input #1, Maliste(a, b) = variable tableau
Imput#1, MsFlexgrid1.TextMatrix(a, b)
Next b
Next a
Close #1
End Sub
'Si ça ne marche pas se servir de la variable tableau et avec une boucle on obtient :
For a=0 to RFIN 'rfin=dernièreligne
For b = 0 to 4 '=nombre de colonne
MsFlexgrid1.TextMatrix(a,b)=MaListe(a,b)
next b
next a
Bonne chance
Philippe