OVH Cloud OVH Cloud

lecture dans un csv

1 réponse
Avatar
mmoidany
je cherche un moyen de lire des donn=E9es dans un csv ou=20
txt avec un s=E9parateur ";"

J'ai =E9crit ce code mais il ne fonctionne pas=20
""""""""""""""""
' Ouvre le fichier en lecture
Open "C:\bd\etiquetage.txt" For Input As #1
' Effectue la boucle jusqu'=E0 la fin du fichier
Do While Not EOF(1) And Not lexit
' Lit les donn=E9es dans trois variables
Input #1, chrono_bd, negoce_bd, designation_bd
' Je compare la ref n=E9goce avec la bd
If negoce & "A" =3D negoce_bd Then
lexit =3D True
End If
Loop
=20
' Ferme le fichier
Close #1
"""""""""""""""""""""""""""

En effet, ce code ne fonctionne qu'avec un s=E9parateur ","
(limitation d=FBe =E0 Input #1

Auriez-vous une autre m=E9thode pour lire un fichier csv=20
ligne par ligne pour rechercher une valeur dans l'un des=20
champs ???????????????

merci par avance

1 réponse

Avatar
docm
Bonjour mmoidany.

Pour lire un fichier ligne par ligne, utilise
Line Input #1, x
à la place de
Input #1, chrono_bd, negoce_bd, designation_bd

Pour rechercher une valeur dans l'un des
champs, pourrais-tu nous donner un échantillon (2 ou 3 lignes)
du contenu de ce fichier?

Amicalement.


"mmoidany" wrote in message
news:0b3501c47afa$a1d77080$
je cherche un moyen de lire des données dans un csv ou
txt avec un séparateur ";"

J'ai écrit ce code mais il ne fonctionne pas
""""""""""""""""
' Ouvre le fichier en lecture
Open "C:bdetiquetage.txt" For Input As #1
' Effectue la boucle jusqu'à la fin du fichier
Do While Not EOF(1) And Not lexit
' Lit les données dans trois variables
Input #1, chrono_bd, negoce_bd, designation_bd
' Je compare la ref négoce avec la bd
If negoce & "A" = negoce_bd Then
lexit = True
End If
Loop

' Ferme le fichier
Close #1
"""""""""""""""""""""""""""

En effet, ce code ne fonctionne qu'avec un séparateur ","
(limitation dûe à Input #1

Auriez-vous une autre méthode pour lire un fichier csv
ligne par ligne pour rechercher une valeur dans l'un des
champs ???????????????

merci par avance