Tirar Simbolos de uma string...
Fala bando!!!
como eu faço para tirar as os simbolos de dentro de uma string e deixar soh
os numeros?
tipo: tenho a uma string com o valor 3213-321/6546(3) e quero que fique soh
321332165463 !
Soh tem um detalhe... quero fazer isto em um campo de um bd que pode ter os
simbolis em qquer posição, então tem que ser um jeito que funcione para
qquer string. tipo... tanto se o valor for 3213-321/6546(3) quanto se o
valor for 32/13321-654-63, o valor retornado deverá ser: 321332165463
Como eu posso fazer?
Aquele Abraço!!!
Tiago Farinon
como eu faço para tirar as os simbolos de dentro de uma string e deixar soh
os numeros?
tipo: tenho a uma string com o valor 3213-321/6546(3) e quero que fique soh
321332165463 !
Soh tem um detalhe... quero fazer isto em um campo de um bd que pode ter os
simbolis em qquer posição, então tem que ser um jeito que funcione para
qquer string. tipo... tanto se o valor for 3213-321/6546(3) quanto se o
valor for 32/13321-654-63, o valor retornado deverá ser: 321332165463
Como eu posso fazer?
Aquele Abraço!!!
Tiago Farinon
Tiago Farinon
Curtidas 0
Respostas
Aroldo Zanela
04/04/2003
Function NumericOnly( cString: String ): String; var nX: Integer;// Laço de leitura da string Begin Result := ´´; For nX := 1 To Length( cString ) do If cString[ nX ] in [´0´..´9´] Then result := result + cString[ nX ]; End;
GOSTEI 0
Tiago Farinon
04/04/2003
Valeu gente!!!
Vou fazer!
Vou fazer!
GOSTEI 0