Importation d'un fichier.txt servant de mini base de données (séparateurs ";") dans un tableau de variables.

Commenter

Contenu du snippet

tout est dans le titre ;)

le but est d'importer dans un tableau une base de donnée stockée sur un fichier .txt avec des retours à la ligne et des séparateurs (dans ce cas des points virgule). Ca marche si la base de donnée n'est pas trop importante (dans mon cas il y aura 300 lignes au plus). au dela il doit faloir créer des bases de données plus solides. ça a l'avantage de ne pas être galère à installer sur un serveur intranet par contre.

Source / Exemple : 


Private Sub import()
'auteur Gnieark, le cri du cochon fou!

Dim ligne, x As Integer
ligne = 1
Dim filename, prout As String
filename = "G:\gestion doc en prgramation\haha.txt"
Dim docligne() As String
Dim table(1 To 1000, 1 To 50) As String

Open filename For Input As #1

While Not EOF(1)

    Line Input #1, prout
   
    docligne = Split(prout, ";")
    x = 1
    For Each elem In docligne
      table(ligne, x) = elem
      x = x + 1
    Next elem

    ligne = ligne + 1
Wend

Close #1

End Sub

Conclusion :


dans mon cas c'est la base pour transphérer la macro excel servant d'interface à la gestion documentaire sur un .exe (arrivée de Open office oblige)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gnieark)