lecture d'un fichier texte et stockage dans un tableau

Aller en bas

lecture d'un fichier texte et stockage dans un tableau Empty 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