mailbox125
Technical User
You have been so very helpful in the past I'm sure this is something simple I'm just overlooking.. This script will not recognize the feof 0? and goto the else programming. What have I missed?
string listmbxfile = " "
PROC main
string f_line
string DREFF
clear
capture off
set capture file "STAR-DEL-REFF.txt"
set capture overwrite on
capture on
sdlginput "Information" "Full Path To Saved Text File: " listmbxfile
transmit "U^M"
waitfor "."
transmit "D REF^M"
;Load the txt file
if fopen 0 listmbxfile READ TEXT;
if not FEOF 0
fgets 0 f_line
strextract DREFF f_line "," 0
waitfor "DEL:"
transmit DREFF
transmit "^M"
WAITFOR ":"
transmit "Y^M"
waitfor "DEL:" forever
else
transmit "^M^M"
waitfor "."
transmit "E^M"
waitquiet 1
waitfor ":"
transmit "Y^M^M"
endif
else
errormsg "Couldn't open file '%s'" listmbxfile
endif
capture off
disconnect
endproc
string listmbxfile = " "
PROC main
string f_line
string DREFF
clear
capture off
set capture file "STAR-DEL-REFF.txt"
set capture overwrite on
capture on
sdlginput "Information" "Full Path To Saved Text File: " listmbxfile
transmit "U^M"
waitfor "."
transmit "D REF^M"
;Load the txt file
if fopen 0 listmbxfile READ TEXT;
if not FEOF 0
fgets 0 f_line
strextract DREFF f_line "," 0
waitfor "DEL:"
transmit DREFF
transmit "^M"
WAITFOR ":"
transmit "Y^M"
waitfor "DEL:" forever
else
transmit "^M^M"
waitfor "."
transmit "E^M"
waitquiet 1
waitfor ":"
transmit "Y^M^M"
endif
else
errormsg "Couldn't open file '%s'" listmbxfile
endif
capture off
disconnect
endproc