Removing a non unique char from string

mat41 · June 25th, 2004, 08:16 AM

Good Day

Is the a VBS function that will remove a , from the end of a string?
I am aware of left,right and mid functions to get values, what if I want to remove a character?

If this char is unique I can use replace to replace it with an ""
, however it's something like:

strBefore = 10/03,11/03,12/03,14/03,15/03,

What I have done is:
getlength = Len(aString)
strAfter = left(aString, getlength - 1)

There must be a one function move for this surely?

Thank you in advance

Wind is your friend
Matt

happygv · June 25th, 2004, 08:23 AM

What you do is right Matt.

May be you can put that in one line like this.

Code:

strAfter = left(aString, Len(aString) - 1)

Cheers!

_________________________
-Vijay G

Strive for Perfection

Imar · June 25th, 2004, 08:24 AM

No, there isn't. You'll need to use Left and Len, although you could write it in one statement:

strAfter = Left(aString, Len(aString) - 1)

or

aString = Left(aString, Len(aString) - 1)

to reassign the value of aString back to aStrign immediately.

You could also use InStrRev to get the position of the last comma in the string. Look at the Functions list for VB Script for more details: http://msdn.microsoft.com/library/de...iFunctions.asp

But it all comes down to the same.

Cheers,

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

ChrisScott · June 25th, 2004, 08:24 AM

Hi Matt,

Don't think there is a single function, but IMO regular expressions are a nice way to do it...

Code:

Dim myString: myString = "1,2,3,4,"
Dim myExp: Set myExp = New RegExp
myExp.Pattern = ",$"
Response.Write myExp.Replace(myString, "")
Set myExp = Nothing

Best regards,

Chris

mat41 · June 25th, 2004, 08:41 AM

What can I say, the quickest replys in history - thanking you all kindly!

Ahh - InstrRev I had forgotten about that one.

Regards

Wind is your friend
Matt