o UTF-8 é resultado da página de internet.
Procurei manter o resultado original igual o correio no webservice. Aqui uso tudo em maiúsculas e sem acento.
Sempre tem o jeito tradicional:
Function TiraAcento(mTexto)
Local mLetras := {}
Local nCont := 0
Local nPosicao := 0
Aadd( mLetras, { "€", "C" } )
Aadd( mLetras, { "‡", "C" } )
Aadd( mLetras, { " ", "A" } )
Aadd( mLetras, { "µ", "A" } )
Aadd( mLetras, { "Æ", "A" } )
Aadd( mLetras, { "Ç", "A" } )
Aadd( mLetras, { "¡", "I" } )
Aadd( mLetras, { "Ö", "I" } )
Aadd( mLetras, { "¢", "O" } )
Aadd( mLetras, { "à", "O" } )
Aadd( mLetras, { "£", "U" } )
Aadd( mLetras, { "é", "E" } )
Aadd( mLetras, { "‚", "E" } )
Aadd( mLetras, { "", "E" } )
Aadd( mLetras, { "º", "." } )
Aadd( mLetras, { "'", " " })
Aadd( mLetras, { "ã", "A" } )
Aadd( mLetras, { "á", "A" } )
Aadd( mLetras, { "ç", "C" } )
Aadd( mLetras, { "é", "E" } )
Aadd( mLetras, { "ê", "E" } )
Aadd( mLetras, { "í", "I" } )
Aadd( mLetras, { "ó", "O" } )
Aadd( mLetras, { "ô", "O" } )
Aadd( mLetras, { "ú", "U" } )
Aadd( mLetras, { "â", "A" } )
Aadd( mLetras, { "Á", "A" } )
Aadd( mLetras, { "õ", "O" } )
Aadd( mLetras, { "É", "E" } )
Aadd( mLetras, { "Í", "I" } )
Aadd( mLetras, { "Ç", "C" } )
Aadd( mLetras, { "Ê", "E" } )
Aadd( mLetras, { "Ó", "O" } )
Aadd( mLetras, { "Ô", "O" } )
Aadd( mLetras, { "Õ", "O" } )
Aadd( mLetras, { "Ú", "U" } )
Aadd( mLetras, { "¥", "N" } )
Aadd( mLetras, { "Ã", "A" } )
Aadd( mLetras, { "Á", "A" } )
Aadd( mLetras, { "Â", "A" } )
Aadd( mLetras, { "À", "A" } )
Aadd( mLetras, { "â", "A" } )
Aadd( mLetras, { "Ü", "U" } )
Aadd( mLetras, { "ü", "U" } )
Aadd( mLetras, { "+", " " } )
Aadd( mLetras, { "`", " " } )
Aadd( mLetras, { "Ñ", "N" } )
Aadd( mLetras, { "È", "E" } )
Aadd( mLetras, { "ª", "A" } )
Aadd( mLetras, { "º", "O" } )
Aadd( mLetras, { "ª", "." } )
Aadd( mLetras, { "§", "" } )
For nCont = 1 To Len(mLetras)
Do While mLetras[nCont,1] $ mTexto
nPosicao := At(mLetras[nCont,1],mTexto)
mTexto := Substr(mTexto, 1, nPosicao-1 ) + mLetras[nCont,2] + Substr(mTexto,nPosicao+1)
Enddo
Next
mTexto := Upper(mTexto) // Acrescentado
Return mTexto
usava no webservice antes:
Function TiraAcento( mTexto )
mTexto = Replace(mTexto, "'", " ")
mTexto = Replace(mTexto, "ã", "A")
mTexto = Replace(mTexto, "á", "A")
mTexto = Replace(mTexto, "ç", "C")
mTexto = Replace(mTexto, "é", "E")
mTexto = Replace(mTexto, "ê", "E")
mTexto = Replace(mTexto, "í", "I")
mTexto = Replace(mTexto, "ó", "O")
mTexto = Replace(mTexto, "ô", "O")
mTexto = Replace(mTexto, "ú", "U")
mTexto = Replace(mTexto, "â", "A")
mTexto = Replace(mTexto, "Á", "A")
mTexto = Replace(mTexto, "õ", "O")
mTexto = Replace(mTexto, "É", "E")
mTexto = Replace(mTexto, "Í", "I")
mTexto = Replace(mTexto, "Ç", "C")
mTexto = Replace(mTexto, "Ê", "E")
mTexto = Replace(mTexto, "Ó", "O")
mTexto = Replace(mTexto, "Ô", "O")
mTexto = Replace(mTexto, "Õ", "O")
mTexto = Replace(mTexto, "Ú", "U")
mTexto = Replace(mTexto, "Ã", "A")
mTexto = Replace(mTexto, "Á", "A")
mTexto = Replace(mTexto, "Â", "A")
mTexto = Replace(mTexto, "À", "A")
mTexto = Replace(mTexto, "â", "A")
mTexto = Replace(mTexto, "Ü", "U")
mTexto = Replace(mTexto, "ü", "U")
mTexto = Replace(mTexto, "+", " ")
mTexto = Replace(mTexto, "`", " ")
mTexto = Replace(mTexto, "Ñ", "N")
mTexto = Replace(mTexto, "È", "E")
mTexto = Replace(mTexto, "ª", "A")
mTexto = Replace(mTexto, "º", "O")
mTexto = Replace(mTexto,"%D3", "O")
mTexto = Replace(mTexto, "%E3", "A")
mTexto = Replace(mTexto, "%E1", "A")
mTexto = Replace(mTexto, "%E2", "A")
mTexto = Replace(mTexto, "%ED", "I")
mTexto = Replace(mTexto, "%EA", "E")
mTexto = Replace(mTexto, "%C9", "E")
mTexto = Replace(mTexto, "%E9", "E")
mTexto = Replace(mTexto, "%F4", "O")
mTexto = Replace(mTexto, "%F3", "O")
mTexto = Replace(mTexto, "%F5", "O")
mTexto = Replace(mTexto, "%FA", "U")
mTexto = Replace(mTexto, "%27", " ")
mTexto = Replace(mTexto, "%E7", "C")
mTexto = Replace(mTexto, "%C2", "A")
mTexto = Replace(mTexto, "%FC", "U")
mTexto = Replace(mTexto, "%28", "(")
mTexto = Replace(mTexto, "%29", ")")
mTexto = Replace(mTexto, "%C1", "A")
mTexto = Replace(mTexto, "%CD", "I")
mTexto = Replace(mTexto, "¦", "A")
mTexto = Replace(mTexto, "%2C", ",")
mTexto = Replace(mTexto, "%2F", "/")
mTexto = Replace(mTexto,Chr(34)," ")
mTexto = UCase(mTexto)
TiraAcento = mTexto
End Function