|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
4 {6 F5 a6 c* l& c B: b5 V程序单详见下面帖
: R" Y) g0 X% }5 d( G& b* shttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
# ]6 H6 }' A V2 |补充说明
. I- M& w/ \8 s7 j1 x3 {有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.3 l; j+ c% Q( P* f1 i8 A- U
! E1 I( X1 E/ J8 T% R6 y
找到下面的代码.: u/ Y8 n6 ]+ d& y9 D/ {1 N" ]
5 u( r6 T2 A9 t, ~7 \8 x+ c4 K& E& U sfileDir = "D:\nc\" 9 L8 H% a! }& k7 `( C5 V5 J
' -- Prompt for a report name0 H/ V4 |5 I6 `- Z
strReportName = AskString("请输入报表文件名") # v/ U, z( e4 q% v8 K( L5 e
If Len(Trim(strReportName)) = 0 Then Exit Sub& L; t7 x- x3 J9 G0 j/ \
' -- Check for EXT: o/ L4 C- {" T4 W
If Len(strReportName) <= 5 Then4 N! z5 P5 O' r9 J! T) J% j
strReportName = strReportName & ".html"' I/ j. i) c# l( n
Else% s7 t- k" y( _' V
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"% x. j3 q: t; v5 V; M' a, o; h2 i
End If% P6 |: D' H' k& I" l0 u. u; ^
5 _; E4 ?5 g3 w, q4 ]
改为
# y/ E6 P& p( `# i9 h' M) q
; {0 g8 q/ F- e, V7 y7 \ |
|