Read Text File in a Loop

Sub ReadContractFile2()

Dim hostSettleTimeout As Integer

Dim hostSettleTime As Integer

Dim osCurrentScreen As Screen

Dim osCurrentTerminal As Terminal

Dim returnValue As Integer

Dim hiddenTextEntry As String

hostSettleTimeout = 5000

hostSettleTime = 300

Set osCurrentTerminal = ThisFrame.SelectedView.control

Set osCurrentScreen = osCurrentTerminal.Screen

' Sequence to input information Sample

Call ContractInquiry

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(200)

' Reading File from P:\Xavier Arias\Auto_Process\Points_Batch.txt

Dim MyString, MyString2, MyString3

Open "P:\File\Auto_Process\Points_Batch.txt" For Input As #1 ' Open file for input.

Do While Not EOF(1) ' Loop until end of file.

Input #1, MyString, MyString2, MyString3 ' Read data into two variables.

Call osCurrentScreen.SendKeys(MyString) ' First Line on File

osCurrentScreen.SendControlKey ControlKeyCode_Enter

Call osCurrentScreen.SendKeys(MyString2) ' First Line on File

osCurrentScreen.SendKeys "."

Call osCurrentScreen.SendKeys(MyString3) ' First Line on File

osCurrentScreen.SendControlKey ControlKeyCode_Enter

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(200)

Call OpenItemInquiry

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(200)

osCurrentScreen.SendKeys "."

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(200)

osCurrentScreen.SendControlKey ControlKeyCode_Enter

Call LeaseInq

Loop

Close #1 ' Close file.

End Sub