已有 783 次阅读| 2010-11-24 17:26 |个人分类:tcl
while {[set res [gets $infile line]] >= 0 } { incr number; if(res >0 ){ continue } puts "line$number:\"$line\""; }
评论
查看 »
小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网 ( 京ICP备:10050787号 京公网安备:11010502037710 )
GMT+8, 2024-4-18 04:41 , Processed in 0.021762 second(s), 14 queries , Gzip On, Redis On.