cut and paste entire page in txt file

[2009luca]

How to copy entire page from sess0 and paste directlly in c:\mytxt.txt?

note:
during the process a press PF8 to go to the next page and i need to append to just part of page alreday copied into to txt file.

 

[2009luca]

sorry for up

 

[remy988]

something like this should get you started

Sub Main

        Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object
	Set Sys = CreateObject("EXTRA.System")
        ' Assumes an open sessions
	Set Sess = Sys.ActiveSession
	Set MyScreen = Sess.Screen
 
        Set MyArea = MyScreen.Area(1,1,24,80)
        
        MyFile = "C:\mytxt.txt"

        Open MyFile for Append as #1

            Print #1, MyArea
 
        Close #1  
    
End Sub

look in the HELP files for "Open statement:description" for further information

 

[2009luca]

tK!!!!!
But the code write into txt all in one line!!!!!!!!!!!!

I need to paste into the txt exactlly wath i see in session...similar:

AAAAAAA BBBBBBBB CCCCCCC
AAAAAAA BBBBBBBB CCCCCCC
AAAAAAA BBBBBBBB CCCCCCC
AAAAAAA BBBBBBBB CCCCCCC
AAAAAAA BBBBBBBB CCCCCCC
AAAAAAA BBBBBBBB CCCCCCC
AAAAAAA BBBBBBBB CCCCCCC


And not in one line, similar:
AAAAAAA BBBBBBBB CCCCCCC AAAAAAA BBBBBBBB CCCCCCC

tkx!

 

[remy988]

be careful of what you ask for

How to copy entire page from sess0 and paste directlly in c:\mytxt.txt?

something like this, maybe?

Sub Main
    Dim System As Object, Sess As Object, MyScreen As Object
    Set System = CreateObject("EXTRA.System")
    Set Sess = System.ActiveSession
    Set MyScreen = Sess.Screen
    
    MyFile = "C:\mytxt.txt"
      
    Open MyFile for Append as #1

        For i = 1 to 24
            
            MyArea = MyScreen.GetString (i,1,80)
            Print #1, MyArea
                
        Next i
        
    Close #1
    
End Sub

 

[2009luca]

hi REMY988, tks!
The code now work great!

Sorry for my bad english (I'm Italian)

 

[2009luca]

Tks for code!
Now work great!

 

[remy988]

hi 2009luca,

no need to apologize. there are folks that would actually use the first code instead of the second. glad i was able to help you.

rem

 

[2009luca]

But in case to use the first how to read line by line the txt?

 

[remy988]

it can get complicated, depending on how the screens are structured.

when you scrape one entire screen, in this case (1,1,24,80), that means there are 1920 characters in total (80 characters per row * 24 = 1920).

then you can loop through the 1920 characters using the MID function

either way is just as quick. it's a matter of preference.