IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Débutant   Avatar de koKoTis
    Profil pro
    Inscrit en
    août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2006
    Messages : 3 438
    Points : 1 888
    Points
    1 888
    Par défaut Récupérer des données dans un fichier.dat pour les exporter dans un tableau excel
    Bonjour, je voudrais créer un VBScript qui récupère des données dans un fichier.dat pour les exporter dans un tableau excel, c'est-à-dire, j'ai un fichier.dat qui contient des données sous cette forme:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    donnée1:donnée2:donnée3:donnée4:donnée:donnée6:donnée7 
    donnée1:donnée2:donnée3:donnée4:donnée:donnée6:donnée7 
    donnée1:donnée2:donnée3:donnée4:donnée:donnée6:donnée7 
    donnée1:donnée2:donnée3:donnée4:donnée:donnée6:donnée7 
    donnée1:donnée2:donnée3:donnée4:donnée:donnée6:donnée7 
    donnée1:donnée2:donnée3:donnée4:donnée:donnée6:donnée7
    Voilà, je voudrais donc récupèrer les données de se fichier.dat pour les importer dans un tableau excel ligne par ligne en utilisant les deux point comme caractère délimitateur pour les colonne du tableau.

  2. #2
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    septembre 2006
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : septembre 2006
    Messages : 1
    Points : 1
    Points
    1
    Par défaut
    Salut Kokotis,

    Essaie ca, ca devrait fonctionner....

    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
    28
    29
    30
    31
    32
    33
    Dim fso
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Fdat = FSO.OpenTextFile("C:\file.dat")
     
    Dim objXL
    Set objXL = WScript.CreateObject("Excel.Application")
    objXL.WorkBooks.Add
    objXL.Visible = TRUE
     
    Dim X, Y, Pos, Fline
    X=1
    Do While Not Fdat.AtEndOfStream
            Fline = Fdat.Readline
            call RemplirCell(Fline)
            X = X+1
    Loop
     
    Fdat.Close
     
    sub RemplirCell(Chaine)
            Y = 1
            do while Chaine <> ""
                    Pos = instr(Chaine,":")
                    if Pos > 1 then 
    	                objXL.Cells(X,Y).value = left(Chaine,Pos-1)
            	                Chaine = right(Fline,len(Chaine)-Pos)
    	                Y = Y+1
    	    else
    		    objXL.Cells(X,Y).value = Chaine
    		    chaine = ""
    	    end if
            loop
    end sub

Discussions similaires

  1. Récuperer les données d'un fichier txt pour les insérer dans une Table
    Par sandokhane dans le forum Bases de données
    Réponses: 47
    Dernier message: 31/05/2014, 16h10
  2. Réponses: 4
    Dernier message: 26/05/2014, 00h01
  3. Réponses: 5
    Dernier message: 23/05/2014, 14h09
  4. Réponses: 1
    Dernier message: 19/03/2010, 17h01
  5. Réponses: 2
    Dernier message: 22/06/2008, 16h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo