DUVIDA ELIMINAR CARCTER AVANCO DE PAGINA
BOM PESSOAL é O SEGUINTE TO COM UMA GRANDE DUVIDA DE COMO AO MENOS FAZER ISSO .
O SISTEMA DA RETAGUARDA GERA UM RELATORIO CERTO .ESTE RELATORIO VEM COM UM CARACTER DE AVANCO DE PAGINA , POIS A RETAGUARDA é FEITA EM COBOL , EU PRECISO PEGAR O ARQUIVO GERADO LER E JOGAR EM UM TEXBOX BOM ISSO EU FACO TRANQUILO , MAIS ELE VEM COM O CARACTER ESTRANHO , AI Q TA FODA , EU QUERIA UMA ROTINA Q EU PUDESSE LER BYTE A BYTE E ELIMINAR O CARACTER , A ROTINA EU FACO MAIS EU NAUM SEI O ASCII NEM O HEXA DESSE CARACTER SE ALGUEM TIVER ALGO ME DA UMA LUZ AEW OBRIGADO
ABAIXO A IMAGEM DE EXEMPLO
O SISTEMA DA RETAGUARDA GERA UM RELATORIO CERTO .ESTE RELATORIO VEM COM UM CARACTER DE AVANCO DE PAGINA , POIS A RETAGUARDA é FEITA EM COBOL , EU PRECISO PEGAR O ARQUIVO GERADO LER E JOGAR EM UM TEXBOX BOM ISSO EU FACO TRANQUILO , MAIS ELE VEM COM O CARACTER ESTRANHO , AI Q TA FODA , EU QUERIA UMA ROTINA Q EU PUDESSE LER BYTE A BYTE E ELIMINAR O CARACTER , A ROTINA EU FACO MAIS EU NAUM SEI O ASCII NEM O HEXA DESSE CARACTER SE ALGUEM TIVER ALGO ME DA UMA LUZ AEW OBRIGADO
ABAIXO A IMAGEM DE EXEMPLO
Para saber qual o caracter, leia cada caracter do arquivo recebido (dá um trabalhão) para descobrir qual é (ou são) o código ASC.
Wlinha = LEITURA DO ARQUIVO
for Wx = 1 to len(linha)
Wletra = mid(Wlinha,Wx,1)
msgbox(Wletra & [Ô] -> [Ô] & str(ascii(Wletra),3,0)
next Wx
Depois de descobrir quais os caracteres a retirar, faça assim:
Wlinha = replace(Wlinha,Wletra,[Ô][Ô])
Wlinha = LEITURA DO ARQUIVO
for Wx = 1 to len(linha)
Wletra = mid(Wlinha,Wx,1)
msgbox(Wletra & [Ô] -> [Ô] & str(ascii(Wletra),3,0)
next Wx
Depois de descobrir quais os caracteres a retirar, faça assim:
Wlinha = replace(Wlinha,Wletra,[Ô][Ô])
EU FIZ UMA ROTINA QUASE IGUAL
EU TO LENDO LINHA POR LINHA E SUBTITUINDO O CARACTER
TUDO EM HEX AGORA COMO EU VOU O HEX PARA ARQUIVO TEXTO ?
EU TO LENDO LINHA POR LINHA E SUBTITUINDO O CARACTER
TUDO EM HEX AGORA COMO EU VOU O HEX PARA ARQUIVO TEXTO ?
Tópico encerrado , respostas não são mais permitidas