Poser une question

Re: traitement fichier, open, redaline, split, for ubound...

Salut,

L'idée consiste à "spliter" chaque ligne sur un séparateur (une tabulation dans ton cas).

aEntrees = split(sLigne,vbTab)
- ou -
aEntrees = split(sLigne,Chr(9))

Et bien sûr le FSO pour lire ligne par ligne :

sFichier = "fichier.txt"
sChemin = Server.MapPath(sFichier)
set fs = CreateObject("Scripting.FileSystemObject")
set oTexte = fs.OpenTextFile(sChemin, 1)
do while not oTexte.AtEndOfStream
sLigne = oTexte.ReadLine
if sLigne <> "" then
aEntrees = split(sLigne,vbTab)
ubound(aEntrees)
response.write "<ul>"
For i = 0 to ubound(aEntrees)
' Tu fais ce que tu veux avec...
response.write "<li>" & aEntrees(i) & "</li>"
next
response.write "</ul>"
end if
loop
oTexte.Close()

Tu te retrouve avec un tableau (array) par ligne, facile alors de passer chaque élément :
)

Ciao
Oznog

Réponses

Re: traitement fichier, open, redaline, split, for ubound...  minkai 15/12/2003    Re: traitement fichier, open, redaline, split, for ubound...  Oznog 15/12/2003