lecture d'un fichier texte et stockage dans un tableau

Aller en bas

lecture d'un fichier texte et stockage dans un tableau

Message  Admin le Lun 23 Fév - 17:33

<%
Const cForReading = 1
Set objFso = CreateObject("Scripting.FileSystemObject")
Set ts = objFso.OpenTextFile(Server.MapPath("Nom du fichier.txt"), cForReading)
Dim Tab()
redim tab(36)
i = 0
Do While Not ts.AtEndOfStream
Tab(i) = ts.ReadLine
i = i + 1
Loop
Set ts = nothing
Set objFso = nothing
%>

Admin
Admin

Nombre de messages : 45
Date d'inscription : 20/01/2009

Voir le profil de l'utilisateur http://programming.formyjob.net

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum