s'il vous plait ! aidez moi : mettre .txt dans un flexgrid Résolu

Question

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.

Comment faire ?

Je vous remercie tous par avance.

cupeus.

cupeus · Accepted Answer

Merci d'avoir répondu makabey

je précide que j'ai VB 5.0 et je vais aller voir tes sources.
mais il n'y a pas d'équivalent de du split dans VB 5.0 ?

Merci encore.

Makabey · Answer

Si tu as VB6, vois la fonction Split, sinon vois mes sources pour une fonction similaire compatible VB4-5

filec · Answer

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&#232;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&#232;religne=variable debut fin tableau, maliste()=variable tableau 2 dimensions dans lequel on retrouve toute les donn&#233;es de ce qui va suivre.
Dim a, b, c
Dim Texte As String
        Derni&#232;reLigne = -1
        Open vksFichier For Input As #1
            Do While Not EOF(1)
                Derni&#232;reLigne = Derni&#232;reLigne + 1
                Line Input #1, Texte
            Loop
        Close #1
        ReDim Maliste(Derni&#232;reLigne, NbCol)
        Open vksFichier For Input As #1
            For a = 0 To Derni&#232;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 &#231;a ne marche pas se servir de la variable tableau et avec une boucle on obtient :

For a=0 to RFIN   'rfin=derni&#232;religne
   For b = 0 to 4      '=nombre de colonne
      MsFlexgrid1.TextMatrix(a,b)=MaListe(a,b)
   next b
next a
Bonne chance
Philippe

S'il vous plait ! aidez moi : mettre .txt dans un flexgrid

3 réponses

Discussions similaires