TCL语法错误

wubin0795 · 发表于 2010-12-31 05:17

帮看下这是程式开头显示加工时间但加入到程式尾后出现语法错误报警  那位高手帮我看下有什么问题
         在此谢了

global ptp_file_name
set tmp_file_name "${ptp_file_name}_"
if {[file exists $tmp_file_name]} {

      MOM_Rremove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $tmp_file_name w]
global mom_machine_time
puts $ofile "(CYCLE TIME = [format "%.2f" $mom_machine_time] MIN.)" set buf ""
while { [gets $ifile buf] > 0 } {
puts $ofile $buf
}
close $ifile
close $ofile
MOM_remove_file_$tmp_file_name
MOM_open_output_file $ptp_file_name

wubin0795 · 发表于 2010-12-31 14:41

怎么没人回答？嗨难道这里面没有高手吗？顶起啊

wubin0795 · 发表于 2010-12-31 14:41

我在线等版主回答、

buyaoxin · 发表于 2010-12-31 19:31

看上去没什么错误！！！

buyaoxin · 发表于 2010-12-31 19:35

这个语句是重写程序头！
我来帮你试试看!

buyaoxin · 发表于 2010-12-31 19:40

本帖最后由 buyaoxin 于 2010-12-31 19:41 编辑

没事啊！！自己加了点内容！呵呵呵呵！！！11111

wubin0795 · 发表于 2011-1-1 03:18

加入后出现。是怎么回事？

wubin0795 · 发表于 2011-1-1 03:19

怎么弄的，我加入后处理时出现1770002错误

wubin0795 · 发表于 2011-1-1 16:00

晕了，怎么还没人回答我呢？

wubin0795 · 发表于 2011-1-2 13:24

我丢你这个论坛难道没人了？知道怎么搞都不说下？

		自动登录	找回密码
密码			注册

[疑难] TCL语法错误

相关帖子