Mid doesn't work?

[JavaDude32]

I'm not sure if this is the correct board, but as this code is in an ASP page and the default language is vbscript I'll post here. I have the following code:

Dim intTemp
For I = 0 to Len(Session("mapFeatures&quot)-1 Step 1
intTemp = Session("mapFeatures&quot
intTemp = Mid(intTemp,I)'Why isn't MID working??
intTemp = CInt(intTemp)
mapFeatures(intTemp) = "yes"
Next

The Error thrown is:

Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Mid'

I thought Mid was a built in function for vbscript (which ASP shouldn't affect that way)? Has anyone ever come across this problem?

BTW
CInt, Len and such works

 

[vganeshbabu]

try using mid$ instead of mid

 

[JavaDude32]

Doesn't work, complains of an invalid character

 

[vganeshbabu]

MID (string, first_char, num_chars)

is the syntax for the function - u had missed an argument.

 

[JavaDude32]

Ah, thank you. Also noticed now after its been awhile that the second is being intepretted as a character and not a number.

 

[vganeshbabu]

so did my answer help??

 

[JavaDude32]

Yeah to a degree, I would have grabbed the rest of the string had you not pointed that out, yet I now face the problem of getting the Mid Function to take the second argument as a variable as that is throwing the error. It needs to be in Long format and even CLng isn't working to do this.

 

[Ayac]

Mid(intTemp,I)

Is not right like that. You need a third parameter, the length of the character string. Plus "I" can not equal zero or below zero. You might want to check if "Session("mapFeatures&quot)-1" is at least 1 or bigger than that before you run Mid.

A tricky way of making intTemp variant to a number is:

intTemp = intTemp * 1

 

[JohnYingling]

The length argument of the MID function can be = 0 buut not < 0.
Try this.
Dim s As String
s = &quot;A&quot;
s = Mid(s, 1, 0)
MsgBox &quot;'&quot; & s & &quot;'&quot;

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript