edutraini Posted March 9, 2015 Report Share Posted March 9, 2015 Pessoal um cliente meu recebe um arquivo do serasa para poder fazer conciliacao de titulos pagos aonde tenho que abrir esse arquivo ler as informacoes que estao la e devolver o mesmo arquivo preenchendo alguns campos. Ate funciona perfeitamente. O problema esta na conversao desse arquivo, ele vem em formato estranho que nao consigo abrir no bloco de nota ou word pad ele fica to desalinhado somente no textpad eu abro e depois tenho que salvar em outro formato para poder ler no meu sistema atraves do comando cLinha:=oText:ReadLine() Alguem saberia como transformar esse arquivo sem ter que abrir no textpad ou seja direto pelo programa Quote Link to comment Share on other sites More sharing options...
kleyber Posted March 9, 2015 Report Share Posted March 9, 2015 Edu, Pelo que entendi o arquivo vem no formato onde o caracter de final de linha é somente o CR. Nos arquitos TXT o caracter de final de linha é o CRLF. Por isso o oText:ReadLine() não funciona diretamente no arquivo. Tem que haver mesmo a conversão, pois não me lembro de existir uma forma de ler nativamente arquivos em formato UNIX. Quote Link to comment Share on other sites More sharing options...
edutraini Posted March 9, 2015 Author Report Share Posted March 9, 2015 Bom dia é isso mesmo vou aguardar algum colega passar alguma dica Quote Link to comment Share on other sites More sharing options...
edutraini Posted March 9, 2015 Author Report Share Posted March 9, 2015 Bom dia é isso mesmo vou aguardar algum colega passar alguma dica de como converter esse arquivo para txt sem ter que abrir pelo textpad Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 9, 2015 Report Share Posted March 9, 2015 Para converter um arquivo Unix para Windows, digite: 1 unix2dos arquivo.txt Quote Link to comment Share on other sites More sharing options...
vagner Posted March 9, 2015 Report Share Posted March 9, 2015 Olá, Troque o Chr(10) por Chr(10)+Chr(13) leia e depois transforme novamente cTexto := MemoRead("SeuArquivoTexto") cTexto := StrTran(cTexto,Chr(10),Chr(10)+Chr(13) e depois de usar mude novamente cTexto := StrTran(cTexto,Chr(10)+Chr(13),Chr(10)) Quote Link to comment Share on other sites More sharing options...
kleyber Posted March 9, 2015 Report Share Posted March 9, 2015 Boa, Vagner Quote Link to comment Share on other sites More sharing options...
emotta Posted March 9, 2015 Report Share Posted March 9, 2015 kkkkk eu estava postando exatamente isso.... boa vagner só tem o seguinte, desse jeito se o arquivo vier no padrão normal dará problema, mas tem uma maneira de deixar tudo compativel, mesmo se vier só com CHR(10) ou CHR(13)+CHR(10). Faça assim: cTexto := StrTran(cTexto,Chr(13)+Chr(10),Chr(10)) cTexto := StrTran(cTexto,Chr(10)+Chr(13),Chr(10)) cTexto := StrTran(cTexto,Chr(10),Chr(13)+Chr(10)) Desse jeito ficará compativel com qualquer formato como vier, só não tem como "voltar" no formato antigo se precisar mas acho que não é o caso certo? Abraços Olá, Troque o Chr(10) por Chr(10)+Chr(13) leia e depois transforme novamente cTexto := MemoRead("SeuArquivoTexto") cTexto := StrTran(cTexto,Chr(10),Chr(10)+Chr(13) e depois de usar mude novamente cTexto := StrTran(cTexto,Chr(10)+Chr(13),Chr(10)) vagner 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.