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