LIRE UNE COLONNE DANS UN CSV (FUNCTION)

           Public Function lire_colonne_CSV(ByVal fichier As String, ByVal séparateur As String, ByVal ligne_de_titre As Boolean, ByVal num_col As Integer) As String()
        Dim colonnes_de_la_ligne As String() ' tableau de champs à lire pour une ligne
        Dim index_ligne As Integer = 0 ' index de ligne en cours
        Dim monfichier_existe As Boolean = My.Computer.FileSystem.FileExists(fichier) ' variable binaire qui test la présence du fichier
        Dim valeurs_lus(0) As String  'status du traitement de la fonction
        'defaut = 0 => OK, defaut =1 => fichier pas trouvé, defaut =2 => colonne pas trouvé

        If monfichier_existe Then
            ' obligé pour l'instant de faire un tour à vide du fichier pour dimensionner le tableau en fonction du nb de ligne
            Using lirecsv As New Microsoft.VisualBasic.FileIO.TextFieldParser(fichier)
                lirecsv.SetDelimiters(séparateur)
                While Not lirecsv.EndOfData 'tant que pas fin de fichier
                    colonnes_de_la_ligne = lirecsv.ReadFields()
                    index_ligne += 1 ' on compte le nombre de ligne
                    'vérification de la demande de lecture
                    If num_col > colonnes_de_la_ligne.Length - 1 Then
                        valeurs_lus(0) = "impossible de trouver la colonne"
                        GoTo fin
                    End If
                End While
            End Using

            'nombre de lignes luent moins la derniére et la premiére si ligne de titre
            Dim a As Integer
            If ligne_de_titre Then a = 1 Else a = 0 ' suppression de la ligne de titre ou pas
            ReDim valeurs_lus(index_ligne - a) 'redimensionnement du tableau
            valeurs_lus(0) = "ok" 'status fonction OK
            'raz de l'index ligne pour remplissage des valeurs
            index_ligne = 1
            Using lirecsv As New Microsoft.VisualBasic.FileIO.TextFieldParser(fichier)
                lirecsv.SetDelimiters(séparateur)
                While Not lirecsv.EndOfData 'tant que pas fin de fichier
                    colonnes_de_la_ligne = lirecsv.ReadFields() ' on lit tous les champs de la ligne en cours
                    'élimine la premiére ligne si c'est la ligne des titres
                    If Not ligne_de_titre Then ' au premier cycle on ne fait rien
                        valeurs_lus(index_ligne) = (colonnes_de_la_ligne(num_col))
                        index_ligne += 1
                    End If
                    ' mise à vrai lorsque la premiére ligne est passé
                    ligne_de_titre = False
                End While
                ' transfert de la lecture
                Return valeurs_lus
            End Using
        Else
            valeurs_lus(0) = "impossible de trouver le fichier"
        End If
fin:
        Return valeurs_lus
    End Function

01 octobre 2007 09:32:44 :

Rajout du traitement d'erreur par retour d'un code. 0 = OK 1 = pas trouvé fichier 2 = pas trouvé colonne merci PCPT. Transfert sur Codyx ;)

02 octobre 2007 08:39:20 :

correction suite à remarque de PCPT (integer dans un string).