Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Display text (formatted print files) on screen 2

Status
Not open for further replies.

wildcard

MIS
Mar 9, 2001
67
NZ
When I had only 80 column wide reports saved to
disk I could display them on screen using
RUN TYPE myfile.txt |MORE
and it ran like a dream... no problemo mon!

PROBLEM number ONE:
Now my clients tell me that they see nothing on screen
when they try to use this option! Something is
obviously wrong with the SET COMSPEC environment
but I do not know what.

PROBLEM number TWO:
Also, does anyone have a better way of displaying
reports to screen (24 lines at a glance)? Especially
if the reports are wider that 80 columns...
it would be nice to pan left/right to see a complete
line of text

Thanx in advance,
Jim
 
There a utility call Directory Master, DM.EXE, that I use that would display any type of file to any column length.
Contact -
Computer Tyme
411 North Sherman
Suite 300
Springfield, Mo. 65802
(800) 548-5353

to get the latest copy.
 
could try changing your program to send report to a file, then use a freeware utility, like browse.com, to view...
like run ('browse '+ tmpfile )
this would allow user to scroll to bottom, back to top, and all the way to right side of report. Type won't permit that.

Good luck
 
you need use the MEMOEDIT

1.- save de screen.

2.- send the report to file filename.txt.
SET( _SET_CONSOLE, OFF )
SET( _SET_PRINTFILE, filename.txt )
SETPRC(0,0)
SET( _SET_DEVICE, "PRINTER" )

3.- Call to Report function.

3.- with the MEMOEDIT open de filename.txt. like this:

SET( _SET_DEVICE, "SCREEN" )
SET( _SET_CONSOLE, ON )
SET( _SET_PRINTER, OFF )
SET( _SET_PRINTFILE, "" )

OldCursor := SETCURSOR( SC_SPECIAL1 )
Say( 21, 03, REPLICATE( CHR( 196 ), 76 ) )
Say( 22, 26, "Use "+CHR(27)+CHR(18)+CHR(26)+" to move in the report." )
MEMOEDIT( MEMOREAD( HARDCR( Filename.txt ) ), 2, 1, 20, 78, FALSE, , 170 )
SETCURSOR( OldCursor )

4.- restore your screen


i hope this resolve your problem.


sorry for my bad ingles ( i from to méxico.)
 
I'm doing a procedure to see a file report on one or more page. send me a email, when i finish i send you a copy.

ramonzea@hotmail.com
ramonzea@yahoo.com
 
Hello Ramonzea,
I also have the same problem. Can you send me your code to?
thank you.
Rafael

rafael.sardinha@netc.pt

 
hi jim

send me your email address and i shall mail you a nice browser.

subra if you find this useful let me know at vksubra@icenet.net
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top