---
title: "Nyhet som visar dom typ 10 första orden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12422-nyhet-som-visar-dom-typ-10-första-orden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2001-11-02T10:17:00.000Z"
updated: "2001-11-02T16:26:00.000Z"
replies: 20
views: 283
page: 1
pages: 2
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/12422-nyhet-som-visar-dom-typ-10-första-orden"
---

# Nyhet som visar dom typ 10 första orden

_Sida 1 av 2._

## #1 — voigtann1, 2001-11-02T10:17Z

Kan man göra det? en nyhets kod som visar bara en liten text av själva nyheten?

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

## #2 — icaaq, 2001-11-02T10:22Z

läste inte frågan... :r

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

## #3 — voigtann1, 2001-11-02T10:26Z

Det var bara 10 tecken.. inte 10 ord =)

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

## #4 — LarsG, 2001-11-02T10:28Z

```
response.write left(nyheten,10)
```

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

## #5 — voigtann1, 2001-11-02T10:29Z

```
response.write left(nyheten,10)
```

Det är fortfarande 10 bokstäver och inte 10 ord.

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

## #6 — LarsG, 2001-11-02T10:32Z

Då miisförstod jag dig, jag trodde att du kommenterade din titel (och jag hann aldrig läsa icaaqs inlägg)

```
set o = new regexp
o.global = true
o.pattern = "(([a-zA-z0-9])*([\ \,\.])*)"
t = rs("yourColumn")
Set Matches = o.Execute(t)
if matches.count > 9 then i = 9 else i = matches.count
response.write mid(t,1,matches.item(i).firstindex+matches.item(i).length)
```

Det beror på vad du menar med ett ord, men nu har använt space , . som avslutning på ord. Det går att lägga till fler om man vill det.

red: felstavning av korvmannen (inte bra)

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

## #7 — Brimba, 2001-11-02T10:32Z

```
myarr = split(nyheten, " ")

Dim i
i = 0
do until i = 9
   respone.write myarr(i)
i = i + 1
```

eller så....

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

## #8 — voigtann1, 2001-11-02T10:41Z

Någon Loop behövs för din brimba

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

## #9 — Brimba, 2001-11-02T10:53Z

jaja, skriv till det då ;)

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

## #10 — voigtann1, 2001-11-02T11:07Z

men jag vet inte var loop:en ska vara..

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

## #11 — Vide, 2001-11-02T11:18Z

```
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
i = i + 1
loop
```

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

## #12 — voigtann1, 2001-11-02T11:23Z

detta e fel det vet jag, men jag MÅSTE få koden:

```
<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
i = i + 1
loop
%>
```

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

## #13 — Vide, 2001-11-02T11:36Z

Och varför är det fel?

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

## #14 — voigtann1, 2001-11-02T11:40Z

får error bara

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

## #15 — Vide, 2001-11-02T11:49Z

Det är lite svårt för oss att se vad du fått för error, och utan det så är det lite svårt att hjälpa till, så visa alltid felmeddelanden.

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

## #16 — voigtann1, 2001-11-02T12:04Z

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/spel/test.asp, rad 32 

Så!

Rad 32:
respone.write myarr(i)

och koden är:

```
<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
i = i + 1
loop
%>
```

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

## #17 — Vide, 2001-11-02T12:11Z

**response** heter det... ;)

Sedan måste till koll in i loopen:

```
<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
if i = ubound( myarr ) then exit do
i = i + 1
loop
%>
```

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

## #18 — LarsG, 2001-11-02T12:12Z

Felstavning av response, sen så bör du skriva dit ett mellanslag efter varje ord.

```
<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
response.write myarr(i) & " "
i = i + 1
loop
%>
```

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

## #19 — voigtann1, 2001-11-02T14:13Z

Om jag skulle vilja ha "..." efter de 10 orden som jag nu har lagt till typ.. hur gör jag :r

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

## #20 — LarsG, 2001-11-02T14:30Z

```
<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
if ubound(myarr) <= 9 then
   response.write nyheten
else
Dim i
for i = 0 to 9
if i = 9 then 
response.write myarr(i) & "..."
else
response.write myarr(i) & " "
end if
next
end if
%>
```

red: for loop är snyggare

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12422-nyhet-som-visar-dom-typ-10-första-orden  
Nästa sida: https://www.webforum.nu/amne/asp/12422-nyhet-som-visar-dom-typ-10-första-orden/page2.md