Windev21 Aulas,Estudos e Desenvolvimento: 06/28/15

Acentos - Remover

http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/959-remove-acento-961/read.awp?hl=remove,acento

http://www.windevbrasil.com.br/index.php/topic,1086.msg2445.html#msg2445

Dando seguimento na dica anterior, temos por norma remover os acentos e caracteres especiais antes de gravar um registro. Para isto usamos as rotinas abaixo:

1) Esta função abaixo remove os acentos através da função nativa do WD (NoAccent) e faz uma varredura na String passada por parâmetro e remove outros caracteres indesejados:

PROCEDURE JBAsc(pCampo)

sCampo is string = NoAccent(pCampo)
nTamanho is int = Length(pCampo)

sNovoCampo is string
sCaracter is string
nValor is int

IF (nTamanho > 1) THEN
   FOR i = 1 TO nTamanho
      sCaracter = (Middle(sCampo,i,1))
      nValor = Asc(sCaracter)

      IF (nValor >= 32 AND nValor <= 93) OR (nValor = 95 OR nValor = 13 OR nValor = 10) AND (nValor <> 39) THEN
         sNovoCampo += sCaracter
      END
   END
ELSE
   sNovoCampo = pCampo
END

RESULT(sNovoCampo)

2) Esta procedure faz uma varredura em todos os campos contidos no registro passado por parâmetro:

PROCEDURE JBAscRecord(pGR_Registro)

sNomeControle is string
FOR i = 1 _TO_ pGR_Registro..Occurrence
   sNomeControle = EnumControl(pGR_Registro,i)

   IF {sNomeControle, indControl}..InputType = typInputText THEN
   {sNomeControle, indControl}..Value = JBAsc({sNomeControle, indControl})
   END
END

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/314-importando-html-para-hyperfile/read.awp

Procedure Remove_Acento( 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$ ")

Texto = Replace(Texto,Charact(34),"")

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

Páginas

domingo, 28 de junho de 2015

Windev Remove Avento

Acentos - Remover

Remover Acento