|
| Função Separa Número de Texto (8px) |
| Iniciado por Boller, 18,sep. 2022 02:39 - No hay respuesta |
| |
| | | |
|
| |
Miembro registrado
4.521 mensajes |
|
| Publicado el 18,septiembre 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/ |
| |
| |
| | | |
|
| | | | |
| | |
|