---
title: "split"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/66382-split"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2003-01-28T00:02:02.000Z"
updated: "2003-01-28T07:12:26.000Z"
replies: 8
views: 356
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/66382-split"
---

# split

## #1 — voigtann1, 2003-01-28T00:02Z

```
myarr = split(recset("sv_text"), " ")
Dim i
i = 0
do until i = 4
if i = 3 then 
response.write myarr(i) & " <a href=""shownews.asp?read=test"" target=""show"">Läs mer...</a>"
else
response.write myarr(i) & " "
end if
i = i + 1
loop
```

Om jag skriver nu 2 ord.. får jag error :( hur gör man så att den inte MÅSTE ha mer än 4 ord eller vad det är...

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

## #2 — solbulle, 2003-01-28T00:35Z

Nyckeln är ubound()
Går nog iofs o skriva bättre än detta.

```
myarr = split(recset("sv_text"), " ")
Dim i
i = 0
If ubound(myarr) > 3 then 
	slutet = 4
else 
	slutet = ubound(myarr)
End If

do until i = slutet
if i = 3 then 
response.write myarr(i) & " <a href=""shownews.asp?read=test"" target=""show"">Läs mer...</a>"
else
response.write myarr(i) & " "
end if
i = i + 1
loop
```

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

## #3 — cyprys, 2003-01-28T05:00Z

```
myarr = split(recset("sv_text"), " ")
Dim i
i = 0
for i = lbound(myarr) to ubound(myarr)
   select case i
	case 3
		response.write(myarr(i) & " <a href='shownews.asp?read=test' target='show'>Läs mer...</a>")
	case else
		response.write(myarr(i) & " ")
   end select
next
```

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

## #4 — voigtann1, 2003-01-28T06:50Z

> **cyprys skrev:**
>
> ```
> myarr = split(recset("sv_text"), " ")
> Dim i
> i = 0
> for i = lbound(myarr) to ubound(myarr)
>    select case i
> 	case 3
> 		response.write(myarr(i) & " <a href='shownews.asp?read=test' target='show'>Läs mer...</a>")
> 	case else
> 		response.write(myarr(i) & " ")
>    end select
> next
> ```

Om jag använder denna så får jag:
"Hej och välkommen **läs mera...** till min sida"

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

## #5 — voigtann1, 2003-01-28T06:54Z

.red råkade ta "citat" på mitt förra mess :(

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

## #6 — doggelito, 2003-01-28T06:59Z

ändra till case 2 istället för case 3. :)
eller nää, hur ska det vara då?:OO

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

## #7 — voigtann1, 2003-01-28T07:05Z

att jag ska bara ha x antal ord och sen kommer läs mera ...

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

## #8 — doggelito, 2003-01-28T07:09Z

det blir ju inte x antal ord om du har case 3, då blir det ju alltid läs mera efter 3:e ordet!

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

## #9 — @nders, 2003-01-28T07:12Z

Man måste ju se till att hoppa ur loopen när man skrivit ut länken.

```
myarr = split(recset("sv_text"), " ")
Dim i
i = 0
for i = lbound(myarr) to ubound(myarr)
   select case i
	case 3
		response.write(myarr(i) & " <a href='shownews.asp?read=test' target='show'>Läs mer...</a>")
		[b]exit for[/b]
	case else
		response.write(myarr(i) & " ")
   end select
next
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/66382-split