domingo, 14 de julho de 2002

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...

0 comentários: