|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
8 k7 B, }$ e" P& o; l程序单详见下面帖
! N6 X( m) {0 n: u7 o9 T8 E+ r1 Ghttp://postp.net/viewthread.php?tid=2432&extra=page%3D17 g- p; T8 v5 m' H. N3 I3 C% q
补充说明& I/ l2 y' p: S% `' j: Y
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.$ E/ H3 @( i/ g9 M6 b# r! N
6 ?; A. L. q% f" W x找到下面的代码.
! a: c: F: Q2 q9 ]
, b l, w+ O3 K: `7 C+ v; F sfileDir = "D:\nc\" 5 r, u; H2 q. v& F1 n7 n X
' -- Prompt for a report name1 C- E8 O( t9 o
strReportName = AskString("请输入报表文件名") : j2 T! x" T" R5 [
If Len(Trim(strReportName)) = 0 Then Exit Sub
/ f4 ?7 m* S- L) d' -- Check for EXT* y( }+ B! @ h1 Q5 d7 z' W
If Len(strReportName) <= 5 Then/ M& a9 Q5 Z5 A6 x* K/ H# J
strReportName = strReportName & ".html"
" \9 [6 |0 Y- R# k: w8 z* ]Else
% X1 n2 W7 \* J9 J If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"$ @; e" R+ O4 `) } j. f3 M
End If
: t- W" z4 N5 v$ J
# {( t( A/ v; U8 p+ x) q( K改为
+ f# [: ~3 g, M; d# E
; g# `! i J2 e, k5 p |
|