Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    août 2009
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : août 2009
    Messages : 34
    Points : 18
    Points
    18

    Par défaut Parser fichier csv dans tableau

    bonjour
    j ai trouver ce code sur le net pour lire un fichier csv
    Code :
    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
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set Ftxt = FSO.OpenTextFile("e:\ScanReseaux.csv") 
     
    Do While Not Ftxt.AtEndOfStream  
    MaVariable = Ftxt.Readline  
     
    For Each strItem In CSVParse(mavariable) 
    '    wscript.Echo strItem ' affiche le contenu du fichier csv, champs apres champs ... 
    '... inserer le code ici 
     
    	MsgBox stritem
     
     
    Next 
    Loop 
    Ftxt.Close 
     
    Function CSVParse(ByVal strLine) 
        Dim arrFields 
        Dim blnIgnore 
        Dim intFieldCount 
        Dim intCursor 
        Dim intStart 
        Dim strChar 
        Dim strValue 
     
        Const QUOTE = """" 
        Const QUOTE2 = """""" 
     
        If (Len(Trim(strLine)) = 0) then 
            CSVParse = Array() 
            Exit Function 
        End If 
        blnIgnore = False 
        intFieldCount = 0 
        intStart = 1 
        arrFields = Array() 
        strLine = strLine & "," 
     
        For intCursor = 1 To Len(strLine) 
     
            strChar = Mid(strLine, intCursor, 1) 
            Select Case strChar 
                Case QUOTE 
     
                    blnIgnore = Not blnIgnore 
                Case "," 
                    If Not blnIgnore Then 
     
                        ReDim Preserve arrFields(intFieldCount) 
     
                        If (intCursor - intStart > 0) Then 
     
                            strValue = Mid(strLine, intStart, _ 
                                intCursor - intStart) 
     
                            If (Left(strValue, 1) = QUOTE) Then 
                                arrFields(intFieldCount) = _ 
                                    Replace(Mid(strValue, 2, _ 
                                    Len(strValue) - 2), QUOTE2, QUOTE) 
                            Else 
                                arrFields(intFieldCount) = strValue 
                            End If 
                        Else 
                            arrFields(intFieldCount) = Empty 
                        End If 
     
                        intFieldCount = intFieldCount + 1 
                        intStart = intCursor + 1 
                    End If 
            End Select 
        Next 
          CSVParse = arrFields 
    End Function
    j aimerais savoir comment faire pour inserer chaque champ dans une champ de tableau afin de pouvoir ensuite generer une liste deroulant dans un module hta avec un des champ
    merci d avance

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    août 2009
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : août 2009
    Messages : 34
    Points : 18
    Points
    18

    Par défaut

    bonjour
    apres une journee de recherche sur google et le forum j ai trouve une solution tout seul
    Code :
    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
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    <html>
    <head>
    <title>My HTML application</title>
    <HTA:APPLICATION
      APPLICATIONNAME="My HTML application"
      ID="MyHTMLapplication"
      VERSION="1.0"/>
    </head>
     
    <script language="VBScript">
    	Const ForReading = 1
    	Const ForWriting = 2
    	Const ForAppending = 8
         Dim fso,f
     
    Sub Window_OnLoad
      'This method will be called when the application loads
      'Add your code here
      test
    End Sub
     
    Sub test
     
     
       strNewFile = "e:\ScanReseaux2.csv"
     
       Set fso = CreateObject("Scripting.FileSystemObject")
     
     
     
      Set f = fso.OpenTextFile(strNewFile,ForReading)
     
        Do Until f.AtEndOfStream
            strLine = f.ReadLine
     
            elem = split(strLine,",")
     
     
            elem(2)=Replace(elem(2),Chr(34),"")
     
            Set oObjOption = Document.createElement("OPTION")
            	oObjoption.Text= elem(2)
            		Provider.add(oObjoption)
             Loop
     
     
     
        f.close
     
     End Sub 
     
     
     
     
     
     
    </script>
     
    <body text=black bgcolor=#E6E2AF>
    <body text=black bgcolor=#E6E2AF>
     
    <SELECT name="Provider" id="provider"/></SELECT>
     
     
    </body>
    </html>

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •