Hi all.
I'm having an issue having a script that keeps returning the "ghost" value from the previous screen. The code is supposed to access a dividend announcement file and flip through the different accounts until it get to the very last account. There's 12 accounts in each flip, hence if we have 15 accounts, the script would have to flip (manual loop) twice (12 3). Now, I have the script stop on the 7th account of the fourth loop and read whatever is there. I know if to be blank, but the script keeps reading the value from the 3rd run of the loop:
Sub Main()
Dim EmptyString as String
Dim EmptyStringFinal as String
EMSendKey "<CLEAR>"
EMSendKey "DIVD"
EMSendKey "<ENTER>"
EMSendKey "AD"
EMSetCursor 23,62
EMSendKey "444663656"
EMSendKey "<ENTER>"
EMSetCursor 23,10
EMSendKey "PF"
EMSendKey "<ENTER>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMReadScreen EmptyString, 12, 12, 7
EmptyStringFinal=Trim(EmptyString)
msgbox EmptyStringFinal
End Sub
Can you help?
#RumbaHi Jose_Leon,
Is it a good practice to initialize variables when they are declared. It often prevents unexpected results.
If there is a meaningful value that you can use to initialize a variable at declaration time,then do it.
You should check and "reset" your variable after each loop. If you need all values then use an array.
Hi all.
I'm having an issue having a script that keeps returning the "ghost" value from the previous screen. The code is supposed to access a dividend announcement file and flip through the different accounts until it get to the very last account. There's 12 accounts in each flip, hence if we have 15 accounts, the script would have to flip (manual loop) twice (12 3). Now, I have the script stop on the 7th account of the fourth loop and read whatever is there. I know if to be blank, but the script keeps reading the value from the 3rd run of the loop:
Sub Main()
Dim EmptyString as String
Dim EmptyStringFinal as String
EMSendKey "<CLEAR>"
EMSendKey "DIVD"
EMSendKey "<ENTER>"
EMSendKey "AD"
EMSetCursor 23,62
EMSendKey "444663656"
EMSendKey "<ENTER>"
EMSetCursor 23,10
EMSendKey "PF"
EMSendKey "<ENTER>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMReadScreen EmptyString, 12, 12, 7
EmptyStringFinal=Trim(EmptyString)
msgbox EmptyStringFinal
End Sub
Can you help?
#RumbaHi,
Please note that the EMSendKey is asynchronous request when you are sending action keys like ENTER, PF's etc.
Due to that you need to wait for your host to reply back with the new screen using one of the wait command:
EMWaitText is probably the prefered way
EMWaitX is also OK but will cause your script for a short delay
Hope this will help
Adi
Hi all.
I'm having an issue having a script that keeps returning the "ghost" value from the previous screen. The code is supposed to access a dividend announcement file and flip through the different accounts until it get to the very last account. There's 12 accounts in each flip, hence if we have 15 accounts, the script would have to flip (manual loop) twice (12 3). Now, I have the script stop on the 7th account of the fourth loop and read whatever is there. I know if to be blank, but the script keeps reading the value from the 3rd run of the loop:
Sub Main()
Dim EmptyString as String
Dim EmptyStringFinal as String
EMSendKey "<CLEAR>"
EMSendKey "DIVD"
EMSendKey "<ENTER>"
EMSendKey "AD"
EMSetCursor 23,62
EMSendKey "444663656"
EMSendKey "<ENTER>"
EMSetCursor 23,10
EMSendKey "PF"
EMSendKey "<ENTER>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMReadScreen EmptyString, 12, 12, 7
EmptyStringFinal=Trim(EmptyString)
msgbox EmptyStringFinal
End Sub
Can you help?
#RumbaHi Jose_Leon,
in addition to what @ndre says, you don't mention which version of Rumba you are using or the connectivity which you are using.
Here is a sample on how one can loop and note the various strings which appear on screen:
Sub Main
Dim myString as String, i as Integer, myMsgString as String, my2ndLastString as String
Dim myStrings(10) as string
EMSendKey "<CLEAR>"
EMWaitCursor 3, 1, 1
EMSendKey "listcat"
EMSendKey "<ENTER>"
'Initialise my array index
j = 1
'Initialise my myString
myString = "lets go"
Do while myString <> ""
For i = 1 to 24
EMReadScreen myString, 30, i, 1
myString = Trim(myString)
'Check to see if the string read is blank
if myString = "" then
'If yes, then set a completed identifer at the end of our scraped data and exit
myString = "Complete"
Exit For
End If
'Let's note the last string read seperately (so we can compare later).
my2ndLastString = myString
myMsgString = myMsgString & myString & Chr$(13) & Chr$(10)
Next i
'Check if there is more data on the next screen if yes send <Enter>
If myString = "***" then
myStrings(j) = myMsgString
j = j 1
myMsgString = ""
EMSendKey "<ENTER>"
End If
'Check to see if we are complete and if yes Exit the Do Loop
if myString = "Complete" then Exit Do
Loop
'Let's check the array, and see what we have scraped from earlier screens.
For i = 1 to UBound(myStrings)
if myStrings(i) = "" then exit for
Msgbox myStrings(i)
'Let's check the last screen, and the last non blank line read.
Next i
Msgbox myMsgString & Chr$(13) & Chr$(10) & Chr$(10) _
& "---------------------------------------------------------------------------" & Chr$(13) & Chr$(10) _
& "my2ndLastString = " & my2ndLastString & Chr$(13) & Chr$(10) & "myString =" & myString
myMsgString = ""
End Sub
Note: You can not Exit Do ig you are inside a For ... Next statement, you need to Exit For and then Exit Do, such an issue can lead to the kind of problem which you are seeing.
Tom
Hi all.
I'm having an issue having a script that keeps returning the "ghost" value from the previous screen. The code is supposed to access a dividend announcement file and flip through the different accounts until it get to the very last account. There's 12 accounts in each flip, hence if we have 15 accounts, the script would have to flip (manual loop) twice (12 3). Now, I have the script stop on the 7th account of the fourth loop and read whatever is there. I know if to be blank, but the script keeps reading the value from the 3rd run of the loop:
Sub Main()
Dim EmptyString as String
Dim EmptyStringFinal as String
EMSendKey "<CLEAR>"
EMSendKey "DIVD"
EMSendKey "<ENTER>"
EMSendKey "AD"
EMSetCursor 23,62
EMSendKey "444663656"
EMSendKey "<ENTER>"
EMSetCursor 23,10
EMSendKey "PF"
EMSendKey "<ENTER>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMSendKey "<PF1>"
EMReadScreen EmptyString, 12, 12, 7
EmptyStringFinal=Trim(EmptyString)
msgbox EmptyStringFinal
End Sub
Can you help?
#RumbaHi Jose_Leon,
in addition to what @ndre says, you don't mention which version of Rumba you are using or the connectivity which you are using.
Here is a sample on how one can loop and note the various strings which appear on screen:
Sub Main
Dim myString as String, i as Integer, myMsgString as String, my2ndLastString as String
Dim myStrings(10) as string
EMSendKey "<CLEAR>"
EMWaitCursor 3, 1, 1
EMSendKey "listcat"
EMSendKey "<ENTER>"
'Initialise my array index
j = 1
'Initialise my myString
myString = "lets go"
Do while myString <> ""
For i = 1 to 24
EMReadScreen myString, 30, i, 1
myString = Trim(myString)
'Check to see if the string read is blank
if myString = "" then
'If yes, then set a completed identifer at the end of our scraped data and exit
myString = "Complete"
Exit For
End If
'Let's note the last string read seperately (so we can compare later).
my2ndLastString = myString
myMsgString = myMsgString & myString & Chr$(13) & Chr$(10)
Next i
'Check if there is more data on the next screen if yes send <Enter>
If myString = "***" then
myStrings(j) = myMsgString
j = j 1
myMsgString = ""
EMSendKey "<ENTER>"
End If
'Check to see if we are complete and if yes Exit the Do Loop
if myString = "Complete" then Exit Do
Loop
'Let's check the array, and see what we have scraped from earlier screens.
For i = 1 to UBound(myStrings)
if myStrings(i) = "" then exit for
Msgbox myStrings(i)
'Let's check the last screen, and the last non blank line read.
Next i
Msgbox myMsgString & Chr$(13) & Chr$(10) & Chr$(10) _
& "---------------------------------------------------------------------------" & Chr$(13) & Chr$(10) _
& "my2ndLastString = " & my2ndLastString & Chr$(13) & Chr$(10) & "myString =" & myString
myMsgString = ""
End Sub
Note: You can not Exit Do ig you are inside a For ... Next statement, you need to Exit For and then Exit Do, such an issue can lead to the kind of problem which you are seeing.
Tom
