<%
dim objOpenFile , objFSO , strPath , strLigne , arrHeureEtat() , arrFichier(),iCompteFic
iCompteFic=0
strPath=server.MapPath("nomdufichier")
set objFSO=server.createObject("Scripting.FileSystemObject")
'Test existence
If not objFSO.FileExists(server.MapPath("nomdufichier")) then
response.write "fichier inexistant."
else
set objOpenFile=objFSO.OpenTextFile(strPath,1)
' A partir de la t as ouvert ton fichier en mode lecture
'Code a inserer pour lecture du fichier
do while not objOpenFile.AtEndOfStream
strLigne = objOpenFile.ReadLine
arrHeureEtat = split(strLigne ,"caractere de separation entre heure et etat")
arrFichier(iCompteFic) = arrHeureEtat(0)
iCompteFic = iCompteFic + 1
arrFichier(iCompteFic) = arrHeureEtat(1)
iCompteFic = iCompteFic + 1
loop
end if
'fermeture des objets
objOpenFile.close
set objOpenFile = nothing
set objFSO = nothing
Existe-t-il un équivalent pour lire un fichier situé sur un serveur http distant ?
Parce que j'ai besoin de récupérer des infos d'une base de données distante, à laquelle je ne peux pas accéder car son firawall m'en empeche (encore heureux)
J'ai donc créé sur le serveur distant, un fichier qui me fournit mes infos. Mais OpentTextfile refuse de lire un fichier du type http://www.toto.fr/mon_export.php (à la place d'un c:\toto\mon_export.txt)