|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题; W7 i' u* ? A
程序单详见下面帖. s3 A" V0 S& n
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
2 h( B- ]4 h! N; H补充说明
J( t' X8 D, Q5 E7 C, x有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
8 z1 o# H% _/ q5 z/ T: l" T5 \6 [9 i
找到下面的代码.
: h) ?) U; e9 s H- F6 m% g4 k6 ]0 m( X6 F" Z& x
sfileDir = "D:\nc\" # u0 x Z' }5 ?) p6 O0 e, L: W! _
' -- Prompt for a report name* K, @7 K$ _# U- _$ f6 X2 q
strReportName = AskString("请输入报表文件名")
% |1 ^, Z+ P, a, k4 f: O. g. RIf Len(Trim(strReportName)) = 0 Then Exit Sub1 N+ P. s5 M- Z' `& g7 u/ |% h
' -- Check for EXT
- [9 ?3 c# c V3 g9 |If Len(strReportName) <= 5 Then {" h4 f" z! ~# D7 Y/ t6 n% r8 b9 [) B
strReportName = strReportName & ".html"# t' j" X: ^( M E+ N# |
Else% l/ x' M! B% Y1 s( e
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"! e& S% f' ^9 N! X0 Y; v
End If
' _9 O& |7 L7 d6 L( e1 P6 b" s3 t5 n7 }
改为
0 ~2 I+ w' r0 M& x& K
4 O$ w% _" n- M9 N6 }, M0 L& A |
|