PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV Mobile 2024 → Remove Acento
Remove Acento
Débuté par adrianoboller, 09 déc. 2014 18:00 - 7 réponses
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 09 décembre 2014 - 18:00
ProcedureWS_RemoveAcentos(LOCALTexto)

ChangeCharset(charsetOccidental)// SEM ACENTO

nTamanho isint=Length(Texto)
Texto=Replace(Texto,CRLF,"")
Texto=Replace(Texto,TAB," ")
Texto=Replace(Texto,ESC,"")

Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ú","u")// adicionado por celio
Texto=Replace(Texto,"Á","A")//Á
Texto=Replace(Texto,"A","A")//Á
Texto=Replace(Texto,"É","E")//É
Texto=Replace(Texto,"Í","I")//Í
Texto=Replace(Texto,"Ó","O")//Ó
Texto=Replace(Texto,"Ú","U")//Ú

Texto=Replace(Texto,"Â","A")// Â
Texto=Replace(Texto,"Ô","O")// Ô
Texto=Replace(Texto,"A•","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"µ","O")
Texto=Replace(Texto,"Áº","u")
Texto=Replace(Texto,"Aº","u")
Texto=Replace(Texto,"º","u")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"ƒ","")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"©","")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ª","")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"´","")
Texto=Replace(Texto,"Aµ","O")
Texto=Replace(Texto,"µ","")
Texto=Replace(Texto,"ó","O")
Texto=Replace(Texto,"³","")
Texto=Replace(Texto,"A“","O")
Texto=Replace(Texto,"“","")
Texto=Replace(Texto,"Aº","U")
Texto=Replace(Texto,"º","")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"§","")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"‡","")
Texto=Replace(Texto,"ãO","AO")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"‰","")
Texto=Replace(Texto,"Ã%","E")
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"","")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"~a","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"à","a")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"ä","a")

Texto=Replace(Texto,"~e","e")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"è","e")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ë","e")

Texto=Replace(Texto,"~i","i")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ì","i")
Texto=Replace(Texto,"î","i")
Texto=Replace(Texto,"ï","i")

Texto=Replace(Texto,"~o","o")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ò","o")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"ö","o")

Texto=Replace(Texto,"~u","u")
Texto=Replace(Texto,"ú","u")
Texto=Replace(Texto,"ù","u")
Texto=Replace(Texto,"û","u")
Texto=Replace(Texto,"ü","u")

Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"Ç","C")


Texto=Replace(Texto,"~A","A")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"Á","A")
Texto=Replace(Texto,"À","A")
Texto=Replace(Texto,"Â","A")
Texto=Replace(Texto,"Ä","A")

Texto=Replace(Texto,"~E","E")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"È","E")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"Ë","E")

Texto=Replace(Texto,"~I","I")
Texto=Replace(Texto,"Í","I")
Texto=Replace(Texto,"Ì","I")
Texto=Replace(Texto,"Î","I")
Texto=Replace(Texto,"Ï","I")

Texto=Replace(Texto,"~O","O")

Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"Ó","O")
Texto=Replace(Texto,"Ò","O")
Texto=Replace(Texto,"Ô","O")
Texto=Replace(Texto,"Ö","O")

Texto=Replace(Texto,"~U","U")
Texto=Replace(Texto,"Ú","U")
Texto=Replace(Texto,"Ù","U")
Texto=Replace(Texto,"Û","U")
Texto=Replace(Texto,"Ü","U")

