;sendCommand.ttl
;param2 -- text file holding commands
;param3 -- com port number
;param4 -- baud rate
;param5 -- working directory
;param6 -- log file
show -1

str2int int1 param2
str2int int2 param3
str2int int3 param4
str2int int4 param5
str2int int5 param6
if (int1=1)&(int2=2)&(int3=3)&(int4=4)&(int5=5) then
	messagebox 'command line parameters check ok!' 'test'
	exit
endif

;setup area
WorkDir=param5
COM=param3
Baud=param4

setdir WorkDir
strTemp=""
strconcat strTemp '/C='
strconcat strTemp COM
strconcat strTemp ' /BAUD='
strconcat strTemp Baud
connect strTemp
if result!=2 then
	messagebox 'Failed to connect to COM port.' 'Error'
	goto eof
endif
fileopen fhandle param2 0
if fhandle=-1 then
	strTemp="Failed to read file "
	strconcat strTemp param2
	strconcat strTemp "."
	messagebox strTemp "Error"
	goto eof
endif

timeout=5
mtimeout=0
logopen param6 0 0 1
while 1
	filereadln fhandle strLine
	if result=1 goto eof
	sendln strLine
	wait "[done]"#10"> "
	mpause 10
	if result=0 then
		logclose
		fileclose fhandle
		filedelete strTemp
		goto eof
	endif
endwhile
logclose
fileclose fhandle

:eof
closett
end
复制代码