lecture d'un fichier texte et stockage dans un tableau

Voir le sujet précédent Voir le sujet suivant 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

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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