Ir ao conteúdo
  • Cadastre-se
Fazzioni

RESOLVIDO Formatando Resultado do CMD

Recommended Posts

Boa Tarde

Estou utilizando o cmd para realizar alguns processos, porém ao retornar o o texto ele contem alguns caracteres ilegíveis como "Æ", para gerar o resultado do cmd

estou ultilizando:

winexec('MEUCOMANDO > arquivoresult.txt',0);

Para formatar:

function FormatTexto(value: String): String;ConstAlfabeto_01 = 'µÖàé‚¡¢£¶Ò×âꃈŒ“‡€õÆäÇå';Alfabeto_02 = 'ÁÍÓÚéíóúÂÊÎÔÛâêîôçǧãõÃÕ';vari : Cardinal;begin  For i := 1 to length(value) do IF Pos(Value[i],Alfabeto_01) <> 0 then  value[i] := alfabeto_02[pos(value[i],Alfabeto_01)];  Result := value; end;

Porém não tenho muito tempo para ficar testando carácter por carácter, se alguém saber de algum comando para transformar agradeço.

 

 

 

 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@LNW, muito obrigado, pesquisando.... cheguei nessa função:

 

Function OEMToString(Value : String):String;begin   SetLength(Result, Length(value));   OEMToChar(@Value[1], @result[1]);end;

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×