lecture fichier texte

Réponse acceptée !
<%
   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