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

hunkxia

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

shineluo

好深奥啊！！！

五两三

在Program End Sequence的最后加一个Custom Command，内容为：
. o4 i& r3 [/ `- R4 U
global ptp_file_name
set ztw "${ptp_file_name}_"
if {[file exists $ztw]} {
% \3 g2 b. l' F1 Q6 I+ C  aMOM_remove_file $ztw
; i3 [* x0 M# E1 ^  Y4 H}
' T+ f% _9 v0 J! b$ cMOM_close_output_file $ptp_file_name
file rename $ptp_file_name $ztw
9 D' z% _& S1 h8 I/ ~) E5 K% Y; Qset wtz [open $ztw r]
9 t+ l6 l% X- P9 g0 u: d$ Yset wzt [open $ptp_file_name w]
- ~% p2 R8 O* cputs $wzt "本文件共[file size $ztw]字节"
# u% X7 D6 F/ ?( I5 g+ v& N7 Bset zwt ""
while {[gets $wtz zwt] > 0 } {
$ N" ]; e: q5 V! H5 F! I' w5 }$ yputs $wzt $zwt
}
close $wtz
; V* W! R4 a2 Y9 y# C. Y8 Tclose $wzt
MOM_remove_file $ztw
2 O; }. G' K5 X0 R6 {5 iMOM_open_output_file $ptp_file_name

这样设置后，文件大小将显示在程式头。

hunkxia

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

hunkxia

效果是这样的
* K- l8 z# R7 c* W% itotal42010bit
$ G, d$ c1 u* d0 j% [0 s6 i; L0 Etotal41610bit
# n( P  I, N9 U, g2 ptotal41076bit
& S/ F. w9 r4 g, v% `( Y1 V* C- }total39506bit
total37933bit
total36311bit
total31512bit
total31112bit
1 u  T; B; r7 M; b/ b  Y. r. S+ ~total30578bit
0 a( S/ E$ f5 D# k$ stotal29008bit
1 O' V7 ]6 c: i' j. v# Ctotal27435bit
total25813bit
* \1 w* s6 w  p3 u/ A' etotal21014bit
total20616bit
total20085bit
4 ^5 H0 b3 J. v3 u/ Itotal18518bit
. O2 h0 r4 f& \# i! g7 ptotal16947bit
total15328bit
total10532bit
total10140bit
total9616bit
total8116bit
total6637bit
total5110bit
4 E8 t$ A; ^& d& u  o. D$ W# y0 \total3bit
) N9 u  D$ P/ k. j%
  [: A( ^  n9 i8 ~' r* MO200 (asfsaf)
能改成文件的总大小是多少吗？ total总数bit 谢谢了

五两三

回复 5# hunkxia

! G) P- p+ g% e( E3 y
' m- c  ~$ ?; ^/ U, I4 q5 y* H    你是说照我的方法，出来的效果是那样的么？

fyzfyz

楼上的语句错误，出来是
78910字节
: _5 m- v/ J, L( B8 Z1 c  H( y% 才对
6 Y7 I! n  M  n) f8 r. x* `复制  五两三的吧 就是对的