---
title: "Trevlig funktion för att skapa en list"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/123577-trevlig-funktion-för-att-skapa-en-list"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2005-03-02T13:18:13.000Z"
updated: "2005-03-02T13:44:10.000Z"
replies: 6
views: 249
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/123577-trevlig-funktion-för-att-skapa-en-list"
---

# Trevlig funktion för att skapa en list

## #1 — Jesper T, 2005-03-02T13:18Z

Tanken är att min funktion skall skapa en lista av text med radbrytningar. Men är det fler än en så blir det en \<li\>\</li\> för mycke. Och sätter jag till -1 efter ubound så funkar det inte när det bara är en rad.
Måste jag kladda med if-satser här, eller är det någon som hommer på något smart trick?

```
Function makelist(byVal inpt)
Dim inp,i
inp=split(inpt,vbcrlf)
	For i = 0 to ubound(inp)
		output = output & "<li>"& inp(i) &"</li>"& vbcrlf
	Next
	makelist = "<ul>"& vbcrlf & output & vbcrlf &"</ul>"
End function
```

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

## #2 — Engine^, 2005-03-02T13:23Z

Möjligen...

```
inp = split(inpt, vbcrlf)

output = join(inp, "</li><li>")
output = "<ul><li>" & output & "</li></ul>"
```

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

## #3 — Jesper T, 2005-03-02T13:27Z

Samma sak uppstår... (min hjärna håller på att skrumpna)

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

## #4 — Engine^, 2005-03-02T13:30Z

Isånnafall så verkar ju din *inpt* innehålla ett tomt sista fält om det är fler än ett fält...

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

## #5 — Jesper T, 2005-03-02T13:32Z

Borde den då inte försvinna med trim()

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

## #6 — Engine^, 2005-03-02T13:34Z

Nja... det är en radbrytning för mycket du har isånnafall och inte mellanslag.

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

## #7 — Jesper T, 2005-03-02T13:44Z

Du hade rätt. Det var en för mycket där... :r
BTW: Varför köra split/join i stället för en replace?

```
Function makelist(byVal inpt)
Dim output
output = replace(trim(inpt),vbcrlf,"</li><li>")
makelist = "<ul><li>" & output & "</li></ul>"
End function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/123577-trevlig-funktion-för-att-skapa-en-list