VB 6 - UTF -16 Big Endian para ASCII

[Pelissoni 0]

Olá pessoal do fórum,

 

tenho passado por um probleminha, eu preciso criar uma Rotina em VB 6 que faça o seguinte, receba uma sequencia de caracteres em utf-16 big endian para ASCII, e que de um replace em caracteres acentuado À Á à á ... e por ai vai, pois eu recebo um XML que as vezes vem com esses acentos, e no parser lá no final do processo da erro.

 

Se alguem tiver uma ideia de como se faz isso ... agradeço desde já.

[scorpio 7]

Tem como colocar um exemplo do texto aqui?

 

para mim se você falar que é utf-16, utf-32 european ballbal

 

pra mim é a mesma coisa...

poe um exemplo aqui.

[Pelissoni 0]

assim por hora eu crio um arquivo de texto com a palavra INFORMÁTICA e salvo como unicode big endian ( tem essa opção quando você salva) ai eu leio esse cara no VB6 e quando começa a ler e me dá uma string assim "þÿINFORMÁTICA"

 

ai no fim das contas eu preciso que me retorne INFORMATICA sem acento mesmo, isso eu resolvo com um replace ou outra forma de substituição, porem os dois caracteres esquisitos "þÿ" não saem e esses caras tem que ser removidos tb.

 

num sei se ficou bem claro mas a ideia é essa ai

[Claudio Neto 3]

Se esses caracteres estão sendo postos sempre, sem nenhuma excessão, utilize o mid.

 

variavel = mid("þÿINFORMÁTICA" ,2)