gerar txt com codificação utf-8

[allan.web 0]

Ola pessoal.

 

Estou com problemas para gerar um arquivo .txt com codificação utf-8, ja pesquisei mas não encontrei nada a respeito, alguem pode me ajudar?

 

*Obs. Gerar o txt não é problema, o problema está sendo em colocar a codificação utf-8 nele

 

Grato pela atenção.

Allan

[DSerma 19]

Já tentou colocar

Response.AddHeader "Content-Type", "text/html; utf-8"

No início da página q faz a geração ??

 

Abraços..

[allan.web 0]

Acabei de testar, mas gera ainda como ANSI.

 

Já pesquisei em vários lugares, mas ainda não encontrei nada a respeito.

 

Se alguém mais puder dar alguma idéia ficarei muito grato.

 

Obrigado.

Allan

[xanburzum 169]

você pode usar essa função:

 

function DecodeUTF8(s)
dim i
dim c
dim n

i = 1
do while i <= len(s)
c = asc(mid(s,i,1))
if c and &H80 then
n = 1
do while i + n < len(s)
if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then
exit do
end if
n = n + 1
loop
if n = 2 and ((c and &HE0) = &HC0) then
c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)
else
c = 191 
end if
s = left(s,i-1) + chr© + mid(s,i+n)
end if
i = i + 1
loop
DecodeUTF8 = s 
end function

function EncodeUTF8(s)
dim i
dim c

i = 1
do while i <= len(s)
c = asc(mid(s,i,1))
if c >= &H80 then
s = left(s,i-1) + chr(&HC2 + ((c and &H40) / &H40)) + chr(c and &HBF) + mid(s,i+1)
i = i + 1
end if
i = i + 1
loop
EncodeUTF8 = s 
end function

[allan.web 0]

Ola.

 

Está dando erro nessa linha:

 

s = left(s,i-1) + chr© + mid(s,i+n)

 

Tentei tirar o ©, mas ai o arquivo continua sendo gerado como ANSI.

[allan.web 0]

Ola.

 

Tentei com a função mas está dando erro, alguem tem outra ideia de como gerar um arquivo .txt com codificação UTF-8?

 

Obrigado

[xanburzum 169]

qual erro é gerado ?

[allan.web 0]

Ola, o erro gerado é:

 

Erro de compilação do Microsoft VBScript (0x800A0408)

Caractere inválido

/MundoDeImoveis/site/adm/gera_sitemap.asp, line 38

[Joel Alves 0]

Uso este. Tenta.

 

<meta http-equiv="content-type" content="text/html; charset=UTF-8">

[allan.web 0]

Ola Joel.

 

Acabei de testar, mas tbem não deu certo, se tiver alguma outra ideia, por favor me ajude, ja tentei tudo que podia imaginar.

[Joel Alves 0]

Você poderia explicar melhor onde está inserindo isto? É para uma página? É HTML? Pelo que li acima, é em um arquivo txt. Preciso que você me explique melhor o que está tentando fazer.

[allan.web 0]

Ola Joel.

 

Então, estou gerando um "Sitemap.txt" dinamico para o google, ou seja, la dentro vão estar todas as URLs dinamicas de meu site, é um portal de imobiliárias, sendo que preciso gerar diariamente esse arquivo, e o google pede que ele seja criado com codificação UTF-8.

Esse arquivo já está sendo gerado, porem não na codificação UTF-8.

 

Estou tentando chamar sua função dessa forma:

DecodeUTF8("teste")

 

Porem da erro na linha citada.

 

Obrigado.

[Joel Alves 0]

Abra o arquivo no Dreamweaver e configure para UTF-8.

Todos os acentos e alguns caracteres que você digitar serão transformados automaticamente em UTF-8.

 

Para usar UTF-8, você não poderá digitar o .txt manualmente (bloco de notas ou afins). O Dreamweaver resolve o problema.

Testei agora mesmo e deu certo.

[allan.web 0]

Ola Joel.

 

Obrigado pela dica, mas o problema é que essas URLs mudam a cada hora, e a cada alteração, preciso que esse Sitemap seja alterado automaticamente, ja tenho tudo funcionando, o que está faltando é gerar ele em UTF-8, pois se a cada alteração feita no site eu tiver que gerar um arquivo novo manualmente vou passar o dia só fazendo isso.

 

Obrigado.

[Joel Alves 0]

Humm.

É, desta forma, não sei como ajudar.

[allan.web 0]

De qualquer forma muito obrigado Joel.

 

Alguem tem alguma outra ideia ou ja fez isso antes?

 

Obrigado.