|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题; @ Z( V# @5 N" v0 H. S
程序单详见下面帖
3 J( @0 R! y+ dhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1! y! L1 }4 z5 T' F
补充说明# @0 g* [. x6 ?0 V. ?! c" u
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
+ ~: f! R+ f; F, u
0 ~8 W+ X6 \5 ]找到下面的代码. u, a; ~& M1 K) G* F" E4 A* a
$ B: s2 l6 m5 I7 `1 C5 { sfileDir = "D:\nc\"
5 n0 m3 d6 F# h6 A* v% H9 @' -- Prompt for a report name
* ]3 C' f" D( L' m: ]& q$ `strReportName = AskString("请输入报表文件名")
/ q0 J+ v0 N! L4 ?5 |6 bIf Len(Trim(strReportName)) = 0 Then Exit Sub
$ U: v, e( o j7 O' -- Check for EXT, m- z3 C( T+ e
If Len(strReportName) <= 5 Then1 n7 v1 r5 {& o9 m7 o- i, X
strReportName = strReportName & ".html"
' [8 R m7 ?! ^Else9 S! C6 j9 y3 [/ G/ w! n& y: G
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
+ F- W, C8 R0 B' i2 e0 t# c8 EEnd If
$ q4 B6 w# D) s9 j: \) }5 u
, I" J' t* n- R8 S4 O9 S k! `7 K改为# @- U0 ~0 d! |; ~5 A
k) l/ [) c1 W$ [; W2 D
|
|