03. januar 2011 - 13:31Der er
3 kommentarer og 1 løsning
FSO Læsning af txt-file
Bruger følgende til at displaye en text-fil(Den læser fra top til bund). Jeg vil gerne displaye filen så sidste linie i txt-filen kommer ud som første linie i det displayede.
Dim FSO set FSO = server.createObject("Scripting.FileSystemObject")
Dim Filepath Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
Dim file set file = FSO.GetFile(Filepath)
Response.Write "<pre>"
Dim TextStream Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
Do While Not TextStream.AtEndOfStream Dim Line Line = TextStream.readline
If Left(Line,2) = "JS" Then Response.write "<font color=red>" & Line & "</font></i></h3>" Else Response.write "<font color=green>" & Line & "</font></i></h3>" End If
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Dim FSO set FSO = server.createObject("Scripting.FileSystemObject")
Dim Filepath Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then Dim idx, indhold, arrIndhold, Line Dim file
set file = FSO.OpenTextFile(Filepath) indhold = file.ReadAll() file.close set file = nothing
arrIndhold = Split(indhold, vbCrLf)
Response.Write "<pre>"
for idx = ubound(arrIndhold) to 0 step -1 Line = arrIndhold(idx) If Left(Line,2) = "JS" Then Response.write "<font color=red>" & Line & "</font><br>" Else Response.write "<font color=green>" & Line & "</font><br>" End If next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.