Byt ut ReadLine mot ReadAll 
Trådstart#1
Hur ska jag göra för att skriva ut en textfil på min asp-sida.
Nu använder jag Readline, men då skriver den bara ut första raden.
Hjälp mig!
Readline
2 svar · 174 visningar · startad av qwerty
Detta är ett bra sätt att skriva ut filer, eller iaf läsa dem!
const ForReading = 1
const TristateFalse = 0
dim strSearchThis
dim objFS
dim objFile
dim objTS
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFS.GetFile(Server.MapPath("myfile.txt"))
set objTS = objFile.OpenAsTextStream(ForReading, TristateFalse)
strSearchThis = objTS.Read(objFile.Size)
Koden kommer från http://www.4guysfromrolla.com/webtech/010401-1.shtml
Det tar 0.28 sekunder att läsa in en fil på 1mb.
//Markus