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

hunkxia

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

shineluo

好深奥啊！！！

五两三

在Program End Sequence的最后加一个Custom Command，内容为：
6 L4 y* F% ^" b
4 s$ a$ @1 W  O, c$ kglobal ptp_file_name
set ztw "${ptp_file_name}_"
if {[file exists $ztw]} {
' p, Q6 w  y  E1 U: DMOM_remove_file $ztw
. U: Y* }9 J- u: T}
MOM_close_output_file $ptp_file_name
  k+ D4 S" @) T# h- p8 V. a4 afile rename $ptp_file_name $ztw
set wtz [open $ztw r]
; Y5 M! ]" T% t$ Tset wzt [open $ptp_file_name w]
+ O9 V5 j& j! b) A3 p- zputs $wzt "本文件共[file size $ztw]字节"
set zwt ""
& D6 R. {9 Z9 q2 q6 g, \while {[gets $wtz zwt] > 0 } {
+ ~# B# c" h5 S& cputs $wzt $zwt
% r8 v. @/ h/ {! h, ^' {}
) w1 E: J' z; u4 e* c4 D2 U2 x7 I& Vclose $wtz
close $wzt
! R' c! ^6 Y! ]: XMOM_remove_file $ztw
: r6 @! }0 Z, o5 J) pMOM_open_output_file $ptp_file_name
: A5 w7 g, d8 a! c: m
这样设置后，文件大小将显示在程式头。

hunkxia

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

hunkxia

效果是这样的
8 _" ^" W) f" w9 w3 a1 ptotal42010bit
total41610bit
& W' Z# q) W. w+ d9 Ztotal41076bit
( [! s7 r6 y$ R8 [/ Mtotal39506bit
total37933bit
total36311bit
- M; w. ?/ _0 z" Ttotal31512bit
total31112bit
: L6 Y6 s7 k/ G0 w! m/ u& rtotal30578bit
total29008bit
total27435bit
( x7 M2 n9 M% E$ F$ T7 q. htotal25813bit
; }# u1 Z. w8 C$ @$ J0 s8 h7 Ftotal21014bit
+ F4 h+ c, E# H1 m7 ]total20616bit
. \1 m& ^7 w( v( Wtotal20085bit
total18518bit
* U5 j# M0 g  x1 R: u5 j7 Itotal16947bit
total15328bit
- W% F' e7 E7 M* T4 E* p7 ?! P2 ctotal10532bit
) T# \5 ?$ F9 \* }3 M9 @total10140bit
total9616bit
total8116bit
total6637bit
8 w9 Z& W1 i, d/ Etotal5110bit
( k4 D: `2 F2 _9 Z' F" vtotal3bit
, k$ [/ W- T9 @$ i' U+ V7 C%
O200 (asfsaf)
' F- P7 a1 o6 I7 U' D, c+ r能改成文件的总大小是多少吗？ total总数bit 谢谢了

五两三

回复 5# hunkxia

. o5 I9 M/ I5 ~8 r% E1 f
( `4 ]1 t1 V2 ?) {9 I* F    你是说照我的方法，出来的效果是那样的么？

fyzfyz

楼上的语句错误，出来是
. ?/ f1 K1 F, D7 c% B! i78910字节
% 才对
复制  五两三的吧 就是对的