---
title: "Nytt script > WordLeft"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13499-nytt-script-wordleft"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-11-02T16:11:00.000Z"
updated: "2002-01-02T17:16:00.000Z"
replies: 19
views: 280
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/13499-nytt-script-wordleft"
---

# Nytt script > WordLeft

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

[Här!](http://script.webforum.nu/wf/Forum1/HTML/000101.html)

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.

Diskussion kring fel och dylikt i denna tråden!

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

## #2 — Gimbo, 2001-11-02T16:15Z

Om man vill hämt de tio första orden från en databas, hur går man till väga då??

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

## #3 — Pace, 2001-11-02T16:23Z

De tio första orden går inte, bara de tio första bokstäverna (LEFT(fält, 10) i SQL frågan).

Men du kan ju ta ut hela texten, och sedan köra WordLeft funktionen på texten, så får du exempelvis enbart tio ord.

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

## #4 — LarsG, 2001-11-02T16:26Z

Då anropar du bara funktionen så här

```
response.write WordLeft(rs("NewsColumn"),10)
```

Om man vill få till det direkt med select så får man skriva en egen sql-funktion för det. Alla dbms har inte stöd för det (t.ex. Access och Mysql).

red: 10 var det

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

## #5 — Pace, 2001-11-02T16:43Z

En annan sak jag vill påpeka är att ni gärna kan **betygsätta fler script**! På så vis får ju alla en vägledning om scriptets användarfunktionalitet.

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

## #6 — icaaq, 2001-11-02T20:09Z

Perfa, precis vad jag vill ha :e

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

## #7 — Rinaldo, 2001-11-02T23:58Z

Du får en femma av mig sörru :)

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

## #8 — casca, 2001-11-03T00:03Z

Är det bara jag som är dum, eller varför inte bara använda den inbyggda funktionen LEFT()? ;)

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

## #9 — M@rtin, 2001-11-03T00:11Z

För att det gäller ord och inte bokstäver ;)

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

## #10 — Pace, 2001-11-03T00:21Z

> Du får en femma av mig sörru

Nää, det var inte så jag menade mig. ;) Visst uppskattar jag en femma, men betygsätt allt annat också, på så vis får vi alla vägledning! :) 

> Är det bara jag som är dum

Ja.

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

## #11 — Skarre, 2001-11-03T16:25Z

Kan man inte göra en liknande funktion där man kan bestämma högsta antal tecken, men om gränsen går mitt i ett ord fortsätter det till ordets slut. Jag hoppas ni förstår vad jag menar. Annars kan det bli ganska stora skillnader i texternas längd (om någon text har många långa ord).

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

## #12 — LarsG, 2001-11-03T19:29Z

```
function wordEnd(Str,maxLength)
wordEnd = left(str,instr(mid(str,maxLength)," ")+maxLength-1)
end function
```

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

## #13 — Rinaldo, 2001-11-04T09:50Z

Jag tycker scriptet är värt en femma eftersom det funkar jättebra till det de ska användas till...

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

## #14 — Percy, 2002-01-02T16:33Z

Är jag den enda som inte får det att fungera?
använder mig av följande kodsnytt för att få ut texten, men jag få inte ut ett enda tecken!

```
<%=WordLeft(rs("content"),10)%>
```

men om jag använder följande kodrad fungerar det alldeles utmärkt med undantaget att den visar hela texten.

```
<%=rs("content")%>
```

någon som har någon lösning på varför den inte visar någon text? sidan genererar ej heller något felmeddelande.

tack på förhand!

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

## #15 — Pace, 2002-01-02T16:39Z

Det måste vara någon global variabel som spökar. Hur ser resten av koden ut?

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

## #16 — Percy, 2002-01-02T16:41Z

koder ser ut enligt följande:

```
<%
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 = strippedTextEnd
End Function
%>
<html>
<head>
<title>Nyheter</title>
</head>
<body bgcolor="#FFFFFF">
<link rel="stylesheet" href="../style1.css">
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\databas.mdb"
%>
<% If (Request.QueryString("id") = "") Then
SQLStmt = "SELECT *, Format$([time],'hh:mm') AS FormTime FROM news ORDER BY id DESC"
Set rs = Connection.Execute(SQLStmt)
%>
<table align="center" border="0" width="400">
<tr><td colspan="2"><b>Nyheter <%=Date%></b></td></tr>
<tr><td background="../images/dots.gif" height="3" width="90%" colspan="2"></td></tr>
<tr><td>&nbsp;</td></tr>
<%Do Until rs.EOF%>
<tr><td align="left"><b><%=rs("header")%></b> [<%=rs("datum")%> <i><%=rs("formtime")%></i>]<br><%=WordLeft(rs("content"),10)%> <b><a href="news.asp?id=<%=rs("id")%>"><b>Läs mer</b></a></td></tr><%
RS.MoveNext
Loop
RS.Close
Connection.Close
%>
<tr><td>&nbsp;</td></tr>
<tr><td background="../images/dots.gif" height="3" width="90%" colspan="2"></td></tr>
<tr><td colspan="2"><!--#include virtual="copyright.inc"--></td></tr>
<% Else
SQLStmt = "SELECT *, Format$([time],'hh:mm') AS FormTime FROM news WHERE id = " & Request.QueryString("id") & ""
Set RS = Connection.Execute(SQLStmt)
%>
<table align="center" border="0" width="400" cellpadding="2" cellspacing="0">
<tr><td><b><%=rs("header")%></b> <%=rs("datum")%>, <i><%=rs("formtime")%></i></td></tr>
<tr><td background="../images/dots.gif" height="3" width="90%"></td></tr>
<tr><td><%=rs("content")%></td></tr>
<tr><td>&nbsp;</td></tr>
<tr><td><%=rs("author")%></td></tr>
<tr><td>&nbsp;<br><a href="news.asp">&laquo; Tillbaka</a></td></tr>
<tr><td background="../images/dots.gif" height="3" width="90%"></td></tr>
<tr><td><!--#include virtual="copyright.inc"--></td></tr>
<%
rs.Close
Connection.Close
End If
%>
</table>
</body>
</html>
```

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

## #17 — Pace, 2002-01-02T16:52Z

Du har råkat lägga till 'End' på slutet av variabeln. Det ska bara vara strippedText.

```
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[b]End[/b]
End Function
```

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

## #18 — Percy, 2002-01-02T17:02Z

tackar så mkt för hjälpsamheten!

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

## #19 — Pace, 2002-01-02T17:05Z

Ingen fara. ;)

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

## #20 — Cactuz, 2002-01-02T17:16Z

mkt användarbar o kulig grej :e :e :e

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13499-nytt-script-wordleft