Transforma uma string (lixo) em inteiro via expressão regular (Regular Expression)

A pouco tempo tive de pegar os dados de pretensões salarias de um campo que era de string (varchar) e passar seus valores para interiro acabei desenvolvendo essa expressão regular (Regular Expression) que julgo uma mão na roda.

<%

Dim str

str = "54.00 3 2 ,00 1.tio, san$23,00"
Response.Write("String Original = " & str & " - String Modificada = " & dinheirointeiro(str))

function dinheirointeiro(string)

Set regEx = New RegExp                ' Cria o Objeto Expressão

 regEx.Pattern = "[a-z]+|\$+|\,00$|\,00$| +|\,+|\.+|[^0-9]+" ' Expressão Regular
 regEx.IgnoreCase = True                 ' Sensitivo ou não
 regEx.Global = True          ' Não sei exatamente o que faz 

 caracterdetroca = ""      ' Caracter que ficara no lugar o encontrado

 dinheirointeiro = regEx.Replace(string, caracterdetroca) ' Faz a troca

End Function

%>

Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...