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,"}","")
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) |
| |
| |
|