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

hunkxia

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

shineluo

好深奥啊！！！

五两三

在Program End Sequence的最后加一个Custom Command，内容为：
$ h( q! L3 T: b2 x2 m# S
5 |3 D# V' H$ Y9 cglobal ptp_file_name
set ztw "${ptp_file_name}_"
1 L4 O9 l/ Y% m) Hif {[file exists $ztw]} {
MOM_remove_file $ztw
}
- V% i" O- `* L1 ~# E0 EMOM_close_output_file $ptp_file_name
& b" A, S  o1 r( B7 q5 d! Ufile rename $ptp_file_name $ztw
2 z( `$ A$ N, Q/ oset wtz [open $ztw r]
set wzt [open $ptp_file_name w]
puts $wzt "本文件共[file size $ztw]字节"
& z: k: p* K( d( v7 _" ~set zwt ""
while {[gets $wtz zwt] > 0 } {
! k. i- M0 z7 a$ ~/ cputs $wzt $zwt
1 w& Z/ o! T5 s( p! w}
" w' ?7 L0 k- i8 p) u# `close $wtz
close $wzt
% y; n5 k: p) o+ r+ `MOM_remove_file $ztw
MOM_open_output_file $ptp_file_name

# W# A7 a/ ]' u8 d/ r这样设置后，文件大小将显示在程式头。

hunkxia

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

hunkxia

效果是这样的
+ ~2 r/ R1 f2 @: H9 z$ i# }total42010bit
total41610bit
- W9 y. I- g( n  ?" etotal41076bit
% J/ `. l( R% Gtotal39506bit
total37933bit
total36311bit
total31512bit
; I+ ~6 r4 C9 a" T# L' m% Ftotal31112bit
total30578bit
" s' @& z+ T% }  i" Ptotal29008bit
. X: O8 s5 x$ ~8 Ttotal27435bit
total25813bit
$ M7 a0 t7 m3 {. wtotal21014bit
total20616bit
& u5 l+ E' ?, I% m2 q6 X9 {+ r; ftotal20085bit
total18518bit
" q. B, _; b# S! e8 Xtotal16947bit
total15328bit
total10532bit
6 B7 w# }/ F- u) Wtotal10140bit
total9616bit
total8116bit
) B+ _5 O1 s8 R: R* {total6637bit
0 }$ P5 \8 ^5 d" J6 Vtotal5110bit
total3bit
' m8 V- I. q. b, A" f% h. q. ^%
O200 (asfsaf)
能改成文件的总大小是多少吗？ total总数bit 谢谢了

五两三

回复 5# hunkxia


    你是说照我的方法，出来的效果是那样的么？

fyzfyz

楼上的语句错误，出来是
7 f8 s1 g0 S* U78910字节
% 才对
复制  五两三的吧 就是对的