|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
, v9 z9 c* Z5 a3 d程序单详见下面帖8 b) b7 Q1 Y# V
http://postp.net/viewthread.php?tid=2432&extra=page%3D1% Q7 \, T( N9 ~2 U# z4 n
补充说明4 c' b# X1 m& [+ u8 o
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
5 |6 e1 u1 g3 T- |: s' O/ d
; h, ?2 @0 z- O- x找到下面的代码.+ f: T( y$ W* Z5 d. _
# b! p% p/ b! F sfileDir = "D:\nc\" * c% {/ z. I* ^" g6 j; R& k; |2 n. c6 u
' -- Prompt for a report name
2 H6 q1 e0 U! M# v) l' MstrReportName = AskString("请输入报表文件名")
3 w5 v! U) \2 _If Len(Trim(strReportName)) = 0 Then Exit Sub
9 A6 @! e# Y) G, s5 y' -- Check for EXT
+ `) n6 Z+ _& `If Len(strReportName) <= 5 Then
% }* }: I% F0 F& f, n) z strReportName = strReportName & ".html"/ V' c$ C# U) L- h0 e0 y0 S
Else7 h; |8 p6 Q* y. |; V2 w8 _
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html": z+ W& Y3 v/ |2 `3 ~6 s; a/ b( z0 y
End If) f; i& `0 V7 g: r
) Q0 _6 a: r4 x, }8 X* v
改为
* k! G1 C; l9 G: {/ z- n4 S) z
2 O: n& Z: y2 [! }9 H% ]3 B' @ |
|