Remove last character

bebe · November 7th, 2003, 01:34 PM

I am trying to remove a string which last character is either "--" or "-" ... I can only get "--" work ... but not "-" ... My code as follow:-
===================
sISBNNode.text = Left(sISBNNode.text, 1) & "-" & Mid(sISBNNode.text, 2, 6) & "-" & Mid(sISBNNode.text, 8, 2) & "-" & Mid(sISBNNode.text, 10, 1)
      'This works
        if Right(sISBNNode.text, 2) = "--" then
             sISBNNode.text = replace(sISBNNode.text, right(sISBNNode.text, 2), "")
        end if

           'This is not working, it replace ALL the "-" with "", not just the last "-"
        if Right(sISBNNode.text, 1) = "-" then
             sISBNNode.text = replace(sISBNNode.text, right(sISBNNode.text, 1), "")
        end if

Jonax · November 7th, 2003, 02:17 PM

Quote:

quote:
      'This works
        if Right(sISBNNode.text, 2) = "--" then
             sISBNNode.text = replace(sISBNNode.text, right(sISBNNode.text, 2), "")
        end if

           'This is not working, it replace ALL the "-" with "", not just the last "-"
        if Right(sISBNNode.text, 1) = "-" then
             sISBNNode.text = replace(sISBNNode.text, right(sISBNNode.text, 1), "")
        end if

The first part only works because you don't have the string "--" at other positions in your string...
The following code strips off the last one/two character(s) instead of replacing the pattern...

Code:

        if Right(sISBNNode.text, 2) = "--" then         
             sISBNNode.text = left(sISBNNode.text, len(sISBNNode.text)-2)        
        end if

        if Right(sISBNNode.text, 1) = "-" then         
             sISBNNode.text = left(sISBNNode.text, len(sISBNNode.text)-1)        
        end if