Removing last character of string 2

[lunargirrl]

Hello people,
I would like to remove the last character of my string.

e.G. LisaManson2 (i would extract only the character '2' of the string). I am trying to do:

mystr = (mystr- Right(mystr, 1))

It doenst work at all.
How could I do that??

TIA,
venus

 

[zarkon4]

Try this
mystr=mid$(1,len(mystr)-1))

 

[lunargirrl]

hi zarkon4, thanks for the quick answer
but it seems to dont work.
I wanted my result to be 'LisaManson' only, i want to throw away the number 2.

thanks,
venus

 

[zarkon4]

Sorry, forgot an important part.

mystr=mid$(mystr,1,len(mystr)-1))

 

[lunargirrl]

now it worked zarkon4
thank thank you :**
venus

 

[Motor11]

Or try:
mystr=left(mystr,(len(mystr)-1))

Ryan

 

[zarkon4]

You are very welcome.

 

[mmilan]

Now try that with an empty string...

See what happens when it tries to do a mid from -1...

mmilan.

Ps. Solution - test for the special case of empty string before calling Zarkon4's code...

 

[lunargirrl]

i 'm going to check that.
thank you
:*

 

[zarkon4]

Here is code to check for empty string.

mystr = IIf(IsNull(mystr), "", _
Mid$(mystr, 1, Len(mystr) - 1))

 

[bjd4jc]

That code will not check for an empty string. It will only check if that value of the string is NULL - which is NOT the same thing as empty.

some better code would be

mystr = IIF(mystr & vbNullString = "", Mid$(mystr, 1, Len(mystr)-1))

 

[bjd4jc]

Sorry, left off a part

mystr = IIF(mystr & vbNullString = "", [b]"",[/b] Mid$(mystr, 1, Len(mystr)-1))

 

[Swi]

You could try this:

Dim mystr As String
mystr = "LisaManson2"
MsgBox Left(mystr, Abs((Len(mystr) - 1)))

mystr = ""
MsgBox Left(mystr, Abs((Len(mystr) - 1)))

Swi

 

[lunargirrl]

thanks a lot people!
I really appreciate what you done to help me.



:****
venus

 

[JCruz063]

venus,
You might find this link very helpful:

Visual Basic Tutorial

JC

_________________________________________________
To get the best response to a question, read faq222-2244.

 

[lunargirrl]

I took a look at it and found a lot of nice stuff there.
Thank you for the tip JCruz063!

:*
venus