PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV Mobile 2024 → WS_RemoveCaracteresRota - Remove Caracteres da Rota
WS_RemoveCaracteresRota - Remove Caracteres da Rota
Iniciado por adrianoboller, 03,ene. 2015 17:54 - 1 respuesta
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 03,enero 2015 - 17:54
Procedure WS_RemoveCaracteresRota(LOCALXmlResultado)

XmlResultado=Capitalize(WS_RemoveAcentos(XmlResultado))

XmlResultado=Replace(XmlResultado,"Matriz,","")

XmlResultado=Replace(XmlResultado,"Matriz","")

XmlResultado=Replace(XmlResultado,";","")

XmlResultado=Replace(XmlResultado,"@","")

XmlResultado=Replace(XmlResultado,"?","")

XmlResultado=Replace(XmlResultado,"#","")

XmlResultado=Replace(XmlResultado,"`","")

XmlResultado=Replace(XmlResultado,"~","")

XmlResultado=Replace(XmlResultado,"{","")

XmlResultado=Replace(XmlResultado,"}","")

//1234567890123456789012345678901234567890
//<?xml version="1.0" encoding="UTF-8"?>
Resultado isstring=Lower(XmlResultado)
IFPositionOccurrence(Resultado,"<?xml version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,39,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<?Xml version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,39,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<?Xml Version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,39,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<?XML Version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,39,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<?XML VERSION",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,39,Length(XmlResultado))
END

IFPositionOccurrence(Resultado,"<xml version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,37,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<Xml version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,37,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<Xml Version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,37,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<XML Version",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,37,Length(XmlResultado))
END
IFPositionOccurrence(Resultado,"<XML VERSION",firstRank,FromBeginning) >0
XmlResultado=Middle(XmlResultado,37,Length(XmlResultado))
END

RESULT(XmlResultado)
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 25,abril 2017 - 20:43
COMPLEMENTO:

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1693-mapadditinerary-versao-21-ilimitada-multi-points-para-rotas-2310/read.awp

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