---
title: "problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14198-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "i-or"
published: "2002-02-04T16:35:00.000Z"
updated: "2002-02-04T18:38:00.000Z"
replies: 5
views: 174
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/14198-problem"
---

# problem

## #1 — i-or, 2002-02-04T16:35Z

Varför funkar inte det här:

```
Response.Write left(format(Message),200)
```

när 

```
Response.Write left(Message,200)
```

fungerar. Hur ska jag göra för att lägga till formatfunktionen?

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

## #2 — LarsG, 2002-02-04T16:42Z

format finns inte i vbscript.

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

## #3 — i-or, 2002-02-04T18:15Z

Oj, var lite otydlig där. Format är en funktion som jag själv lagt in.

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

## #4 — LarsG, 2002-02-04T18:22Z

Jag förstår. Anropet ser rätt ut. 

Får du något fel?

Hur ser koden för din format ut?

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

## #5 — i-or, 2002-02-04T18:29Z

Jag får inget felmeddelande. Hela "Message" skrivs ut istället för bara de 200 första bokstäverna.

Om jag skriver så här:

```
Response.Write format(Message)
```

fungerar det också.

Koden för format ser ut så här:

```
<%
Dim strText, iLength, iPos1, iPos2, iWordLength

Function format(strText)

iPos1 = 1					
iPos2 = 1
iWordLength = 0

Do Until iPos2 = Len(strText)			

iPos2 = iPos2 + 1			

iWordLength = iWordLength + 1 		
		
If Mid(strText,iPos2,1) = " " Then
iWordLength = 0
End if
		
If iWordLength > 35 Then
strText = Mid(strText,1,iPos1-1)_
& Mid(strText,iPos1,iPos2-iPos1)_
& " " & Mid(strText,iPos2,Len(strText)-iPos2+1)
			
iPos1 = iPos2
iPos2 = iPos2 + 1
iWordLength = 0

End If

Loop

Response.Write strText 			

End Function
%>
```

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

## #6 — LarsG, 2002-02-04T18:38Z

En funktion returnerar ett värde, så du skall inte ha en response.write i den utan du tilldelar funktionsnamnet det värde du vill returnera.

```
<%
Dim strText, iLength, iPos1, iPos2, iWordLength
Function format(strText)

iPos1 = 1 
iPos2 = 1
iWordLength = 0

Do Until iPos2 = Len(strText) 

iPos2 = iPos2 + 1 

iWordLength = iWordLength + 1 

If Mid(strText,iPos2,1) = " " Then
iWordLength = 0
End if

If iWordLength > 35 Then
strText = Mid(strText,1,iPos1-1)_
& Mid(strText,iPos1,iPos2-iPos1)_
& " " & Mid(strText,iPos2,Len(strText)-iPos2+1)

iPos1 = iPos2
iPos2 = iPos2 + 1
iWordLength = 0

End If

Loop
[b]
format = strText 
[/b]
End Function
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14198-problem