|
|
馬上注冊,結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題* M. _( m! l/ A$ _
程序單詳見下面帖. y1 k5 c; n3 ?# ~" b; Z5 q3 w$ u
http://postp.net/viewthread.php?tid=2432&extra=page%3D1/ k" \1 u/ O: S
補(bǔ)充說明
& ~/ A, h/ ?/ B有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環(huán)境不足,未能測試.# U6 T' v% p* S: u& V
; `% z. k9 V6 h& E5 [* g" J8 n
找到下面的代碼.
2 P3 G+ [9 f) |2 u& X5 ~$ X
0 T* N. m' ^. k sfileDir = "D:\nc\" ; _% E3 Z% o. _! H$ W
' -- Prompt for a report name s7 {7 Q0 I& q" ]9 C4 W9 X' U s$ U
strReportName = AskString("請輸入報(bào)表文件名") 0 h% c/ w7 T' r) ^$ {) p
If Len(Trim(strReportName)) = 0 Then Exit Sub- v" \! W- ~' T" a; `
' -- Check for EXT. |& F6 D: w/ Y( o7 ~5 m
If Len(strReportName) <= 5 Then2 x5 @+ Q! a& d% U* |
strReportName = strReportName & ".html"
- R u; u" z- p0 [, oElse
9 ?2 [, f4 L/ B If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
" } `$ E" D) h# S+ u% x* ~: C# M& dEnd If1 ]5 U- K! x3 S' G# G# m0 J. V
& t7 |( m4 B2 L+ r, t7 D改為. @$ `2 r8 b6 C( w5 P( c
1 E9 _9 I) G- p: P8 ?4 \
|
|