cs_blasted
Messages postés4Date d'inscriptionvendredi 30 juillet 2004StatutMembreDernière intervention15 juillet 2005 15 juil. 2005 à 21:47
<%
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
wadzat
Messages postés1Date d'inscriptionvendredi 22 juillet 2005StatutMembreDernière intervention22 juillet 2005 22 juil. 2005 à 16:42
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)