PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV Mobile 2024 → Remove Acento
Remove Acento
Iniciado por adrianoboller, dez., 09 2014 6:00 PM - 7 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em dezembro, 09 2014 - 6:00 PM
Procedure WS_RemoveAcentos(LOCAL Texto )

ChangeCharset(charsetOccidental) // SEM ACENTO

nTamanho is 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 = 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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em dezembro, 09 2014 - 6:00 PM
Procedure WS_RemoveCaractAscII(LOCAL Texto is string)

nTotal is int = Length(Texto)
nPos01 is int = 0
Busca is 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)+"?>")

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


IF Texto <> "" THEN

LOOP (nTotal)

nPos01 += 1

IF nPos01 > 0 THEN

Busca = Texto[[nPos01]]

IF PositionOccurrence(aZ09,Busca,firstRank,FromBeginning) = 0 AND Busca <> Null THEN
Texto[[nPos01]] = ""
END

END

END

END

RESULT(Texto)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em dezembro, 09 2014 - 6:01 PM
Procedure WS_RemoveCaracteresRota(LOCAL XmlResultado)

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 is string = Lower(XmlResultado)
IF PositionOccurrence(Resultado,"<?xml version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,39,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<?Xml version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,39,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<?Xml Version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,39,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<?XML Version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,39,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<?XML VERSION",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,39,Length(XmlResultado))
END

IF PositionOccurrence(Resultado,"<xml version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,37,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<Xml version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,37,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<Xml Version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,37,Length(XmlResultado))
END
IF PositionOccurrence(Resultado,"<XML Version",firstRank,FromBeginning) > 0
XmlResultado = Middle(XmlResultado,37,Length(XmlResultado))
END
IF PositionOccurrence(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 junho, 13 2015 - 8:50 PM
Procedure RemoveAcento( 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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 13 2015 - 8:52 PM
// 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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 13 2015 - 8:53 PM
//Validando Html se possui exatamente o formato esperado

Achou01, Achou02, Achou03, Achou04, Achou05 is boolean = False

NextTitle("Atenção")

IF gsHtmlAnalisado <> "" AND EDT_Arquivo_Html <> ""

IF CBOX_Debug = True
Info(gsHtmlAnalisado)
END

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

IF Achou01 = True AND Achou02 = True AND Achou03 = True AND Achou04 = True AND Achou05 = True THEN
IF CBOX_Debug = True
Info("Documento válido para análise")
END
STC_Resultado = "Documento válido para análise"
ELSE
IF CBOX_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
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em fevereiro, 16 2017 - 1:38 PM
Procedure ConverteToAscII(LOCAL Texto is string)

nTotal is int = Length(Texto)
nPos01 is int = 0
Busca is 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)+"?>")

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


IF Texto <> "" THEN

LOOP (nTotal)

nPos01 += 1

IF nPos01 > 0 THEN

Busca = Texto[[nPos01]]

IF PositionOccurrence(aZ09,Busca,firstRank,FromBeginning) = 0 AND Busca <> 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/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 10 2017 - 1:36 AM
CODIGO REVISADO

CRIE UM BOTAO E COLOQUE ESSE CODIGO:

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

Info(sResultado[1])



CRIE ESSAS PROCEDURES GLOBAIS:

Procedure WS_RemoveAcentos(LOCAL Texto )

ChangeCharset(charsetOccidental) // SEM ACENTO

nTamanho is 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)



Procedure WS_RemoveCaractAscII(LOCAL Texto is string)

nTotal is int = Length(Texto)
nPos01 is int = 0
Busca is 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)+"?>")

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


IF Texto <> "" THEN

LOOP (nTotal)

nPos01 += 1

IF nPos01 > 0 THEN

Busca = Texto[[nPos01]]

IF PositionOccurrence(aZ09,Busca,firstRank,FromBeginning) = 0 AND Busca <> 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.
//
Procedure WS_RotasGoogleMaps(enderecoOrigem is string, enderecoDestino is string)

Resultado is string

arrayResultadoLocal is array of string

IF enderecoOrigem = "" OR enderecoDestino = "" 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

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

cMyResponse is a httpResponse = HTTPSendForm("GoogleMaps", cMyRequest)

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

xmlGoogle is a xmlDocument = XMLOpen(cMyResponse..Content, fromString)
IF NOT 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
Contador is int = 1
FOR EACH legNode OF xmlGoogle.DirectionsResponse.route.leg
IF legNode..Name = "step" THEN
HTML is string = legNode.html_instructions
Distancia is 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/