|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
1 F1 J4 g4 {" m程序单详见下面帖0 V, m2 r+ C7 F
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
. Q' C$ o8 E+ o2 v( `2 `补充说明
3 L( m6 h8 c6 O8 d( v0 L有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.6 n( \; `( _: K/ \$ t; a8 { @7 K, k, }
$ I5 c/ \8 z+ a; e. w, P找到下面的代码." h$ P% ]6 w* l
+ w" v1 _4 O+ Y4 H* ]1 i6 J9 ]
sfileDir = "D:\nc\"
, |# m* W# T2 @! J4 s3 N+ F" @' -- Prompt for a report name
0 P/ R$ ]7 ]# o! PstrReportName = AskString("请输入报表文件名")
" [# k% J" r' u8 w. V9 G1 @If Len(Trim(strReportName)) = 0 Then Exit Sub
/ P2 V( G3 B" j! Z$ z) a' -- Check for EXT
: T7 M3 l0 D# \& t' v; q( iIf Len(strReportName) <= 5 Then
0 f+ y+ \" G3 N! o strReportName = strReportName & ".html"
, I" o9 x. _! C R! x- zElse
1 B' T3 L7 S8 `: {9 k If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
$ D# \. K# q3 hEnd If9 V* d: H7 b3 Q# a [) |
\! f0 a; I2 |# G2 w
改为
5 t4 m9 } [4 [) W. \
! l+ ]) w3 W6 A; R# C |
|