|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题: m6 I; |0 V3 g
程序单详见下面帖) |% O' G! e3 M3 }6 y
http://postp.net/viewthread.php?tid=2432&extra=page%3D13 \, @4 I9 Z3 N0 @
补充说明
% u0 P% m! z7 Y/ s有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.& _9 x. Y& y7 }4 T
) D7 |) F& x: W ], h
找到下面的代码.* \0 T2 ]% k0 X
( e* H& r) Y1 }4 w2 Z6 T
sfileDir = "D:\nc\" ' C1 H# Y" b2 S& J7 ?
' -- Prompt for a report name
" h" T; V5 `- X% l; ^: ^strReportName = AskString("请输入报表文件名")
- x+ L/ A V& l3 x( x$ fIf Len(Trim(strReportName)) = 0 Then Exit Sub2 Q) z" C+ A y( B
' -- Check for EXT; v5 o* ~2 e7 _
If Len(strReportName) <= 5 Then
1 k9 G# H/ A7 v- v( ~4 f% I strReportName = strReportName & ".html"
* i! s K! X0 b \* [8 f( DElse
& G ]) f9 f& S* \+ o& Q If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
* X G/ ]% C# c! P2 nEnd If1 S* y( t9 g/ I1 M+ O. E) {8 Y
* \; r& r9 a. x- A6 ^3 G& T" {# B改为) O$ T- R- H8 `# l: e
. T1 T; s" }( ]7 E0 X, X& | |
|