naming sessions? 3

[mizsydney]

please be kind, I am really stuck. I'm not a complete idiot and had no problems coding in the "old" version of Extra basic, but I haven't been able to figure out the new version and haven't been permitted much time to work with it.

here's what I'm trying to do - our users will have 2 (or more) sessions open and I want to copy info from one seesion to the next. where I am stuck is identifying the different sessions to connect to. (each user will have completely different session names assigned by the IT dept so I can't just use a default "Session1.edp" or something.)

I'm not sure how to jump thru and label the sessions. I am looking for a string on each session to see which session has which input, but once I find it how do I label that session? and if I don't find it, I'd like to jump to the next session to check and then if not found tell the user to navigate to that screen and then exit the macro. (the users will be running the macros from the sessions, so they macro will have to stop before they can nav to the correct screen.)

I have gotten far enough that I can check the string to ID the session, but when I try to "name" that session (so that I can tell it to "get" from x, y on Session1 and send to x,y on Session2) I keep getting a "no object" error on the line where I'm trying to identify the session.

e.g. (short sample from memory)

if Header <> "AXU" then
session.jumpnext
if Header = "AXU" then
system.activesession = SessAX

and that's the line that gets the object error. it compiles OK but doesn't run. (Header is a string from a location on "sess0" and I assume sess0 is just the default for the first session the macro finds.)

I assume that the old EB version "ConnectSession" is implied in the new version of EB: sessionname.screen.moveto 3,1 for example.

I have read all the Attachmate FAQs on this site and searched the forum and borrowed your code and tried to change it slightly to fit my needs but I'm just not getting the syntax (and the DIMs, etc.) right. I have been thru five or six VB tutorials in the last couple of days, I have been Googling all month, and I just can't get my tiny brain to GET the syntax. I'm thinking that maybe it's the ActiveSession reference but then I don't know what I'm talking about anyway.

I could write the macro in the old version of EB, but I would like to take advantage of some of the additional functionality in the new version. especially after seeing what you guys can do!

any help anyone can offer would be greatly appreciated~and apologies for being SUCH a newbie ...

 

[Skie]

Try this:

Sub Main
Dim objExtra as object
Dim objSessions as object
Set objExtra = CreateObject("Extra.System")
Set objSessions = objExtra.Sessions
i=0
While Err=0
    On Error Resume Next
    MsgBox objSessions(i) & " " & str(i)
    i=i+1
Wend
End Sub

 

[IknowMe]

To GetString with Skie's Example
Variable = objSessions(i).Screen.GetString(1,1,10)
In lue of the msgbox

Star for Skie

 

[mizsydney]

thanks guys, I'll try your code -

 

[IknowMe]

Good Luck, you know where to find us if you need more help.

Wow, i'm having amnesia and deja vu at the same time.
I think I've forgotten this before.