Postada em 13/03/2007 22:53 hs
Acredito que no VB6 se possa trabalhar com Expressões Regulares, mas como não sei fazer isso, criei esse código, que vc pode colocar numa função global e usar em qualquer parte do projeto:
str1 = "5245/5245-5252ADVF"
str2 = "": base = "0123456789/"
For n = 1 To Len(str1)
st2 = Mid(str1, n, 1)
If InStr(1, base, st2) > 0 Then
str2 = str2 & st2
End If
Next n
str2 vai ser "5245/52455252"
|
