PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 21 → Remove Acento
Remove Acento
Débuté par adrianoboller, 09 déc. 2014 18:00 - 6 réponses
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 votes)
Posté le 09 décembre 2014 - 18:00
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)
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 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)
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 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,"}","")

//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)
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 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)// 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)
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 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)
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 votes)
Posté le 13 juin 2015 - 20:53
//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
//hostimage.webdev.info/avatars/RrpZpplIAjR9ZZaAh1xcw
Membre enregistré
2 421 messages
Popularité : +89 (91 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/