Question

你可以写信给我如何取字符串并删除所有字母和符号，只留下7位数字吗？例：如果我得到abc1234567-d或a12c3f-45kj6％7ud -

然后返回1234567 谢谢

Answer 1

除去0-9，.和,之外的所有内容，因为它们是数字的有效部分。

这称为正则表达式。请参阅VBScript的帮助。

Set re = New RegExp
re.Pattern = "[^0-9\.,]"
re.Global = True
re.IgnoreCase = True
Sortkey = re.Replace(Sortkey, "")

Answer 2

Public Function ExtractNumber(Source as string) as string
    dim result as string = string.empty
    for each c as char in Source
        if isnumeric(c) then result &= c
    next
    return result
end function

VBScript从字符串中删除字母

2 个答案: