Fel på "Mid"

6 svar · 283 visningar · startad av Danielkun 2 nov. 2003

DanielkunMedlem sedan maj 2003361 inlägg

Frågan2 nov. 2003 03:13#1

Varför får jag detta fel på denna kod?

Körningsfel i Microsoft VBScript (0x800A0005)
Ogiltigt proceduranrop eller argument.: 'Mid'
/default.asp, line 97 (blir rad 3)

function Bild_Bokstav(strCompleteSentence)

For i = 0 to len(strCompleteSentence)
     strLetter = Mid(strCompleteSentence, i, 1)

     If LCase(strLetter) = strLetter Then

		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-s/" & strLetter & ".gif" & """>"
       
     Else

		if strLetter = "" then
		Bild_Bokstav = Bild_Bokstav & "&nbsp;"
		else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-l/" & strLetter & ".gif" & """>"
		end if

     End If

Next
end function

@ndersMedlem sedan juni 200032 967 inlägg

2 nov. 2003 05:47#2

Hur kallar du på funktionen?

- - - -

red: blah

cyprysMedlem sedan dec. 20003 563 inlägg

2 nov. 2003 06:46#3

Inom datavärlden börjar man alltid räkna med 0, inkl funktionen mid.
Byt ut mot detta så skall det nog lösa sig.

For i = 0 to len(strCompleteSentence) - 1

DanielkunMedlem sedan maj 2003361 inlägg

2 nov. 2003 11:23#4

Funkar inte med att lägga till -1 :(

Jag anropar den funktionen genom att skriva;

<%
text = "Hej på dig"
response.write Bild_Bokstav(text)
%>

Erik JuhlinMedlem sedan maj 200010 687 inlägg

2 nov. 2003 11:32#5

VB är inte som resten av datavärlden. Kör med:

For i = 1 To Len(strCompleteSentence)

DanielkunMedlem sedan maj 2003361 inlägg

2 nov. 2003 15:23#6

Tack! Det funka!

Om det är nån annan som behöver samma sak så klistrar jag in det..

function Bild_Bokstav(strCompleteSentence)

For i = 1 to len(strCompleteSentence)
     strLetter = Mid(strCompleteSentence, i, 1)

     If LCase(strLetter) = strLetter Then

		if strLetter = " " then
		Bild_Bokstav = Bild_Bokstav & "&nbsp;"
		else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-s/" & strLetter & ".gif" & """>"
		end if
       
     Else

		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-l/" & strLetter & ".gif" & """>"

     End If

Next
end function

cyprysMedlem sedan dec. 20003 563 inlägg

2 nov. 2003 17:00#7

Erik Juhlin skrev:

VB är inte som resten av datavärlden. Kör med:
For i = 1 To Len(strCompleteSentence)

Hehe. Sanning broder. :bire