---
title: "Räkna rader med FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88919-räkna-rader-med-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2003-10-19T17:39:30.000Z"
updated: "2003-10-19T19:11:34.000Z"
replies: 10
views: 361
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/88919-räkna-rader-med-fso"
---

# Räkna rader med FSO

## #1 — Jesper T, 2003-10-19T17:39Z

Jag skulle behöva räkna rader i en textfil med FSO, vad är smartast?

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

## #2 — Sebbe, 2003-10-19T17:42Z

Kanske såhär?

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
intRader = UBound(Split(objTS.ReadAll, vbCrLf)) + 1
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
```

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

## #3 — @nders, 2003-10-19T17:43Z

Läs in filens innehåll i en variabel, splitta på radbrytning och använd UBound() för att ta reda på högsta index i arrayen.

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

## #4 — Jesper T, 2003-10-19T18:13Z

Ok, tack.
Finns det något smidigt sätt att få WriteLine(forAppending) att skrivas förs i textfilen, och inte sist som den gör nu?

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

## #5 — @nders, 2003-10-19T18:14Z

Nej, du får skriva det du ska skriva till filen, och sedan skriva tillbaka det som låg där innan.

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

## #6 — Sebbe, 2003-10-19T18:16Z

Kanske såhär då?

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
strText = objTS.ReadAll
objTS.Close : Set objTS = Nothing

Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"), 2) ' ForWriting
objTS.WriteLine("Detta kommer överst, över den gamla texten.")
objTS.Write(strText)
objTS.Close : Set objTS = Nothing

Set objFSO = Nothing
```

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

## #7 — Jesper T, 2003-10-19T18:24Z

Tack, funka 100% bra.

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

## #8 — Jesper T, 2003-10-19T18:47Z

Hur radera allt efter rad 10?
Alltså, textfilen får endast innehålla 10 rader.

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

## #9 — Sebbe, 2003-10-19T19:03Z

Nu börjar du bli jobbig. ;) :P

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
arrText = Split(objTS.ReadAll, vbCrLf)
objTS.Close : Set objTS = Nothing

Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"), 2)
objTS.WriteLine("Detta kommer överst, över den gamla texten.")

For i = UBound(arrText) To 0 Step - 1
  If i > UBound(arrText) - 10 Then
    objTS.Write(arrText(i))
  Else
    Exit For
  End If
Next

objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
```

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

## #10 — Jesper T, 2003-10-19T19:10Z

Nu var du jättebussig, tårta kommer på posten.

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

## #11 — Sebbe, 2003-10-19T19:11Z

> **Jesper T skrev:**
>
> Nu var du jättebussig, tårta kommer på posten.

Mums! :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88919-räkna-rader-med-fso