|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
2 [8 A1 t. X! _1 ~程序单详见下面帖2 C6 k/ v% d( U( L; q
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
7 m& n2 J2 X/ @3 D1 }; h补充说明" G) d: J, k9 _$ ^
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.6 E- Y; d, _( o6 W# C
. j% p# i) [5 Q1 L# l/ G( L6 m9 e
找到下面的代码.! F* ^5 K4 o* } y8 ?8 q- v( q
4 r- L$ O1 q+ V0 ?$ }
sfileDir = "D:\nc\"
1 b/ E. _2 y. L A3 |/ ~# s' -- Prompt for a report name
" E8 N6 M9 g w8 vstrReportName = AskString("请输入报表文件名")
4 {8 C/ F! F8 z1 P0 O" }# JIf Len(Trim(strReportName)) = 0 Then Exit Sub
8 Z& |5 W) X) a1 V' M" r. }' -- Check for EXT; A" Q3 U3 V. w& L0 h& F/ t$ D* h6 m/ [
If Len(strReportName) <= 5 Then
" Y. Y0 C& I. F; A5 t% ] strReportName = strReportName & ".html"
( b6 m9 g) s$ w- D1 x1 NElse
7 J' b% b' M& Q6 m% U+ q If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
: ^1 J; a0 l8 K( f. K9 MEnd If( _" q; B( @3 D7 `% f" E7 V
, i! e# Q2 c% M4 A; ^/ f1 t. |- t
改为
8 w% c) D3 O" v8 S5 m/ z1 Z8 a5 U
0 b9 W9 Y8 C, A8 ^; } |
|