|
Débuté par adrianoboller, 09 déc. 2014 18:00 - 7 réponses |
| |
| | | |
|
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 09 décembre 2014 - 18:00 |
Procedure WS_RemoveAcentos(LOCAL Texto )
ChangeCharset(charsetOccidental)
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") 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")
Texto = Replace(Texto,"<","") Texto = Replace(Texto,">","") Texto = Replace(Texto,""","") Texto = Replace(Texto,"&","") Texto = Replace(Texto,"Œ","") Texto = Replace(Texto,"œ","") Texto = Replace(Texto,"Š","") Texto = Replace(Texto,"š","") Texto = Replace(Texto,"Ÿ","") Texto = Replace(Texto,"ˆ","") Texto = Replace(Texto,"˜","") Texto = Replace(Texto," ","") Texto = Replace(Texto," ","") Texto = Replace(Texto," ","") Texto = Replace(Texto,"","") Texto = Replace(Texto,"","") Texto = Replace(Texto,"","") Texto = Replace(Texto,"","") Texto = Replace(Texto,"–","") Texto = Replace(Texto,"—","") Texto = Replace(Texto,"‘","") Texto = Replace(Texto,"’","") Texto = Replace(Texto,"‚","") Texto = Replace(Texto,"“","") Texto = Replace(Texto,"”","") Texto = Replace(Texto,"„","") Texto = Replace(Texto,"†","") Texto = Replace(Texto,"‡","") Texto = Replace(Texto,"‰","") Texto = Replace(Texto,"‹","") Texto = Replace(Texto,"›","") Texto = Replace(Texto,"€","")
Texto = WS_RemoveCaractAscII(Texto)
RESULT(Texto) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 09 décembre 2014 - 18:00 |
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) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 09 décembre 2014 - 18:01 |
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,"}","")
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) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 13 juin 2015 - 20:50 |
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)
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") 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) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 13 juin 2015 - 20:52 |
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)
|
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 13 juin 2015 - 20:53 |
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
|
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 16 février 2017 - 13:38 |
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/ |
| |
| |
| | | |
|
| | |
| |
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:
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)
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") 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")
Texto = Replace(Texto,"&","") Texto = Replace(Texto,"Œ","") Texto = Replace(Texto,"œ","") Texto = Replace(Texto,"Š","") Texto = Replace(Texto,"š","") Texto = Replace(Texto,"Ÿ","") Texto = Replace(Texto,"ˆ","") Texto = Replace(Texto,"˜","") Texto = Replace(Texto,"–","") Texto = Replace(Texto,"—","") Texto = Replace(Texto,"‘","") Texto = Replace(Texto,"’","") Texto = Replace(Texto,"‚","") Texto = Replace(Texto,"“","") Texto = Replace(Texto,"”","") Texto = Replace(Texto,"„","") Texto = Replace(Texto,"†","") Texto = Replace(Texto,"‡","") Texto = Replace(Texto,"‰","") Texto = Replace(Texto,"‹","") Texto = Replace(Texto,"›","") Texto = Replace(Texto,"€","")
Texto = WS_RemoveCaractAscII(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)
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")
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 RESULT(Null) END
xmlGoogle is a xmlDocument = XMLOpen(cMyResponse..Content, fromString) IF NOT xmlGoogle.DirectionsResponse.status..Text ~= "OK" THEN RESULT(Null) END
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>"
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/ |
| |
| |
| | | |
|
| | | | |
| | |
|