Pass a variable to EMReadScreen to loop through rows

André Escudero
Rocketeer
Forum|Forum|7 years ago
April 21, 2018

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

Like

+2

Dominique Sacre
Author
Rocketeer
Forum|Forum|7 years ago
April 22, 2018

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

Like

+2

Dominique Sacre
Author
Rocketeer
Forum|Forum|7 years ago
April 22, 2018

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

Like

+2

Dominique Sacre
Author
Rocketeer
Forum|Forum|7 years ago
April 23, 2018

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

Like

+2

Dominique Sacre
Author
Rocketeer
Forum|Forum|7 years ago
April 25, 2018

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...