---
title: "ordlängd"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13921-ordlängd"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MaxPayne"
published: "2002-01-20T19:48:00.000Z"
updated: "2002-01-21T11:35:00.000Z"
replies: 15
views: 317
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/13921-ordlängd"
---

# ordlängd

## #1 — MaxPayne, 2002-01-20T19:48Z

Hur gör man om man vill att det ska bli brytning på lååååååååååååååååååååååååååååååååååååååååååååååååååånga ord i en gästbok?

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

## #2 — MaxPayne, 2002-01-20T19:55Z

hittade det här <http://www.webforum.nu/download/script/funktioner.txt>  så glöm frågan så länge, återkommer med frågor om det sen :)

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

## #3 — MaxPayne, 2002-01-20T21:04Z

Då var det dags igen då :)

Kan jag i den här raddan:

```
<%=radbyte(Server.HTMLEncode(recset("msg")))%>
```

 anropa denna funktion också:

```
Function Shorter(strText)
	arrText = Split(strText, " ")
	
	For counter = 0 To uBound(arrText)
		If Len(arrText(counter)) > 50 then
			If newText <> "" then
				newText = newText & " " & Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
			Else
				newText = Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
			End If
		Else
			If newText <> "" then
				newText = newText & " " & arrText(counter)
			Else
				newText = arrText(counter)
			End If
		End If
	Next
	
	Shorter = newText
End Function
```

'alltså typ:

```
<%=radbyte&Shorter(Server.HTMLEncode(recset("msg")))%> ??
```

Eller hur göra annars?

Funktion radbyte ser ut såhär:

```
<% function radbyte(str)
radbyte = Replace(str, vbCrLf, "<br>" & vbCrLf)
end function %>
```

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

## #4 — @nders, 2002-01-20T21:10Z

Det borde inte vara några större problem. Prova detta:

```
<%=radbyte(Shorter(Server.HTMLEncode(recset("msg"))))%>
```

Mvh,

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

## #5 — MaxPayne, 2002-01-20T21:31Z

Går det att lägga in någon form av loop i själva funktionen eller? För som det är nu fungerar det, men den bryter bara vid femtio en enda gång, så då är ju funktionen aningen onödig i så fall eftersom man kan hålla nere tangenten länge och få samma effekt.

Skickar med lite mera av koden..

```
<%
	set recset = server.createobject("ADODB.recordset")
	visa = "SELECT * FROM index ORDER BY ID desc"
	recset.open visa, connect, adopenstatic, adlockoptimistic
	steg = request.querystring("page") * msgpp - msgpp

	count = 0
	on error resume next
	recset.move steg
	do until recset.eof OR count = msgpp
%>

<%=radbyte(Shorter(Server.HTMLEncode(recset("msg"))))%> 

<% 
	count = count -- 1
	recset.movenext
	loop

	sql= "SELECT Count (ID) AS msgs FROM index"
	set recset = connect.execute(sql)

	if count = "" then 
	count = "0"
	meddelande = "Inga meddelanden"
	end if
%>
<%=meddelande%>
```

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

## #6 — MaxPayne, 2002-01-20T22:03Z

Ingen som vet?

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

## #7 — MaxPayne, 2002-01-21T00:40Z

Det stod ju faktiskt såhär i kommentarerna till det skriptet:

```
'# str = "ett jäääääättelångtordlängreänfemtioteckensomintekommerskrivasut helt
'# Response.Write Shorter(str)
'#
'# Skriver ut de 50 första tecknen av ordet, ett mellanslag, [b]och sen resten av ordet[/b]
Function Shorter(strText)
osv...
```

 Så jag antar att det gör vad man säger till det, men så vill ju inte jag ha det! Jag vill att resten av ordet, om resten är mer än femtio, också ska kapas av igen, och igen.... Nog måste väl det vara möjligt eller?

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

## #8 — @nders, 2002-01-21T05:07Z

