WordLeft (visar ex. 10 första orden)

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

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 16 nov 2001]