---
title: "Korta ner mening med func?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/139030-korta-ner-mening-med-func"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jlee"
published: "2005-12-08T22:12:44.000Z"
updated: "2005-12-21T21:27:20.000Z"
replies: 17
views: 959
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/139030-korta-ner-mening-med-func"
---

# Korta ner mening med func?

## #1 — jlee, 2005-12-08T22:12Z

Vill korta ner texten i detta rs med en funktion eller nåt 

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

.
Jag vill alltså inte korta ner för långt ord - jag vill korta ner en mening till tex 50 tecken och därefter kommer resten på nästa rad.
Kanske detta går att fixa redan i sql frågan?

```
sql = "SELECT start FROM start ORDER BY ID DESC"
```

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

## #2 — emission, 2005-12-08T22:26Z

<http://www.webforum.nu/showthread.php?t=112043>

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

## #3 — jlee, 2005-12-08T22:44Z

Får inte till det med den informationen. Testade denna

```
<%
novellText = rs("novellText") 

If Len(novellText) > 50 Then
    Response.Write Left(novellText, 50) & "..."
Else
    Response.Write novellText
End If
%>
```

och det andra sättet men får inte det att funka

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

## #4 — Riffles, 2005-12-08T23:05Z

Du har inte glömt att ändra ditt RS novellText till start?

\<%
novellText = rs("start") 

If Len(novellText) \> 50 Then
    Response.Write Left(novellText, 50) & "..."
Else
    Response.Write novellText
End If
%\>

novellText kan du ändra till något mer passande namn i ditt fall.

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

## #5 — jlee, 2005-12-08T23:27Z

jo jag ändrade det innan jag testade

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

## #6 — emission, 2005-12-08T23:41Z

Det vore ju lite intressant att få veta vad som inte fungerar, vad som händer eller inte händer....

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

## #7 — jlee, 2005-12-08T23:56Z

Den kapar inte texten och den gillar inte min function som jag har lagt till heller.

```
<%
texten = start(rs("start")) 

If Len(texten) > 50 Then
Response.Write Left(texten, 50) & "..."
Else
Response.Write texten
End If
%>
```

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

## #8 — emission, 2005-12-09T00:14Z

Kapar den inte texten? Är den verkligen längre än 50 tecken? Vad menar du med "gillar inte min function"?

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

## #9 — J.N., 2005-12-09T12:55Z

HEJ!

Vad gör funktionen start, start(rs("start"))?

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

## #10 — Palle, 2005-12-09T13:02Z

```
Function fCropText(strValue,intLength)
	If Len(trim(strValue)) > intLength Then
		fCropText = Left(strValue, intLength) &" .."
	Else
		fCropText = strValue
	End If
End Function

...

<%= fCropText(rs("start"), 50) %>
```

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

## #11 — jlee, 2005-12-10T11:28Z

Denna typ av funktion är ju vad jag letat efter men jag får felmess =(

 **Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'fCropText'**

Testat med slutparanteser både innan ,50 och efter 

```
<%=enter(start(fCropText(rs("start"), 50))) %>
```

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

## #12 — emission, 2005-12-10T14:33Z

Har du verkligen lagt in funktionen också?

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

## #13 — N0M0NEY, 2005-12-11T01:09Z

jlee, visa all din kod så man kan se hur du tänkt osv..

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

## #14 — jlee, 2005-12-11T14:12Z

Först databas anslutn sen---\>

```
 <% Do While Not rs.EOF %>

              <%=enter(start(fCropText(rs("start"), 50))) %> 
              <% Rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
```

Har inkluderat funktionen från ett annan sida med bara funktioner  - men den ser ut som den jag fick av Palle:

```
<%
Function fCropText(strValue,intLength)
	If Len(trim(strValue)) > intLength Then
		fCropText = Left(strValue, intLength) &" .."
	Else
		fCropText = strValue
	End If
End Function
%>
```

Märkligt va?!

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

## #15 — N0M0NEY, 2005-12-11T14:36Z

Hur ser dina enter och start functioner ut ?

Jag skulle köra nånting sånt här:

```
fCropText(enter(start(rs("start"), 50)))
```

Istället..

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

## #16 — jlee, 2005-12-11T17:56Z

Testade som du skrev men med alla står det:
**Microsoft VBScript runtime error '800a01c2' 
Wrong number of arguments or invalid property assignment: 'start'**  
Och om jag utelämnar start och enter så blir det två punkter bara.. istället för texten.

Funktionerna:

```
<%
	Function enter(str)
	enter = Replace(str, vbCrLf, "<BR>" & vbCrLf)
	End function
%>
<%
Function start(strText)
  Set objRX = New Regexp  
  
  objRX.Global = True
  objRX.IgnoreCase = True
  objRX.Pattern = "start(\d+)"
 
 start = objRX.Replace(strText, "<img src=""$1.jpg"" >")
  End Function
%>
```

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

## #17 — emission, 2005-12-11T18:20Z

Det är inte så lyckat att kapa av texten om det finns en risk att den innehåller HTML (som start-funktionen gör). Det kan ju resultera i att man kapar mitt i en img-tagg, till exempel.

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

## #18 — webbSAJTEN, 2005-12-21T21:27Z

vet att de finns ett mycket enkelt sätt men hittar inte kodsnutten..
Denna funkar iof också.

```
Text = Mid(RS("Text"),1,50)
response.write Text
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/139030-korta-ner-mening-med-func