Удаляйте символы в строке, пока в ASP и VB не будет найдено число - PullRequest
Новая
       6

Удаляйте символы в строке, пока в ASP и VB не будет найдено число

0 голосов
/ 30 сентября 2010

Я пытаюсь добавить на страницу, написанную кем-то другим. Мне нужно взять строку, которая состоит из 3 или 4 буквенных символов, за которыми следует ряд чисел. Мне нужно удалить эти буквенные символы, чтобы осталась только строка чисел.

Пример: То, с чем я цепляюсь, является TrailerNumber = "CIN0012345" и мне нужно, чтобы результат был TrailerNumberTrimed = "0012345"

Это веб-приложение, написанное на ASP (чтобы быть понятным, а не на ASPX) и странице VB. Этот код должен будет выполняться на сервере, поскольку он используется в качестве значения поиска в базе данных.

1 Ответ

0 голосов
/ 30 сентября 2010

Не проверено, но должно работать (при условии, что начало строки всегда равно 3/4 альфа, за которым следуют все числа): 

Dim TrailerNumberTrimed 

If IsNumeric(Right(TrailerNumber, Len(TrailerNumber) - 4)) Then
    TrailerNumberTrimed = Right(TrailerNumber, Len(TrailerNumber) - 4)
End If

If IsNumeric(Right(TrailerNumber, Len(TrailerNumber) - 3)) Then
    TrailerNumberTrimed = Right(TrailerNumber, Len(TrailerNumber) - 4)
End If

' At this point, you should have the correct trimmed trailer number
...