PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → WX - Apenas Números
WX - Apenas Números
Started by BOLLER, Aug., 12 2017 7:33 AM - No answer
#1
Registered member
3,655 messages
Popularité : +175 (223 votes)
Posted on August, 12 2017 - 7:33 AM
Procedure Apenas_Numeros(gs_String)
s_Aux is string = ""
n_Tam is int = Length(gs_String)
FOR i = 1 TO n_Tam
IF CharactType(gs_String[[i]])=ctNumeric THEN
s_Aux += gs_String[[i]]
END
END
RESULT(s_Aux)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Go back to WINDEV 25