VBScript文字列から文字を削除する

Question

文字列を取ってすべての文字と記号を削除して7桁だけ残す方法を教えてください。 例：その後、 私はabc1234567-D得た場合またはa12c3f-45kj6％7ud-

彼らは数字の有効な部分であり、これは0-9、.、および,が、すべてを削除1234567の おかげ

Answer 1

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 

Answer 2

を返します。

正規表現と呼ばれています。 VBScriptのヘルプを参照してください。

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