---
title: "Slänga ut 300 ord"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/52137-slänga-ut-300-ord"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SPinckney"
published: "2002-09-03T18:42:52.000Z"
updated: "2002-09-05T08:47:27.000Z"
replies: 6
views: 345
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/52137-slänga-ut-300-ord"
---

# Slänga ut 300 ord

## #1 — SPinckney, 2002-09-03T18:42Z

Hejsan,

Hur slänger man ut 300 ord ur ett fält som innehåller tex en nyhet?

Jag vill alltså ha ut 300 ord på första sidan sen en läsmer knapp där man kan se hela nyheten. Men också att hela sista ordet ska följa med så den inte avbryter mitt i ett ord?

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

## #2 — trexter.com, 2002-09-03T18:48Z

Jag hade gjort så här (finns kanske en bättre lösning):
Lägg in samtliga ord i en sträng.
Lägg in dem i en array genom att dela vid alla mellanslag ("").
Skriv sedan ut de tre hundra första värdena i arrayen.
Lägg till tre punkter.

 :)

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

## #3 — Gein, 2002-09-03T18:50Z

Hmm, detta kanske inte är så optimerat.

```
Dim arrWords, x, strText
arrWords = Split(RecSet("news"), " ")
x = 0
For Each word In arrWords
strText = strText & word & " "
x = x + 1
If x = 300 Then Exit For
Next
Response.Write strText
```

r) ändrade koden

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

## #4 — Pace, 2002-09-03T20:58Z

<http://www.webforum.nu/showthread.php?s=&threadid=37479>

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

## #5 — SPinckney, 2002-09-04T08:16Z

Man tackar

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

## #6 — Jaar, 2002-09-05T07:23Z

Vet inte om detta är en Oracle lösning, men annars kan du skriva

select substr(table.field, 0, 300) as tjoho

0:an symboliserar att du startar på pos 0 och 300 att du slutar på 300... En substr(table.field, 100, 400) as tjoho ger alltså tecken 100 till 400... men som sagt, kanske oracle endast...

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

## #7 — SPinckney, 2002-09-05T08:47Z

När jag kör den koden du skrev Gain

```

Dim arrWords, x, strText
arrWords = Split(RecSet("news"), " ")
x = 0
For Each word In arrWords
strText = strText & word & " "
x = x + 1
If x = 300 Then Exit For
Next
Response.Write strText
```

Och kör en Do Until Rs.news EOF

Så slänger den med Det första värdet i den andra posten och i den tredje posten slänger den med första och andra värdet.

TEx om jag har nyhet ett:

"Test av nyhet 1"

Sen har jag nyhet 2 som innehåller

"Test av nyhet 2"

Då blir Nyhet 2 såhär

"Test av nyhet 1 Test av nyhet 2"

och nyhet 3 blir

"Test av nyhet 1 Test av nyhet 2 Test av nyhet 3"

Jag måste alltså tömma strText varje gång den hoppar till nästa Recordset ?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/52137-slänga-ut-300-ord