//Remove caracteres htmls
Texto=Replace(Texto,"<","")//html
Texto=Replace(Texto,">","")//html
Texto=Replace(Texto,""","")//html
Texto=Replace(Texto,"&","")//html
Texto=Replace(Texto,"E","")//html
Texto=Replace(Texto,"e","")//html
Texto=Replace(Texto,"S","")//html
Texto=Replace(Texto,"s","")//html
Texto=Replace(Texto,"ÿ","")//html
Texto=Replace(Texto,"^","")//html
Texto=Replace(Texto,"~","")//html
Texto=Replace(Texto,"&ensp;","")//html
Texto=Replace(Texto,"&emsp;","")//html
Texto=Replace(Texto,"&thinsp;","")//html
Texto=Replace(Texto,"&zwnj;","")//html
Texto=Replace(Texto,"&zwj;","")//html
Texto=Replace(Texto,"&lrm;","")//html
Texto=Replace(Texto,"&rlm;","")//html
Texto=Replace(Texto,"-","")//html
Texto=Replace(Texto,"-","")//html
Texto=Replace(Texto,"‘","")//html
Texto=Replace(Texto,"’","")//html
Texto=Replace(Texto,",","")//html
Texto=Replace(Texto,""","")//html
Texto=Replace(Texto,""","")//html
Texto=Replace(Texto,"„","")//html
Texto=Replace(Texto,"†","")//html
Texto=Replace(Texto,"‡","")//html
Texto=Replace(Texto,"‰","")//html
Texto=Replace(Texto,"‹","")//html
Texto=Replace(Texto,"›","")//html
Texto=Replace(Texto,"€","")//html

Texto=WS_RemoveCaractAscII(Texto)

//Texto = Capitalize(Texto)

RESULT(Texto)
>
#2
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 09 décembre 2014 - 18:00
ProcedureWS_RemoveCaractAscII(LOCALTexto isstring)

nTotal isint=Length(Texto)
nPos01 isint=0
Busca isstring=""

Texto=Replace(Texto,"<?xml version="+Charact(34)+"1.0"+Charact(34)+" encoding="+Charact(34)+"utf-8"+Charact(34)+"?>","<?xml version="+Charact(34)+"1.0"+Charact(34)+"?>")

aZ09 isstring="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]0123456789'&*()_+=-,.!@#$%?>.<:{}|/\"+Charact(34)


IFTexto<>""THEN

LOOP(nTotal)

nPos01+=1

IFnPos01>0THEN

Busca=Texto[[nPos01]]

IFPositionOccurrence(aZ09,Busca,firstRank,FromBeginning) =0ANDBusca<>NullTHEN
Texto[[nPos01]] =""
END

END

END

END

RESULT(Texto)
>
#3
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 09 décembre 2014 - 18:01
ProcedureWS_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)
>
#4
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 13 juin 2015 - 20:50
ProcedureRemoveAcento(Texto)

Texto=NoAccent(Texto)

Texto=Replace(Texto,"xE1","a")
Texto=Replace(Texto,"xE3","a")
Texto=Replace(Texto,"xEA","e")
Texto=Replace(Texto,"xE9","e")
Texto=Replace(Texto,"xED","i")
Texto=Replace(Texto,"xF3","o")
Texto=Replace(Texto,"xF4","o")
Texto=Replace(Texto,"xFA","u")
Texto=Replace(Texto,"xE7","c")
Texto=Replace(Texto,"xC1","A")
Texto=Replace(Texto,"xCD","I")
Texto=Replace(Texto,"r$"," R$ ")

ChangeCharset(charsetOccidental)// SEM ACENTO

Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ú","u")// adicionado por celio
Texto=Replace(Texto,"Á","A")//Á
Texto=Replace(Texto,"A","A")//Á
Texto=Replace(Texto,"É","E")//É
Texto=Replace(Texto,"Í","I")//Í
Texto=Replace(Texto,"Ó","O")//Ó
Texto=Replace(Texto,"Ú","U")//Ú

Texto=Replace(Texto,"Â","A")// Â
Texto=Replace(Texto,"Ô","O")// Ô
Texto=Replace(Texto,"A•","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"µ","O")
Texto=Replace(Texto,"Áº","u")
Texto=Replace(Texto,"Aº","u")
Texto=Replace(Texto,"º","u")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"ƒ","")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"©","")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ª","")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"´","")
Texto=Replace(Texto,"Aµ","O")
Texto=Replace(Texto,"µ","")
Texto=Replace(Texto,"ó","O")
Texto=Replace(Texto,"³","")
Texto=Replace(Texto,"A“","O")
Texto=Replace(Texto,"“","")
Texto=Replace(Texto,"Aº","U")
Texto=Replace(Texto,"º","")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"§","")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"‡","")
Texto=Replace(Texto,"ãO","AO")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"‰","")
Texto=Replace(Texto,"Ã%","E")
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"","")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"~a","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"à","a")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"ä","a")

Texto=Replace(Texto,"~e","e")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"è","e")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ë","e")

Texto=Replace(Texto,"~i","i")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ì","i")
Texto=Replace(Texto,"î","i")
Texto=Replace(Texto,"ï","i")

Texto=Replace(Texto,"~o","o")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ò","o")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"ö","o")

Texto=Replace(Texto,"~u","u")
Texto=Replace(Texto,"ú","u")
Texto=Replace(Texto,"ù","u")
Texto=Replace(Texto,"û","u")
Texto=Replace(Texto,"ü","u")

Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"Ç","C")

Texto=Replace(Texto,"~A","A")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"Á","A")
Texto=Replace(Texto,"À","A")
Texto=Replace(Texto,"Â","A")
Texto=Replace(Texto,"Ä","A")

Texto=Replace(Texto,"~E","E")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"È","E")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"Ë","E")

Texto=Replace(Texto,"~I","I")
Texto=Replace(Texto,"Í","I")
Texto=Replace(Texto,"Ì","I")
Texto=Replace(Texto,"Î","I")
Texto=Replace(Texto,"Ï","I")

Texto=Replace(Texto,"~O","O")

Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"Ó","O")
Texto=Replace(Texto,"Ò","O")
Texto=Replace(Texto,"Ô","O")
Texto=Replace(Texto,"Ö","O")

Texto=Replace(Texto,"~U","U")
Texto=Replace(Texto,"Ú","U")
Texto=Replace(Texto,"Ù","U")
Texto=Replace(Texto,"Û","U")
Texto=Replace(Texto,"Ü","U")

RESULT(Texto)
>
#5
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 13 juin 2015 - 20:52
// Selecionando uma arquivo Html e removendo a acentuação e salvando novamente em disco

NextTitle("Atenção")

EDT_Arquivo_Html=fSelect("","","Selecione o arquivo html...","All the files (*.*)"+TAB+"*.*"+CR+"Html"+TAB+"*.html"+CR+"Htm"+TAB+"*.htm","*.*")

gsHtmlAnalisado=fLoadText(EDT_Arquivo_Html,foAnsi)

gsHtmlAnalisado=RemoveAcento(gsHtmlAnalisado)

fSaveText(EDT_Arquivo_Html,gsHtmlAnalisado)

HTM_Localizado=gsHtmlAnalisado

SetFocus(HTM_Localizado)
>
#6
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 13 juin 2015 - 20:53
//Validando Html se possui exatamente o formato esperado

Achou01,Achou02,Achou03,Achou04,Achou05 isboolean=False

NextTitle("Atenção")

IFgsHtmlAnalisado<>""ANDEDT_Arquivo_Html<>""

IFCBOX_Debug=True
Info(gsHtmlAnalisado)
END

IFPositionOccurrence(gsHtmlAnalisado,"<th>Dia</th>",firstRank,IgnoreCase) >0THEN
Achou01=True
ELSE
Achou01=False
END
IFPositionOccurrence(gsHtmlAnalisado,"<th>QTD</th>",firstRank,IgnoreCase) >0THEN
Achou02=True
ELSE
Achou02=False
END
IFPositionOccurrence(gsHtmlAnalisado,"<th>Conta</th>",firstRank,IgnoreCase) >0THEN
Achou03=True
ELSE
Achou03=False
END
IFPositionOccurrence(gsHtmlAnalisado,"<th>Receita</th>",firstRank,IgnoreCase) >0THEN
Achou04=True
ELSE
Achou04=False
END
IFPositionOccurrence(gsHtmlAnalisado,"<th>Despesa</th>",firstRank,IgnoreCase) >0THEN
Achou05=True
ELSE
Achou05=False
END

IFAchou01=TrueANDAchou02=TrueANDAchou03=TrueANDAchou04=TrueANDAchou05=TrueTHEN
IFCBOX_Debug=True
Info("Documento válido para análise")
END
STC_Resultado="Documento válido para análise"
ELSE
IFCBOX_Debug=True
Info("Erro: Atenção esse documento não é adequado para para análise e conversão.")
END
STC_Resultado="Erro: Atenção esse documento não é adequado para para análise e conversão."
END

ELSE
Info("Nenhum arquivo foi selecionado!")
END
>
#7
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 16 février 2017 - 13:38
ProcedureConverteToAscII(LOCALTextois string)

nTotalis int=Length(Texto)
nPos01is int=0
Buscais string=""

Texto=Replace(Texto,"<?xml version="+Charact(34)+"1.0"+Charact(34)+" encoding="+Charact(34)+"utf-8"+Charact(34)+"?>","<?xml version="+Charact(34)+"1.0"+Charact(34)+"?>")

aZ09is string="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]0123456789'&*()_+=-,.!@#$%?>.<:{}|/\"+Charact(34)


IFTexto<>""THEN

LOOP(nTotal)

nPos01+=1

IFnPos01>0THEN

Busca=Texto[[nPos01]]

IFPositionOccurrence(aZ09,Busca,firstRank,FromBeginning) =0ANDBusca<>Null THEN
Texto[[nPos01]] =""
END

END

END

END

RESULT(Texto)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/>
#8
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 10 septembre 2017 - 01:36
CODIGO REVISADO

CRIE UM BOTAO E COLOQUE ESSE CODIGO:

sResultadois array of string=WS_RotasGoogleMaps("Clavio Molinari, Curitiba","Clavio Molinari, Curitiba")

Info(sResultado[1])



CRIE ESSAS PROCEDURES GLOBAIS:

ProcedureWS_RemoveAcentos(LOCALTexto)

ChangeCharset(charsetOccidental)// SEM ACENTO

nTamanhois int=Length(Texto)
Texto=Replace(Texto,CRLF,"")
Texto=Replace(Texto,TAB," ")
Texto=Replace(Texto,ESC,"")

Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ú","u")// adicionado por celio
Texto=Replace(Texto,"Á","A")//Á
Texto=Replace(Texto,"A","A")//Á
Texto=Replace(Texto,"É","E")//É
Texto=Replace(Texto,"Í","I")//Í
Texto=Replace(Texto,"Ó","O")//Ó
Texto=Replace(Texto,"Ú","U")//Ú

Texto=Replace(Texto,"Â","A")// Â
Texto=Replace(Texto,"Ô","O")// Ô
Texto=Replace(Texto,"A•","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"µ","O")
Texto=Replace(Texto,"Áº","u")
Texto=Replace(Texto,"Aº","u")
Texto=Replace(Texto,"º","u")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"ƒ","")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"©","")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ª","")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"´","")
Texto=Replace(Texto,"Aµ","O")
Texto=Replace(Texto,"µ","")
Texto=Replace(Texto,"ó","O")
Texto=Replace(Texto,"³","")
Texto=Replace(Texto,"A“","O")
Texto=Replace(Texto,"“","")
Texto=Replace(Texto,"Aº","U")
Texto=Replace(Texto,"º","")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"§","")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"‡","")
Texto=Replace(Texto,"ãO","AO")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"‰","")
Texto=Replace(Texto,"Ã%","E")
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"","")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"~a","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"à","a")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"ä","a")

Texto=Replace(Texto,"~e","e")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"è","e")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ë","e")

Texto=Replace(Texto,"~i","i")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ì","i")
Texto=Replace(Texto,"î","i")
Texto=Replace(Texto,"ï","i")

Texto=Replace(Texto,"~o","o")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ò","o")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"ö","o")

Texto=Replace(Texto,"~u","u")
Texto=Replace(Texto,"ú","u")
Texto=Replace(Texto,"ù","u")
Texto=Replace(Texto,"û","u")
Texto=Replace(Texto,"ü","u")

Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"Ç","C")


Texto=Replace(Texto,"~A","A")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"Á","A")
Texto=Replace(Texto,"À","A")
Texto=Replace(Texto,"Â","A")
Texto=Replace(Texto,"Ä","A")

Texto=Replace(Texto,"~E","E")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"È","E")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"Ë","E")

Texto=Replace(Texto,"~I","I")
Texto=Replace(Texto,"Í","I")
Texto=Replace(Texto,"Ì","I")
Texto=Replace(Texto,"Î","I")
Texto=Replace(Texto,"Ï","I")

Texto=Replace(Texto,"~O","O")

Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"Ó","O")
Texto=Replace(Texto,"Ò","O")
Texto=Replace(Texto,"Ô","O")
Texto=Replace(Texto,"Ö","O")

Texto=Replace(Texto,"~U","U")
Texto=Replace(Texto,"Ú","U")
Texto=Replace(Texto,"Ù","U")
Texto=Replace(Texto,"Û","U")
Texto=Replace(Texto,"Ü","U")

//Remove caracteres htmls
Texto=Replace(Texto,"&","")//html
Texto=Replace(Texto,"Œ","")//html
Texto=Replace(Texto,"œ","")//html
Texto=Replace(Texto,"Š","")//html
Texto=Replace(Texto,"š","")//html
Texto=Replace(Texto,"Ÿ","")//html
Texto=Replace(Texto,"ˆ","")//html
Texto=Replace(Texto,"˜","")//html
Texto=Replace(Texto,"–","")//html
Texto=Replace(Texto,"—","")//html
Texto=Replace(Texto,"‘","")//html
Texto=Replace(Texto,"’","")//html
Texto=Replace(Texto,"‚","")//html
Texto=Replace(Texto,"“","")//html
Texto=Replace(Texto,"”","")//html
Texto=Replace(Texto,"„","")//html
Texto=Replace(Texto,"†","")//html
Texto=Replace(Texto,"‡","")//html
Texto=Replace(Texto,"‰","")//html
Texto=Replace(Texto,"‹","")//html
Texto=Replace(Texto,"›","")//html
Texto=Replace(Texto,"€","")//html

Texto=WS_RemoveCaractAscII(Texto)

//Texto = Capitalize(Texto)

RESULT(Texto)



ProcedureWS_RemoveCaractAscII(LOCALTextois string)

nTotalis int=Length(Texto)
nPos01is int=0
Buscais string=""

Texto=Replace(Texto,"<?xml version="+Charact(34)+"1.0"+Charact(34)+" encoding="+Charact(34)+"utf-8"+Charact(34)+"?>","<?xml version="+Charact(34)+"1.0"+Charact(34)+"?>")

aZ09is string="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]0123456789'&*()_+=-,.!@#$%?>.<:{}|/\"+Charact(34)


IFTexto<>""THEN

LOOP(nTotal)

nPos01+=1

IFnPos01>0THEN

Busca=Texto[[nPos01]]

IFPositionOccurrence(aZ09,Busca,firstRank,FromBeginning) =0ANDBusca<>Null THEN
Texto[[nPos01]] =""
END

END

END

END

RESULT(Texto)



// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] WS_RotasGoogleMaps (<enderecoOrigem> is string, <enderecoDestino> is string)
//
// Parameters:
//enderecoOrigem (ANSI string): <specify the role of enderecoOrigem>
//enderecoDestino (ANSI string): <specify the role of enderecoDestino>
// Return Value:
//Unspecified Type: //None
//
// For instance:
// Indicate an example.
//
ProcedureWS_RotasGoogleMaps(enderecoOrigemis string,enderecoDestinois string)

Resultadois string

arrayResultadoLocalis array of string

IFenderecoOrigem=""ORenderecoDestino=""THEN
RESULT(Null)
END

enderecoOrigem=Replace(enderecoOrigem," ","+")
enderecoDestino=Replace(enderecoDestino," ","+")
enderecoOrigem=NoAccent(NoSpace(enderecoOrigem))
enderecoDestino=NoAccent(NoSpace(enderecoDestino))

HTTPCreateForm("GoogleMaps")
HTTPAddParameter("GoogleMaps","origin",enderecoOrigem)
HTTPAddParameter("GoogleMaps","destination",enderecoDestino)
HTTPAddParameter("GoogleMaps","language","pt-BR")
HTTPAddParameter("GoogleMaps","region","br")
HTTPAddParameter("GoogleMaps","units","metric")

HTTPAddParameter("GoogleMaps","key","AIzaSyDbSVKYPwB1a-_vPbDzAr6LgAfIj4iW2hc")//CHAVE GOOGLE

cMyRequestisahttpRequest
cMyRequest..URL="https://maps.googleapis.com/maps/api/directions/xml"
cMyRequest..Method=httpGet

cMyResponseisahttpResponse=HTTPSendForm("GoogleMaps",cMyRequest)

IFcMyResponse..StatusCode<>200THEN// Se não funcionou
RESULT(Null)
END

xmlGoogleisaxmlDocument=XMLOpen(cMyResponse..Content,fromString)
IFNOT xmlGoogle.DirectionsResponse.status..Text~="OK"THEN
RESULT(Null)
END

//Lendo nos unicos

Resultado="<Xml><Resultado><NoXml>"
Resultado+="<enderecoOrigem>"+xmlGoogle.DirectionsResponse.route.leg.start_address+"</enderecoOrigem>"
Resultado+="<enderecoDestino>"+xmlGoogle.DirectionsResponse.route.leg.end_address+"</enderecoDestino>"
Resultado+="<durationvalue>"+xmlGoogle.DirectionsResponse.route.leg.duration.value+"</durationvalue>"
Resultado+="<durationtext>"+xmlGoogle.DirectionsResponse.route.leg.duration.text+"</durationtext>"
Resultado+="<distancevalue>"+xmlGoogle.DirectionsResponse.route.leg.distance.value+"</distancevalue>"
Resultado+="<distancetext>"+xmlGoogle.DirectionsResponse.route.leg.distance.text+"</distancetext>"
Resultado+="<polyline>"+xmlGoogle.DirectionsResponse.route.overview_polyline.points+"</polyline>"
Resultado+="<latitudeOrigem>"+xmlGoogle.DirectionsResponse.route.leg.start_location.lat+"</latitudeOrigem>"
Resultado+="<longitudeOrigem>"+xmlGoogle.DirectionsResponse.route.leg.start_location.lng+"</longitudeOrigem>"
Resultado+="<latitudeDestino>"+xmlGoogle.DirectionsResponse.route.leg.end_location.lat+"</latitudeDestino>"
Resultado+="<longitudeDestino>"+xmlGoogle.DirectionsResponse.route.leg.end_location.lng+"</longitudeDestino>"

//Loop nos nós do xml das instrucoes de rota
Contadoris int=1
FOREACH legNode OF xmlGoogle.DirectionsResponse.route.leg
IFlegNode..Name="step"THEN
HTMLis string=legNode.html_instructions
Distanciais int=legNode.distance.value
Resultado+="<instrucao id="+Contador+">"+HTML+" ["+Distancia+"]"+"</instrucao>"
Contador++
END
END

Resultado+="</NoXml></Resultado></Xml>"

Resultado=WS_RemoveAcentos(Resultado)

Resultado=NoSpace(Resultado)

Add(arrayResultadoLocal,Resultado)

RESULT(arrayResultadoLocal)


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