begin process at 2010 03 20 08:47:03
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Chaînes de caratères

 > LECTURE COMPLÈTE D'UN FICHIER CSV

LECTURE COMPLÈTE D'UN FICHIER CSV


 Information sur la source

Note :
9,5 / 10 - par 4 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Chaînes de caratères Niveau :Débutant Date de création :28/04/2003 Date de mise à jour :07/04/2004 15:15:53 Vu :28 659

Auteur : cosmocat

Ecrire un message privé
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

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

  • <%
  • 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
  • %>
<%

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 ;)


 Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey
CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS par EricDD
FONCTION UCFIRST EN ASP par DesignerCreator
Source .NET (Dotnet) FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam

Commentaires et avis

Commentaire de shaqattack93 le 14/08/2003 10:05:49

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.

Commentaire de karmanncox le 08/10/2003 11:54:26

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.

Commentaire de Mercury le 13/02/2004 15:38:49

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 ???

Commentaire de jcalter32 le 07/04/2004 09:12:31

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

Commentaire de cosmocat le 07/04/2004 15:19:35

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 ;)

Commentaire de jcalter32 le 09/04/2004 09:53:13

Merci maintenant ca marche nickel du coup je te mets un 10 car je n'est pas réusssi à le faire bugger il va me sauver la vie ce petit prog merci beaucoup

Commentaire de gyouk le 08/09/2005 14:56:08

yop,
vraiment ya pas mieux que cette source pour mon BIG probleme que j'avais ^^
merci a toi
moi sans hésité je te colle un 10/10 pour ste source!!!

Commentaire de neoramax le 04/04/2006 11:43:16

y'aurai pas l'équivalent du script en C# ? je débute en C# mais il faut que jle fasse avec :|

Commentaire de sperron le 07/04/2006 22:14:15

Bonjour,
J'ai essayé un tas de trucs pour que le fichier arrête de "bugger" à ligne : Set tsTexte = fsoFichierSource.OpenTextFile(strFichier, ForReading)

On me réponds toujours qu'il ne trouve pas le fichier et pourtant il est au même endroit que le fichier de code. csvasp.asp et

strFichier = "./csvdonne.csv".  je suis persuadé que c'est une niaserie mais laquelle ?

Je conserve précieusement ce code, je crois qu'il est la clé de mon problème mais il y a quelque chose que je ne saisi pas....

Merci !

Commentaire de celinaf le 10/07/2008 12:23:50 10/10

Bravo et merci à toi pour ce joli bout de code, je te colle aussi un 10/10 !!

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,780 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales