PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV Mobile 2024 → WS_RemoveCaracteresRota - Remove Caracteres da Rota
WS_RemoveCaracteresRota - Remove Caracteres da Rota
Iniciado por adrianoboller, jan., 03 2015 5:54 PM - 1 resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 03 2015 - 5:54 PM
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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em abril, 25 2017 - 8:43 PM
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/