$LANG = "VBScript"

cr = Chr(13)
lf = Chr(10)
strLength = 8 'Length of each line of data received, used to position cursor for time stamp

haAbortOnError 0

while haGetConnectionStatus = 1
if haWaitForString(cr & lf) = 0 then
haSetCursorPosition haGetCursorRow -1, strLength + 1
haTypeLocalText 0, now() & cr & lf
end if



To execute this sample save the above code as a text file. In HyperACCESS click Automation->Run, and select the text file. This script could also be set to run automatically by clicking Properties->File Usage.

the haSetCursorPosition line moves the cursor 1 row up and a few columns over before adding the timestamp. Replace the strLength of 8 depending on the width of your data, or remove the haSetCursorPosition line to keep the timestamp on a seperate line.

Return to sample script index