Remove Characters 2

[Guest_imported]

I need an if statement saying if the last 5 characters of a string = something specific, then remove all 5. After finding the last 5 characters, anyone know what I need to use to remove them from the string?

TIA!

 

[TheVampire]

If Right$("String",5) = "Specific5char" Then
"String" = Left$("String", Len("String&quot- 5)
End if

Robert

 

[Wiszh]

Use the mid(), right() and left() functions to test and get parts of a string.

Once you have the part that you want save it into your original variable.

Good Luck

 

[RobertT687]

You could use:
Const KillString = "78HJY"
Dim MyString As String
MyString = "123abd78hjy"

If UCase(Right(Trim(MyString), 5)) = KillString Then
MyString = Left(MyString, (InStr(1, MyString, KillString) - 1))
Debug.Print MyString
End If

 

[THOMASNG]

All suggestions work. "TheVampire"'s code is most concise.
"Wizsh" uses mid() - which does the samething, but allows you to SPECIFY the beginning of the string; left() ALWAYS
uses the left end as the beginning. "RobertT687" solution
is most complete, but quite involved.
I'd go with "TheVampire"'s as most "incorporate-able.

 

[CCLINT]

Replace myString, StringToFind, vbNullString, Len(myString)-5,5

 

[TheVampire]

CCLINT's suggestion is better than mine. I didn't even think of REPLACE...

Robert