---
title: "Räkna rader i en text"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83969-räkna-rader-i-en-text"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melea"
published: "2003-08-11T09:16:54.000Z"
updated: "2003-08-11T17:04:28.000Z"
replies: 9
views: 310
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/83969-räkna-rader-i-en-text"
---

# Räkna rader i en text

## #1 — Melea, 2003-08-11T09:16Z

Hejsan!

Finns det någon funktion som gör att man kan räkna antalet rader i en text?

Jobbar på ett "Posta kod" script som jag måste få fram

Rad     \|    Kod
1\.             \<%=hej%\>
2\.             \<%=tjo%\>

etc

så jag måste räkna rader i koden för att veta hur jag ska skriva ut 1., 2. etc.

Hur gör jag detta?

MVH

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

## #2 — Jesper T, 2003-08-11T09:32Z

Ligger det hela i en databas eller öppnar du en sida med FSO?

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

## #3 — cyprys, 2003-08-11T09:33Z

Vad kommer texten i för format?
Om det är en textfil kan du ju alltid använda dig utav readline() och gå igenom hela filen.

Om det är en sträng så kan du splitta strängen vid varje radbryte som kännetecknas bl.a. som chr(10)...

```
Dim arrText() = split(StrText, chr(10))
```

...och loopa igenom arrayen rad för rad.

```
for i = lbound(arrText) to ubound(arrText)
response.write(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br />" & chr(10))
next
```

**R: Denna metod fungerar självklart även för att plocka ut ur databasen**

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

## #4 — Melea, 2003-08-11T09:34Z

Glömde kanske skriva det ;) Texten ligger hur som helst i en databas

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

## #5 — Melea, 2003-08-11T09:39Z

> **cyprys skrev:**
>
> Vad kommer texten i för format?
> Om det är en textfil kan du ju alltid använda dig utav readline() och gå igenom hela filen.
> 
> 
> Om det är en sträng så kan du splitta strängen vid varje radbryte som kännetecknas bl.a. som chr(10)...
>
> ```
> Dim arrText() = split(StrText, chr(10))
> ```
>
> ...och loopa igenom arrayen rad för rad.
>
> ```
> for i = lbound(arrText) to ubound(arrText)
> response.write(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br />" & chr(10))
> next
> ```
>
> **R: Denna metod fungerar självklart även för att plocka ut ur databasen**

Menar du såhär?

```
<%Dim arrText() = split(StrText(RecSet("kod")), chr(10))%>

<%for i = lbound(arrText) to ubound(arrText)
response.write(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br />" & chr(10))
next%>
```

MVH

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

## #6 — cyprys, 2003-08-11T12:48Z

precis!
Funkar väl? :)

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

## #7 — Melea, 2003-08-11T15:25Z

Nej =(

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/postakod/read.asp, line 35, column 14
Dim arrText() = split(StrText(RecSet("kod")), chr(10))
\-------------^

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

## #8 — cyprys, 2003-08-11T15:53Z

Dim arrText = split(StrText(RecSet("kod")), chr(10)) 
 :stud ?

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

## #9 — Melea, 2003-08-11T16:46Z

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/postakod/read.asp, line 35, column 12
Dim arrText = split(StrText(RecSet("kod")), chr(10))
\-----------^

 :l

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

## #10 — Gimbo, 2003-08-11T17:04Z

```
<%
Dim arrText
arrText() = split(StrText(RecSet("kod")), chr(10))

for i = lbound(arrText) to ubound(arrText)
response.write " "&(Cstr(Int(i - -1)) & ". " & arrText(i) & "<br/>" & chr(10)) "
next
%>
```

kanske?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/83969-räkna-rader-i-en-text