Si mems, sono sempre divisi da | TESTO ANNUNCIO 1 | TESTO ANNUNCIO 2 | ...ecc
per la cronaca, sono riuscito ad aprirlo con FSO tramite ricerche sul web, ora mi basterebbe capire meglio l'impaginazione..
codice:
codice:
<% Option Explicit
Const Filename = "uni.txt" ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
' Get a handle to the file
Dim file
set file = FSO.GetFile(Filepath)
' Get some info about the file
Dim FileSize
FileSize = file.Size
Response.Write "
File: " & Filename & " (size " & FileSize &_
" bytes)</p><hr>"
Response.Write "<pre>"
' Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, _
TristateUseDefault)
' Read the file line by line
Dim x
x=0
Do While Not TextStream.AtEndOfStream
x=x
Dim Line
Dim LineR
Line = TextStream.readline
' Do something with "Line"
Line = Line & vbCRLF
LineR = Replace(Line, VbCrLf, "
")
do
if instr(LineR, "
")< 1 then exit do
LineR=replace(LineR,"
", "
")
loop
Response.write LineR
x=x+1
Loop
Response.Write "</pre><hr>"
Set TextStream = nothing
Else
Response.Write "<h3><font color=red> File " & Filename &_
" does not exist</font></h3>"
End If
Set FSO = nothing
%>
Rispondi quotando
