Skip to main content

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

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


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

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

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

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