J
JMG le retour
Guest
BONJOUR
plutôt que du texte voici
1er cas
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim fs, a As object
Dim StreamLine As String
Dim maxLine As Integer
Set fs = server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath(".")
Set a = fs.opentextfile(\testfile.txt, 1, 0)
a = dir & "\testfile.txt"
Do While a.AtEndOfStream <> True
StreamLine = a.readall
Maxline = a.Line - 1
Loop
a.Close
%>
2eme cas
<%
Dim FSO, Fnm
Dim Buff As String, Temp As String
Dim lignes As Integer
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Dir = Server.MapPath(".")
Fnm = Dir & "\testfile.txt"
OpenTextFile(Fnm, True) For Input As #1 'à partir de là ça merde...
lignes = -1
Buff = ""
Temp = ""
Do Until EOF(1)
Line Input #1, Temp
Buff = Buff & Temp & vbCrLf
lignes = lignes + 1
Loop
Close #1
%>
merci de bien vouloir me repondre
JMG
plutôt que du texte voici
1er cas
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim fs, a As object
Dim StreamLine As String
Dim maxLine As Integer
Set fs = server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath(".")
Set a = fs.opentextfile(\testfile.txt, 1, 0)
a = dir & "\testfile.txt"
Do While a.AtEndOfStream <> True
StreamLine = a.readall
Maxline = a.Line - 1
Loop
a.Close
%>
2eme cas
<%
Dim FSO, Fnm
Dim Buff As String, Temp As String
Dim lignes As Integer
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Dir = Server.MapPath(".")
Fnm = Dir & "\testfile.txt"
OpenTextFile(Fnm, True) For Input As #1 'à partir de là ça merde...
lignes = -1
Buff = ""
Temp = ""
Do Until EOF(1)
Line Input #1, Temp
Buff = Buff & Temp & vbCrLf
lignes = lignes + 1
Loop
Close #1
%>
merci de bien vouloir me repondre
JMG