|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
; b* @3 R( _! H程序单详见下面帖
. u. G; \( Q0 [http://postp.net/viewthread.php?tid=2432&extra=page%3D1( Y2 s* J# N9 @# n
补充说明' a- V0 \% A5 E" F+ r3 H, z% c% e
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
8 ~# B" z3 v/ `( k B9 c# F/ U; z+ u, p/ k+ J
找到下面的代码.
/ v. A, M6 o' a) J1 f8 {) v7 {" L$ V, W6 ~% I" ?# y' n
sfileDir = "D:\nc\"
1 B. E7 S% C# B- Q' -- Prompt for a report name" b1 H3 f& l. I; _7 |
strReportName = AskString("请输入报表文件名") d: [" J9 F/ t& W' D9 _
If Len(Trim(strReportName)) = 0 Then Exit Sub
1 l H( u8 n j$ J; E' -- Check for EXT' u k# E. i" L" w+ S' n9 C! K
If Len(strReportName) <= 5 Then
7 M$ R$ [; X; E$ E+ \7 M strReportName = strReportName & ".html", f5 Z) M. Y9 P3 e) Y( d0 B
Else
! W4 V9 {5 M, [: Y If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"0 _3 y2 o! c u9 R( o' B
End If
+ X9 f+ k9 r& j2 }, j2 l5 J3 t+ l/ c6 x% o$ l
改为
' x6 h6 ~" r% H' O/ s; |) N
% k+ }$ h B$ C+ i. D2 R& u, i |
|