|
Try
using At(""). This should reset the condition for you.
Billy Helmandollar, Systems Analyst
Bluefield Regional Medical Center
500 Cherry Street
Bluefield, WV
24701
(304) 327-1168
[EMAIL PROTECTED]
Hello everyone, me again. Still working
with this external file and have this little snag.
It
cycles through the records pretty well until it comes across two items that
meet this
criteria: If At("Not
found. New? Y") Then
For
some reason the script does not acknowledge the second time it sees this and
just goes
to
the Else statement. How to I reset the script after the first ocurrence
of this condition?
Actually, do I need to reset it?
Thanks,
Scott
If LOF(F) < Len(Rec) Then
Stop ' no source
file
Do While Not
EOF(F)
DoEvents
BeginCycle:
Line
Input #F, InputRecord
If
Len(InputRecord) > 10 Then
' skip blank
lines
Proc = Trim(Mid(InputRecord, 1,
10))
Amt
= Trim(Mid(InputRecord, 12,
10))
Enter
Proc
Wait
0.5
If At("Not found. New? Y")
Then
Wait
0.5
Key
"{F10}"
Wait
0.5
Enter
""
Key
"{F10}"
Wait
0.5
GoTo
BeginCycle
Else
CONFIDENTIALITY NOTICE: This e-mail communication
and any attachments may contain confidential and privileged information for
the use of the designated recipients named above. If you are not the intended
recipient, you are hereby notified that you have received this communication
in error and that any review, disclosure, dissemination, distribution or
copying of it or its contents is prohibited. If you have received this
communication in error, please notify Saratoga Hospital immediately by e-mail
at [EMAIL PROTECTED] and destroy all copies of this communication and
any attachments.
********************************** Note ******************************************
The information contained in this message may be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify the Sender immediately by replying to the message and deleting it from your computer.
Thank You
Bluefield Regional Medical Center
| 