Soyez le premier à donner votre avis sur cette source.
Snippet vu 37 996 fois - Téléchargée 36 fois
<% 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 %>
15 déc. 2010 à 10:40
10 juil. 2008 à 12:23
7 avril 2006 à 22:14
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 !
4 avril 2006 à 11:43
8 sept. 2005 à 14:56
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!!!
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.