Read And Skip File

Sub ReadContract()

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

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

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fs, f, ts, line1

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile("P:\File\Auto_Process\Points_Batch.txt")

Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

line1 = ts.Read(3) ' First 3 characters

ts.Skip (1)

line2 = ts.Read(11) ' Rest Of Contract

ts.Close

' Sequence to input information Sample

Call osCurrentScreen.SendControlKey(ControlKeyCode_Clear)

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(100)

Call ResetMenu

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(100)

Call ContractMaintenance

'Wait for host to 'be quiet' before continuing

returnValue = osCurrentScreen.WaitForHostSettle(100)

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

osCurrentScreen.SendControlKey ControlKeyCode_Enter

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

osCurrentScreen.SendControlKey ControlKeyCode_Enter