Loop this command 1

[southpaw81]

I am trying to write a loop or repeat commands for the code below. Basically I need it to loop or repeat until:

( 11, 24, 11, 25, , xBlock) = " "

or in english it = blank

The regular code looks like this:

If Sess1.Screen.Area( 11, 24, 11, 25, , xBlock) = "00" then
result = Sess1.Screen.GetString(11, 24, 09)
Sess1.Screen.WaitHostQuiet( 500 )
Sess0.Screen.Row 11
Sess0.Screen.Col 24
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.PutString result, 11, 24
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Row 11
Sess0.Screen.Col 02
Sess0.Screen.Sendkeys("A")
End If

Then it hits pf8 to go to the next screen. So I need it to repeat the "IF" statement above until the pages no longer have "00" and are blank.

Hope this makes sense. Thank you ahead of time

Ryan

 

[calculus]

I use this type of code

Do while ( 11, 24, 11, 25, , xBlock) = " "

If statement
------check to see if you're done. If so, "EXIT DO" will exit the loop

End If

<Pf8> goes here

Loop