PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile 2024 → WS_RemoveCaracteresRota - Remove Caracteres da Rota
WS_RemoveCaracteresRota - Remove Caracteres da Rota
Started by adrianoboller, Jan., 03 2015 5:54 PM - 1 reply
Registered member
3,655 messages
Popularité : +175 (223 votes)
Posted on January, 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)
Registered member
3,655 messages
Popularité : +175 (223 votes)
Posted on April, 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/