---
title: "Hjälp Med Function snälla :("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/174164-hjälp-med-function-snälla"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "akke"
published: "2008-09-18T16:30:51.000Z"
updated: "2008-09-19T15:31:23.000Z"
replies: 10
views: 635
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/174164-hjälp-med-function-snälla"
---

# Hjälp Med Function snälla :(

## #1 — akke, 2008-09-18T16:30Z

hej varje gång man skickar ett tomt inlägg med mellanslag så kmr den här felet

Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument: 'Mid' 

D:\\WEBUSERS\\32060\\TURKWEB.SE\\WWW\\INSIDE\\../includes/andratext.asp, line 200 

men om ja tar bort mellanslaget på line 190 så kmr inte automatisk br i inlägget

hur ja kan lösa det här problemet.

Function delaText(strText)

    iPos1 = 1    
    iPos2 = 1
    iWordLength = 0

    strText = Trim(strText) 

    Do Until iPos2 = Len(strText)

        iPos2 = iPos2 + 1

        iWordLength = iWordLength + 1

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

        If iWordLength \> 50 Then
            
            strText = Mid(strText,1,iPos1-1)\_
            & Mid(strText,iPos1,iPos2-iPos1)\_
            & " " & Mid(strText,iPos2,Len(strText)-iPos2+1) **Line 190...!!!!**            
            iPos1 = iPos2
            iPos2 = iPos2 + 1
            iWordLength = 0

        End If

    Loop

    strText = Replace(strText ,vbCrlf,"\<br\>")  **Line 200 Här.....!!!!!!!!!!!!!!**

    delaText=strText

End Function

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

## #2 — Peter S, 2008-09-18T16:36Z

Det här:

```
Do Until iPos2 = Len(strText)
```

...är ingen höjdare, eftersom det förutsätts att strText innehåller någonting.

Ett enkelt sätt att komma runt problemet är att wrappa loopen i en if-sats som endast äntras om längden på strText är större än iPos2.

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

## #3 — akke, 2008-09-18T16:52Z

> **Peter S skrev:**
>
> Det här:
>
> ```
> Do Until iPos2 = Len(strText)
> ```
>
> 
> ...är ingen höjdare, eftersom det förutsätts att strText innehåller någonting.
> 
> Ett enkelt sätt att komma runt problemet är att wrappa loopen i en if-sats som endast äntras om längden på strText är större än iPos2.

ja förstår inte vad du menar.

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

## #4 — Peter S, 2008-09-18T17:50Z

Loopen stannar när villkoret iPos2 = Len(strText) är sant. Men det kommer aldrig att bli sant om strText inte innehåller något. Så en enkel fix är alltså att se till att loopen ej körs om längden på strText är \<= iPos2:

```
if len(strText) > iPos2 then
  Do Until iPos2 = Len(strText)
    ...
  Loop
end if
```

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

## #5 — Eclipse, 2008-09-18T19:03Z

IF strText \<\> "" THEN strText = Replace(strText ,vbCrlf,"\<br\>")

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

## #6 — Peter S, 2008-09-18T19:10Z

> **Eclipse skrev:**
>
> IF strText \<\> "" THEN strText = Replace(strText ,vbCrlf,"\<br\>")

Fast den delen är det ju inga problem med. En Replace() på en tom sträng resulterar inte i något fel :)

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

## #7 — akke, 2008-09-18T19:21Z

> **Peter S skrev:**
>
> Fast den delen är det ju inga problem med. En Replace() på en tom sträng resulterar inte i något fel :)

 ja tror att problemet här

**& " " &**  Mid(strText,iPos2,Len(strText)-iPos2+1)

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

## #8 — Eclipse, 2008-09-19T08:41Z

> **Peter S skrev:**
>
> Fast den delen är det ju inga problem med. En Replace() på en tom sträng resulterar inte i något fel :)

Jag brukar få felmeddelanden då, men det kanske är i andra sammanhang.

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

## #9 — Peter S, 2008-09-19T08:45Z

> **akke skrev:**
>
> ja tror att problemet här
> 
> **& " " &**  Mid(strText,iPos2,Len(strText)-iPos2+1)

Har du läst inlägg #4?

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

## #10 — akke, 2008-09-19T15:13Z

> **Peter S skrev:**
>
> Har du läst inlägg #4?

Har löst problemet.

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

## #11 — Zaiman, 2008-09-19T15:31Z

Kanske markera inlägget som lösningen på ditt problem ;) ?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/174164-hjälp-med-function-snälla