|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题' M) K+ J# u d; H/ @
程序单详见下面帖
% ]& z8 P5 L9 X( R; nhttp://postp.net/viewthread.php?tid=2432&extra=page%3D10 l9 }2 B; h, a' u
补充说明
( n6 b9 i: S8 i# ]: o) g有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
! g" f3 I4 Q; V& O+ S6 j& j! c+ P1 R' q8 |
找到下面的代码.
0 w2 @* {" v: n( x( y
7 V+ e3 Q* _' m1 j& g7 \ sfileDir = "D:\nc\" 7 E/ r8 }# H0 [( [- p7 J
' -- Prompt for a report name
?+ V# {4 ~1 `' E9 kstrReportName = AskString("请输入报表文件名")
! R6 k" q2 D- n5 T4 G" F" c& nIf Len(Trim(strReportName)) = 0 Then Exit Sub
/ o4 F' r9 ]. B9 g- d j' -- Check for EXT4 ]9 G( ^& e# ]( @! f8 C' v
If Len(strReportName) <= 5 Then9 y4 {2 |: y6 X$ Y
strReportName = strReportName & ".html"
$ A$ y- p4 }% ~6 NElse! S1 V2 m9 J/ C
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html": V8 G' J* p2 |/ B6 ^
End If
; Q8 u3 P6 @" _6 u* d
6 _# i3 U, I6 j2 A" q改为7 l6 Z- i- k3 V/ e7 u
" F- ]& y- U/ J
|
|