Lecture complète d'un fichier csv

Soyez le premier à donner votre avis sur cette source.

Snippet vu 37 384 fois - Téléchargée 35 fois

Commenter

Contenu du snippet

Le code effectue la lecture d'un fichier de type csv.
La fonction extraitChamps(strTmp,aChamps) analyse une ligne du fichier en tenant compte de l'encodage des ; et des " contenus dans un champ (ce que la plupart des script normalement proposés ne font pas -enfin, je n'en avais pas trouvé avant-).
Cette fonction prends en entrée une chaine de caractère 'strTmp' contenant la ligne lue et renvoi en sortie un tableau 'aChamps' contenant les champs de la ligne.

Les quelques lignes hors de la fonction permettent l'ouverture et la lecture du fichier CSV.

Source / Exemple : 


<%

strFichier="./votrefichier.csv"

Const ForReading = 1
Set fsoFichierSource = CreateObject("Scripting.FileSystemObject")
Set tsTexte = fsoFichierSource.OpenTextFile(strFichier, ForReading)
Do While Not tsTexte.AtEndOfStream
	redim aChampsDonnees(0)
	strLigne = tsTexte.ReadLine 'lecture d'une ligne contenant les données à inserer
	call extraitChamps(strLigne,aChampsDonnees)  'decomposition de la ligne en un tableau contenant les données des différents champs
	'aChampsDonnees contient maintenant tous les champs d'une ligne d'un fichier csv
	
loop
tsTexte.Close

function extraitChamps(strTmp,aChamps)
   'Fonction effectuant la decomposition d'une chaine de caractère
   'correspondant à une ligne de fichier de type *.csv
   'en un tableau contenant toutes les champs de la ligne
   'strTmp= chaine reçue en entrée
   'aChamps= tableau correspondant aux champs
   iIndexLoop=0
   Do while not len(strTmp)=0
      if Instr(strTmp,"""")=1 then
         'Cas spécifique ou la cellule contient des " et des ;
         strTmp=Right(strTmp,Len(strTmp)-1) 'enleve le caractère " du début de chaine
         iIndexLoop2=1
         'recherche du caractère " de fin de cellule (attention si le champ contient le caractère " il a été codé par "" d'où parcourt de la chaine jusqu'à trouver "" et non ")
         do while Instr(iIndexLoop2,strTmp,"""""")<>0 and Instr(iIndexLoop2,strTmp,"""""")=Instr(iIndexLoop2,strTmp,"""")
            iIndexLoop2=Instr(iIndexLoop2,strTmp,"""""")+2
         loop
         iIndexLoop2=Instr(iIndexLoop2,strTmp,"""")
         ReDim Preserve aChamps(iIndexLoop)
         'Extraction de la première cellule et remplacement du codage de " en ""
         aChamps(iIndexLoop)=Replace(Left(strTmp,iIndexLoop2-1),"""""","""")

         'Extraction du reste de la chaine à traiter
         if(iIndexLoop2<>Len(strTmp)) then
                  strTmp=Right(strTmp,Len(strTmp)-iIndexLoop2-1)
         else
             exit do
         end if

        iIndexLoop=iIndexLoop+1
        elseif Instr(strTmp,";")=0 then 'Recherche du séparateur de champs
            ReDim Preserve aChamps(iIndexLoop)
            aChamps(iIndexLoop)=strTmp  'Extraction du dernier champ
             exit do
          else
              'Extraction du 1er champ
              aChampsTmp=Split(strTmp,";",2,1)

              ReDim Preserve aChamps(iIndexLoop+1)
              aChamps(iIndexLoop)=aChampsTmp(0)
              'Extraction du reste de la chaine à traiter
              strTmp=aChampsTmp(1)
              iIndexLoop=iIndexLoop+1
          end if
   Loop
 '  set extraitChamps=aChamps()
end function
%>

Conclusion :


Ce code source a subi de nombreux tests avec de nombreux cas particulier. Il me semble assez robuste et à priori sans bug (enfin, en ce qui concerne la fonction 'extraitChamps', mais aucun code n'est vraiement sans bug) et est actuellement couremment utilisé dans un site intranet.

Je tiens à remercier moi-même pour son aide précieuse et aussi tous ceux qui disent proposer un script qui lit les fichiers CSV et qui ne le font pas pour leur aide précieuse dans la décision d'écrire ce script mais surtout de le partager... merci, encore à eux ;)

A voir également

Ajouter un commentaire

Commentaires

Signaler
shaqattack93
Messages postés
9
Date d'inscription
lundi 4 août 2003
Statut
Membre
Dernière intervention
13 janvier 2004
 -
Merci cosmocat, c'est exactement ce que je cherchais.
Je mets 9/10.
Ouais pas 10 parce que maintenant il faut que j'adapte tout ça à ma problématique.
Mais encore merci.
Signaler
karmanncox
Messages postés
1
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
8 octobre 2003
 -
Merci pour ce script !!!
Comme shaqattack93, il faut maintenant que je l'adapte à ma guise donc idem 9/10. De plus la perfection n'étant pas de se monde, on ne pourra jamais mettre 10/10 car, bug il peut y avoir.
Signaler
cs_Mercury
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005
 -
Pas mal, mais le script plante. Il fait appel à la fonction "convertligne". Mais elle sert à quoi cette fonction ? C'est normal que l'on n'en trouve pas trace dans ton code ???
Signaler
jcalter32
Messages postés
2
Date d'inscription
lundi 5 avril 2004
Statut
Membre
Dernière intervention
9 avril 2004
 -
Bonjour

Le code à l'air excellent mais il n'y a pas de code source pour le convertir ligne. Si qu'elqu'un la pouvez vous me dire ou je peux le trouver
Signaler
cosmocat
Messages postés
1
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
7 avril 2004
 -
L'appel à la fonction ConvertirLigne (de la version precedente) n'était pas necessaire. J'ai modifié la ligne pour ne plus faire appel à cette fonction et le script devrait marcher parfaitement maintenant.
Allez au boulot maintenant ;)
Afficher les 11 commentaires
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.