---
title: "Räkna ord i dokument eller fil?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77183-räkna-ord-i-dokument-eller-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2003-05-16T20:20:08.000Z"
updated: "2003-05-16T21:08:51.000Z"
replies: 4
views: 195
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/77183-räkna-ord-i-dokument-eller-fil"
---

# Räkna ord i dokument eller fil?

## #1 — bigsky, 2003-05-16T20:20Z

Hur gör man det?

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

## #2 — Sebbe, 2003-05-16T20:29Z

Något sånt här kanske? :)

```
<%
Dim arrRader(), objFSO, objTS

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
arrRader = Split(objTS.ReadAll)
Response.Write("Det fanns " & UBound(arrRader) + 1 & " ord i dokumentet")

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

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

## #3 — bigsky, 2003-05-16T20:45Z

Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer 

/test.asp, rad 6

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

## #4 — Sebbe, 2003-05-16T20:54Z

Aha, ojdå. :)

```
<%
Dim arrRader, objFSO, objTS

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("fil.txt"))
arrRader = Split(objTS.ReadAll)
Response.Write("Det fanns " & UBound(arrRader) + 1 & " ord i dokumentet")

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

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

## #5 — bigsky, 2003-05-16T21:08Z

Tack

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77183-räkna-ord-i-dokument-eller-fil