|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
8 @, u* R6 b( V" O* P8 i程序单详见下面帖
4 _- F! N* J: p% i' g! Z; |$ n) I; Whttp://postp.net/viewthread.php?tid=2432&extra=page%3D1, Z$ f3 t. N1 C7 I' f5 E
补充说明
! ~- r- t+ }# m有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
: N e1 R1 ?. f
" t! L' z# D7 s* y找到下面的代码.
* ^. N( E5 g* U( U y3 p5 S5 E
! o4 f4 X/ M/ s( z8 D. x) v+ r sfileDir = "D:\nc\" ) l+ b- G0 M3 f" r
' -- Prompt for a report name. e _ ^, m1 j3 N
strReportName = AskString("请输入报表文件名")
5 w- u% q& H0 ?% E! @) CIf Len(Trim(strReportName)) = 0 Then Exit Sub3 F- J) {: E* `1 z9 E: h
' -- Check for EXT: m) E; s2 b0 _: ^& P1 `; U
If Len(strReportName) <= 5 Then1 P+ t7 O, v( T. l3 I
strReportName = strReportName & ".html"$ f' \2 \/ n! j- y* _) r
Else
4 y3 U1 N# C) }' @- Q If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"- V' o; S) A* {; ]; q
End If e0 X& O G% x' D" m
: k! V( o! E! g) o1 Q0 S2 G* R! K
改为
, i' @/ \8 i! R* x; y" r: i; c
2 G6 ?1 l9 Y6 O) D |
|