---
title: "WordLeft (visar ex. 10 första orden)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38228-wordleft-visar-ex-10-första-orden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-11-02T16:09:00.000Z"
updated: "2001-11-02T16:09:00.000Z"
replies: 0
views: 1744
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/38228-wordleft-visar-ex-10-första-orden"
---

# WordLeft (visar ex. 10 första orden)

## #1 — Pace, 2001-11-02T16:09Z

**WordLeft** \- Denna funktionen visar exempelvis de tio första orden i en sträng och lägger på tre punkter (...) om strängen är längre.

**Exempel**
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>Response.Write WordLeft("Så du vill bara ha denna texten till tio ord? Nämen oj vad du är kräsen!", 10)

**Resultat**
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>Så du vill bara ha denna texten till tio ord?...

**Funktion**

```
Function WordLeft(strText, intNoOfWords)
	Dim arrText, strippedText, I

	arrText = Split(strText, " ")
	If UBound(arrText) => intNoOfWords Then
		For I = 0 To (intNoOfWords - 1)
			If i = (intNoOfWords - 1) Then 
				strippedText = strippedText & arrText(i) & "..."
			Else
				strippedText = strippedText & arrText(i) & " "
			End if
		Next
	Else
		strippedText = strText
	End If
	WordLeft = strippedText
End Function
```

[Diskutera fel och dylikt](http://cgi.webforum.nu/wf/Forum11/HTML/007084.html)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38228-wordleft-visar-ex-10-första-orden