<http://cgi.webforum.nu/wf/Forum11/HTML/008268.html>

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

## #9 — MaxPayne, 2002-01-21T05:40Z

Tack, men jag förstår ändå inte varför inte funktionen funkar för mig, jag har ju lagt den utanför alla loopar, ovanför alla html-taggar. och anropar den med koden jag fick.

Den funkar ju som sagt så pass att den bryter en gång, men inte flera..hmm, är väl lite trög antagligen :)

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

## #10 — @nders, 2002-01-21T05:51Z

Hur ser din kod ut nu?

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

## #11 — MaxPayne, 2002-01-21T06:07Z

Nåt sånt här!(med reservation för att jag städat lite för mycket)

```
'inkluderar adovbs.ink..
<% 
function radbyte(str)
radbyte = Replace(str, vbCrLf, "<br>" & vbCrLf)
end function 

Function Shorter(strText)
	arrText = Split(strText, " ")

	
	For counter = 0 To uBound(arrText)
		If Len(arrText(counter)) > 50 then
			If newText <> "" then
				newText = newText & " " & Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
			Else
				newText = Left(arrText(counter), 50) & " " & Right(arrText(counter), Len(arrText(counter))-50)
			End If
		Else
			If newText <> "" then
				newText = newText & " " & arrText(counter)
			Else
				newText = arrText(counter)
			End If
		End If
	Next
	
	Shorter = newText
End Function

%>

'==========================================================
<%
	set recset = server.createobject("ADODB.recordset")
	visa = "SELECT * FROM index ORDER BY ID desc"
	recset.open visa, connect, adopenstatic, adlockoptimistic
	steg = request.querystring("page") * msgpp - msgpp

	count = 0
	on error resume next
	recset.move steg
	do until recset.eof OR count = msgpp
%>

Namn: 
<%
	if recset("mail") = "" OR recset("mail") = "-" then
%> 
 <b><%=Server.HTMLEncode(recset("namn"))%></b>
<%
	else
%>
<a href=mailto:<%=recset("mail")%>><b><%=Server.HTMLEncode(recset("namn"))%></b></a>
<%
	end if
%>
<br>
<%
	if recset("hemsida")<> "" then
%>
sida: <%=Server.HTMLEncode(recset("hemsida"))%><br>
<%
	end if

%>
Skickat: <i><%=Server.HTMLEncode(recset("datum"))%></i>

<%'=radbyte(Server.HTMLEncode(recset("msg")))%>
<%=radbyte(Shorter(Server.HTMLEncode(recset("msg"))))%> 

<% 
	count = count -- 1
	recset.movenext
	loop

	sql= "SELECT Count (ID) AS msgs FROM index"
	set recset = connect.execute(sql)

	if count = "" then 
	count = "0"
	meddelande = "Inga meddelanden"
	end if
%>
<%=meddelande%>

Antal meddelande: <b><%=x%></b>

<%
else
response.redirect "default.asp?page=1"
end if%>
```

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

## #12 — @nders, 2002-01-21T06:57Z

Har du provat aleborgs eller LarsGs funktion i tråden jag länkade till?

Mvh,

\[Redigerat av @nders den 21 jan 2002\]

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

## #13 — MaxPayne, 2002-01-21T09:25Z

nej inte ännu, men dom bryter väl raden oavsett om tangenterna trycks ner länge?

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

## #14 — @nders, 2002-01-21T09:29Z

Vad vill du ha egentligen?

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

## #15 — MaxPayne, 2002-01-21T10:32Z

tvinga radbryt när någon försöker paja gästboken genom att hålla nere en tangent så det blir ett meeeeeeegalångt ord :)

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

## #16 — Toonster, 2002-01-21T11:35Z

Begränsa då storleken på inlägg, tex 400 tecken.

Sedan kan man med olika funktioner "fixa" och "trixa" med texten

/T

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13921-ordlängd