---
title: "hämta 10 senaste raderna i en txt fil och skriv ut"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71265-hämta-10-senaste-raderna-i-en-txt-fil-och-skriv-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Qimen"
published: "2003-03-16T20:23:51.000Z"
updated: "2003-03-16T21:32:25.000Z"
replies: 9
views: 266
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/71265-hämta-10-senaste-raderna-i-en-txt-fil-och-skriv-ut"
---

# hämta 10 senaste raderna i en txt fil och skriv ut

## #1 — Qimen, 2003-03-16T20:23Z

Hej

Hur gör man för att en sida ska hämta de 10 senaste raderna från en loggfil (mirclogg) och skriva ut dem och sedan uppdatera sidan var tionde sekund och se om det har skrivits något nytt?

Vill även kunna designa sidan och måste ha det i asp.  :)

Permalänk: https://www.webforum.nu/p/71265

## #2 — Sebbe, 2003-03-16T20:39Z

```
<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("loggfilen.txt",1)

For i = 1 To 10
  Response.Write(objTS.ReadLine)
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/981975

## #3 — Qimen, 2003-03-16T20:49Z

Mysko. Jag får bara felmeddelande om att den inte hittar filen. Ändå ligger scriptet i rooten samt txt filen ?

Permalänk: https://www.webforum.nu/p/981981

## #4 — Sebbe, 2003-03-16T20:51Z

```
<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("loggfilen.txt"),1)

For i = 1 To 10
  Response.Write(objTS.ReadLine)
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/981983

## #5 — Qimen, 2003-03-16T20:51Z

Sen hur gör man för att det ska bli de tio sista raderna och inte de första? och så att de kommer på varsin rad?

Permalänk: https://www.webforum.nu/p/981984

## #6 — Sebbe, 2003-03-16T20:55Z

```
<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("loggfilen.txt"),1)

arrFil = Split(objTS.ReadAll,vbCrLf)

For i = UBound(arrFil) To (UBound(arrFil) - 10) Step -1
  Response.Write(arrFil(i) & "<br>" & vbCrLf)
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>
```

Kanske det funkar? Har inte kunnat testa dock.

Permalänk: https://www.webforum.nu/p/981987

## #7 — Qimen, 2003-03-16T21:00Z

Hepp tack för hjälpen.
Funkar fint nu.
<http://qimen.mine.nu/test.asp>

Permalänk: https://www.webforum.nu/p/981992

## #8 — Sebbe, 2003-03-16T21:06Z

Är det någon wF kanal du är inne i eller? :)

Permalänk: https://www.webforum.nu/p/982003

## #9 — Qimen, 2003-03-16T21:09Z

Jepp på #webforum @ Dalnet

Permalänk: https://www.webforum.nu/p/982006

## #10 — Sebbe, 2003-03-16T21:32Z

```
<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("loggfilen.txt"),1)

arrFil = Split(objTS.ReadAll,vbCrLf)

For i = UBound(arrFil) To (UBound(arrFil) - 10) Step -1
  strFil = strFil & arrFil(i) & "<br>" & vbCrLf
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Set objRE = New Regexp
objRE.Global = True
objRE.IgnoreCase = True
objRE.Pattern = "http:\/\/(^\.*).(\S*)"
strFilReplace = objRE.Replace(strFil,"<a href=""http://$1.$2"" target=""_blank"">[url]http://[/url]$1.$2</a>")
Set objRE = Nothing

Response.Write(strFilReplace)
%>
```

Gör för säkerhetens skull en säkerhetskopia av det gamla scriptet innan du testar det här :)

Permalänk: https://www.webforum.nu/p/982027

---

Tråden på webben: https://www.webforum.nu/amne/asp/71265-hämta-10-senaste-raderna-i-en-txt-fil-och-skriv-ut