Skip to main content

Pass a variable to EMReadScreen to loop through rows

  • April 20, 2018
  • 5 replies
  • 0 views
D

Yes. I'm using Rumba 7.4.

No, I don't have a choice in the matter.

Please help me automate this crone.

 

Here's what I got:

Dim RowNum As Integer
tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout 8, RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

 

Error on the line "EMReadScreen Readout 8, RowNum, 33"; looks like I can't use a variable to set the row it's reading?

Can anyone help?


#Rumba

5 replies

André Escudero

Yes. I'm using Rumba 7.4.

No, I don't have a choice in the matter.

Please help me automate this crone.

 

Here's what I got:

Dim RowNum As Integer
tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout 8, RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

 

Error on the line "EMReadScreen Readout 8, RowNum, 33"; looks like I can't use a variable to set the row it's reading?

Can anyone help?


#Rumba

comma is missing at EMReadScreen command

Syntax:
EMReadScreen StringData, Length, Row, Column


Sub Main
Dim RowNum As Integer
Dim Readout As String

tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout,8,RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

End Sub

D

Yes. I'm using Rumba 7.4.

No, I don't have a choice in the matter.

Please help me automate this crone.

 

Here's what I got:

Dim RowNum As Integer
tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout 8, RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

 

Error on the line "EMReadScreen Readout 8, RowNum, 33"; looks like I can't use a variable to set the row it's reading?

Can anyone help?


#Rumba
thanks andre .but to post data we need both row index and column index right?.but it returns only row number
D

Yes. I'm using Rumba 7.4.

No, I don't have a choice in the matter.

Please help me automate this crone.

 

Here's what I got:

Dim RowNum As Integer
tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout 8, RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

 

Error on the line "EMReadScreen Readout 8, RowNum, 33"; looks like I can't use a variable to set the row it's reading?

Can anyone help?


#Rumba
thanks andre .but to post data we need both row index and column index right?.but it returns only row number
D

Yes. I'm using Rumba 7.4.

No, I don't have a choice in the matter.

Please help me automate this crone.

 

Here's what I got:

Dim RowNum As Integer
tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout 8, RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

 

Error on the line "EMReadScreen Readout 8, RowNum, 33"; looks like I can't use a variable to set the row it's reading?

Can anyone help?


#Rumba
Hi Babu,

it looks to me as if you are looking for search and replace functionality.

Here is a sample script:

Type CursorLoc
Row as Integer
Col as Integer
End Type

Sub Main
Dim MyLoc as CursorLoc
Dim FindString as String, NewString as String

DlgStart
DlgItemType "Seach For:"
DlgItemAsk "", FindString, 1, 10
DlgItemType "Replace with:"
DlgItemAsk "", NewString, 2, 10
DlgInquire
DlgGetItemValue 1 , FindString
DlgGetItemValue 2 , NewString
DlgEnd

EMSearch FindString, 1, 1, MyLoc.Row, MyLoc.Col

If MyLoc.Row > 0 then
Msgbox "Found " & FindString & " at " & MyLoc.Row & ", " & MyLoc.Col
EMSetCursor MyLoc.Row, MyLoc.Col
EMSendKey NewString
Else
Msgbox FindString & " not found on screen"
End If
End Sub

Note I am not padding out the replace strings, so if it is shorter than the search string it will only overwrite part of the search string.

Tom
D

Yes. I'm using Rumba 7.4.

No, I don't have a choice in the matter.

Please help me automate this crone.

 

Here's what I got:

Dim RowNum As Integer
tmpStr=""
MsgAsk "What Row to read?", RowNum, 1

Dim ShipDate As String
EMReadScreen Readout 8, RowNum, 33
ShipDate = Readout

DlgStart
DlgTitle "Reads"
DlgItemType "The screen says" & ShipDate & "on row" & RowNum & "."
DlgInquire
DlgEnd

 

Error on the line "EMReadScreen Readout 8, RowNum, 33"; looks like I can't use a variable to set the row it's reading?

Can anyone help?


#Rumba
That did it! Thank you for your help.
Now if only the syntax for all commands and functions were on the wiki...

Recent badge winners

Explore all badges
Terms & ConditionsAccessibility statement