已有 793 次阅读| 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-5-6 01:51 , Processed in 0.025122 second(s), 14 queries , Gzip On, Redis On.