sunset Posted February 26, 2008 Report Share Posted February 26, 2008 Bom dia a todos tenho um TXT gerado a partir do set printer to REPORTE.PRN e ele serve para imprimir em matricial e JATO de tinta mas quando vai imprimir em jato de tinta o caractere de EJECT faz imprimir uma pagina a mais em branco, gostaria de saber como editar este TXT para retirar o ultimo caractere que seria o EJECT e salva novamente com ele sem o caractere incoveniente. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - Med João Pessoa - Paraiba inteligence.suporte@hotmail.com Quote Link to comment Share on other sites More sharing options...
sunset Posted February 26, 2008 Author Report Share Posted February 26, 2008 Bom dia a todos tenho um TXT gerado a partir do set printer to REPORTE.PRN e ele serve para imprimir em matricial e JATO de tinta mas quando vai imprimir em jato de tinta o caractere de EJECT faz imprimir uma pagina a mais em branco, gostaria de saber como editar este TXT para retirar o ultimo caractere que seria o EJECT e salva novamente com ele sem o caractere incoveniente. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - Med João Pessoa - Paraiba inteligence.suporte@hotmail.com Quote Link to comment Share on other sites More sharing options...
toya Posted February 27, 2008 Report Share Posted February 27, 2008 Com o exemplo abaixo eu retiro "todos" os chr(12)... ... TxtFile( 'arquivox.prn', strtran( memoread( 'arquivo.prn' ), chr(12), '' ), .t. ) ... /////////////////////////////////////////////////////////////////////////////// // toya /////////////////////////////////////////////////////////////////////////////// function TxtFile( cFileName, aInfo, lCriaNovo ) local hFile, cLine:=dtoc( date() ) + " " + time() + ": ", n:=0 DEFAULT lCriaNovo:=.f. if valtype( aInfo )=='C' cLine:=aInfo else cLine:='' for n=1 to len( aInfo ) cLine+=cValToChar( aInfo[ n ] ) + ' ' next cLine+=CRLF endif if lCriaNovo fclose( ferase( cFileName ) ) endif if !file( cFileName ) fclose( fcreate( cFileName ) ) endif if( ( hFile:=fopen( cFileName, FO_WRITE ) )!=-1 ) fseek( hFile, 0, FS_END ) fwrite( hFile, cLine, len( cLine ) ) fclose( hFile ) endif return nil id=code>id=code>toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Quote Link to comment Share on other sites More sharing options...
sunset Posted February 27, 2008 Author Report Share Posted February 27, 2008 vc tem esta função que falta na rotina logo acima cValToChar( aInfo[ n ] ) + ' ' Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - Med João Pessoa - Paraiba inteligence.suporte@hotmail.com Quote Link to comment Share on other sites More sharing options...
vagner Posted February 28, 2008 Report Share Posted February 28, 2008 citação:vc tem esta função que falta na rotina logo acima cValToChar( aInfo[ n ] ) + ' ' Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - Med João Pessoa - Paraiba inteligence.suporte@hotmail.com id=quote>id=quote>Olá Marcio, Essa função é do próprio FWH, não sei se têm para FW (clipper), mas vou ver se encontro aqui e volto a postar Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
vagner Posted February 28, 2008 Report Share Posted February 28, 2008 function cValToChar( uVal ) local cType := ValType( uVal ) do case case cType == "C" .or. cType == "M" return uVal case cType == "D" return DToC( uVal ) case cType == "L" return If( uVal, ".T.", ".F." ) case cType == "N" return AllTrim( Str( uVal ) ) case cType == "B" return "{|| ... }" case cType == "A" return "{ ... }" case cType == "O" return "Object" otherwise return "" endcase return nil id=code>id=code>Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
sunset Posted February 29, 2008 Author Report Share Posted February 29, 2008 Se for realmente o ultimo caractere do texto , consegui fazer a rotina funcionar , mas não compreendi seu funcionamento, ela tira todos fica ok,mas no meu caso as paginas ficaram sem o eject entre as paginas e somente a ultima que não queria que ejeta-se estou usando o NO2DOSIMP,para impressoras jato de tintas usb , por isso este muido todo para este txt gerado. se alguem puder complementar ficaria muito grato. Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - Med João Pessoa - Paraiba inteligence.suporte@hotmail.com Quote Link to comment Share on other sites More sharing options...
toya Posted March 1, 2008 Report Share Posted March 1, 2008 Veja em Novidades na http://www.toyanet.com.br/ toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) 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.