PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Função Separa Número de Texto (8px)
Função Separa Número de Texto (8px)
Débuté par Boller, 18 sep. 2022 02:39 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 18 septembre 2022 - 02:39
PROCEDURE glo_separar_numero_texto(gvalorvem)

sNumericpart is string
sTextpart is string
bTexto is boolean

FOR i=1 _TO_ Length(gvalorvem)
IF gvalorvem[[i]] = 0 TO 9 OR gvalorvem[[i]] IN (".","-","+") AND btexto = False THEN
sNumericpart+=gvalorvem[[i]]
ELSE
btexto=True
stextpart+=gvalorvem[[i]]
END
END

RESULT(NoSpace(sNumericpart),NoSpace(sTextpart))


Exemplo By Paulo Viana

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