---
title: "Mid fel vid dela text"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/111633-mid-fel-vid-dela-text"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2004-09-15T15:15:41.000Z"
updated: "2004-09-15T16:05:03.000Z"
replies: 1
views: 214
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/111633-mid-fel-vid-dela-text"
---

# Mid fel vid dela text

## #1 — Addeladde, 2004-09-15T15:15Z

Invalid procedure call Mid on line 19 (den feta raden)

```
strText = Trim(strText) 			' Tar bort eventuella mellanslag i början och slutet av texten!

	Do Until iPos2 = Len(strText)			' Loopar igenom strängen och letar efter mellanslag
		iPos2 = iPos2 + 1			' Pekaren får gå fram ett steg

		iWordLength = iWordLength + 1 		' Ökar på ordlängden

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

		If iWordLength > 60 Then		' Om ett ord är längre än 25 bokstäver.
			[b]strText = Mid(strText,1,iPos1-1) & Mid(strText,iPos1,iPos2-iPos1) & " " & Mid(strText,iPos2,Len(strText)-iPos2+1)[/b]
	
			iPos1 = iPos2
			iPos2 = iPos2 + 1
			iWordLength = 0
		End If
	Loop
```

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

## #2 — J.N., 2004-09-15T16:05Z

HEJ!

Ja, det ser ju rätt ut, två eller tre argument.

Det är bara att lösa felet genom att gräva ner sig i vad de tre olika mid:arna ger.

Någon av de ger fel siffror, dela upp rad 19 i de tre olika delarna, skriv ut texterna.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/111633-mid-fel-vid-dela-text