DELETE the last character in string if is a blank space

[sal21]

I have this string:

AAAAAAA

in need to check if the last caharcter in string is a blank end delete it if exists...

note:
i dont remember if i just oost this question but not found in my old post

[HansV]

If you want to delete ALL leading and trailing spaces, you can use Trim:

Code: Select all

Dim MyVar As String
MyVar = "  AAA  "
MyVar = Trim(MyVar)

MyVar will then be "AAA"

Otherwise:

Code: Select all

If Right(MyVar, 1) = " " Then
    MyVar = Left(MyVar, Len(MyVar) - 1)
End If

[sal21]

If you want to delete ALL leading and trailing spaces, you can use Trim:

Code: Select all

Dim MyVar As String
MyVar = "  AAA  "
MyVar = Trim(MyVar)

MyVar will then be "AAA"

Otherwise:

Code: Select all

If Right(MyVar, 1) = " " Then
    MyVar = Left(MyVar, Len(MyVar) - 1)
End If

great!

[Jay Freedman]

Also look up the functions LTrim (removes all leading spaces) and RTrim (removes all trailing spaces).
http://office.microsoft.com/en-us/excel ... 57211.aspx" onclick="window.open(this.href);return false;