Problem with code - Resolved

[rruble88]

Hello,
I'm getting an 'Invalid Procedure call or argument' error on this line. strTemp = Left$(InitialArray(x), InStr(InitialArray(x), "|") - 1)

I can change the '-1' to a '+1' and it works fine but gives me an extra character that I don't want. What I'm trying to to is just get the string up to the delimiter, but not the delimiter. I can't figure out why I keep getting an error. Can somebody please help..
Thanks, Rick

[James Stanich]

Look into the Mid Function

Something Like :

strText = "Text to Trim !"
 
Mid(strText,1,Len(strText)-1)

This would remove the ! character...

[techgnome]

I'd also look at the source string.... make sure it doesn;t START with the delimiter

Dim strString As String
 
strString = "|Col1|Col2"
MsgBox InStr(strString, "|") 'This will return 1
MsgBox InStr(strString, "|") - 1 'This will return 0
MsgBox Left$(strString, InStr(strString, "|") - 1)  'This will error, because you can't get the Left 0 characters.

[rruble88]

Thanks for the replies, I've been looking a code too long today!
I'm replacing a string in the array without adding the delimiter back into it..Thanks again

[James Stanich]

Add resolved to your first subject by editing your first post...

Glad you figured it out...