PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → WS_RemoveCaracteresRota - Remove Caracteres da Rota
WS_RemoveCaracteresRota - Remove Caracteres da Rota
Débuté par adrianoboller, 03 jan. 2015 17:54 - 1 réponse
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 03 janvier 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)
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 25 avril 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/