删除字符串中的字符,直到在ASP和VB中找到数字

时间:2010-09-29 20:56:12

标签: string asp-classic vbscript

我正在尝试添加其他人编写的页面。我需要一个用3或4个字母字符后跟一系列数字形成的字符串。我需要删除这些字母字符,以便只留下一串数字。

实施例: 我所追领的是TrailerNumber =“CIN0012345” 我需要将结果设为TrailerNumberTrimed =“0012345”

这是一个用ASP编写的Web应用程序(显然不是ASPX)和VB页面。此代码必须在服务器上运行,因为它被用作数据库中的搜索值。

1 个答案:

答案 0 :(得分:0)

未经测试,但应该有效(假设字符串的开头始终为3/4 alpha后跟所有数字):

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