---
title: "Splitterfunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12098-splitterfunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "M477145"
published: "2001-10-14T11:27:00.000Z"
updated: "2001-10-15T05:44:00.000Z"
replies: 4
views: 164
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/12098-splitterfunktion"
---

# Splitterfunktion

## #1 — M477145, 2001-10-14T11:27Z

Avklarat!

\[Redigerat av M477145 den 14 okt 2001\]

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

## #2 — LarsG, 2001-10-14T12:49Z

```
for i = 0 To uBound(splittrad)
tmp = splttrad(i)
offset = 1
while len(tmp) > 60
tmpTEXT = tmpTEXT & " " & left(tmp,60)
tmp = mid(tmp,offset)
offset = offset + 60
wend
if len(tmp) > 0 then
tmpTEXT = tmpTEXT & " " & tmp
end if
next
```

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

## #3 — M477145, 2001-10-14T21:23Z

Så här funkade det, tack Vide:

```
function splitta(ord)
   splittrad = split(ord, " ")
   for i = 0 To uBound( splittrad )
      if len( splittrad(i) ) > 60 then
      for j = 1 to len( splittrad(j) )
      tmpTEXT = tmpTEXT & mid( splittrad(i), j, 1 )
      if j mod 60 = 0 then tmpTEXT = tmpTEXT & " "
      next
      else
      tmpTEXT = tmpTEXT & " " & splittrad( i )
      end if
   next
   
   tmpTEXT = replace( tmpTEXT, vbcrlf, "<br>" )
   response.write( tmpTEXT )
end function
```

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

## #4 — Pace, 2001-10-14T21:32Z

> Avklarat!

Försök att undvika att skriva så, Mattias, då blir det svårare för oss andra att ta del av kunskapen.

Välkommen till webForum förresten!

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

## #5 — M477145, 2001-10-15T05:44Z

Ska tänka på det till nästa gång, PACE!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12098-splitterfunktion