后处理怎样编写输出nc文件大小的tcl程序？

hunkxia

求教，后处理怎样编写输出nc文件大小的tcl程序？谢谢

shineluo

好深奥啊！！！

五两三

在Program End Sequence的最后加一个Custom Command，内容为：

global ptp_file_name
8 z3 u0 h, G. d/ f8 uset ztw "${ptp_file_name}_"
if {[file exists $ztw]} {
MOM_remove_file $ztw
, S& ?  Q( R7 ]& B" j" }* c4 W}
3 `8 I* v+ Y  b4 {, i" pMOM_close_output_file $ptp_file_name
4 _7 P: d% {# R8 S+ _- w, S0 Tfile rename $ptp_file_name $ztw
3 P2 {% M* v: L8 U. kset wtz [open $ztw r]
set wzt [open $ptp_file_name w]
2 r# J+ C( E0 E% B3 e, T$ e- Cputs $wzt "本文件共[file size $ztw]字节"
# Y( ]+ P, e- }, Yset zwt ""
- b, `3 c, t  Q* i( pwhile {[gets $wtz zwt] > 0 } {
puts $wzt $zwt
# s7 `3 k& x9 r, J9 `0 `}
- E6 J+ s" N+ }5 ?. qclose $wtz
close $wzt
MOM_remove_file $ztw
MOM_open_output_file $ptp_file_name
- K+ a) o  j! U4 ^. k+ H
  a+ X" f/ R  t) x  ]% K3 B6 _这样设置后，文件大小将显示在程式头。

hunkxia

非常感谢楼上回复，我试一下先。

hunkxia

效果是这样的
total42010bit
total41610bit
7 L. b9 s. n: I% C- K& Z6 S- Gtotal41076bit
# ?, Y3 W8 K$ E/ K) i, qtotal39506bit
total37933bit
; w5 j0 [: x! s4 Wtotal36311bit
, w0 S+ O8 z4 @( s7 {total31512bit
- Q' B: ~$ _* s1 Ztotal31112bit
5 X" b0 @: ~; L( }total30578bit
+ e4 g1 ^% @7 i8 b! p% |7 ytotal29008bit
total27435bit
2 z0 j8 k- l1 u$ Atotal25813bit
total21014bit
total20616bit
3 D* K, r: W: u% d% rtotal20085bit
total18518bit
total16947bit
) q# T! N5 P. `/ `6 \9 `/ ?total15328bit
total10532bit
total10140bit
total9616bit
total8116bit
3 m2 N, e  j- [total6637bit
8 o8 q( h- a, x5 ltotal5110bit
9 e7 w; d% z+ \) d' B1 ntotal3bit
( Z& P- Q0 s  o+ W& A1 E4 y%
O200 (asfsaf)
" M. F! L0 U& `! s, ]- ?能改成文件的总大小是多少吗？ total总数bit 谢谢了

五两三

回复 5# hunkxia
% P2 o( g0 c, F1 `) \" x

* o+ n; S6 e9 Z8 a  j- J    你是说照我的方法，出来的效果是那样的么？

fyzfyz

楼上的语句错误，出来是
78910字节
/ _4 j; {: X( g9 A4 d2 ]% 才对
# s+ x: t9 _) r- {3 L9 m8 Z复制  五两三的吧 就是对的