|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
: n. U0 i( B4 W: q1 @程序单详见下面帖- t, @" p" h2 P# I
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
0 ]# s' @6 E& r补充说明
; L0 H( I! C2 o5 s F- g) @$ e有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
! K! G/ R5 E+ p0 w* e7 S" M- ~5 O7 Q R4 ^ t
找到下面的代码.2 W2 N1 Y `, o- Q9 [
3 D' w- w" J8 c; d X | sfileDir = "D:\nc\"
+ w& t# M/ A: v* H& {8 `* F+ G* Y' -- Prompt for a report name: s, X, X. r: K1 @8 B
strReportName = AskString("请输入报表文件名") 7 M. J+ j+ Z4 e# C- F0 [ P
If Len(Trim(strReportName)) = 0 Then Exit Sub
! S3 Z, g0 P) E6 q5 a$ j1 L' -- Check for EXT
) C+ K% f! F: `- EIf Len(strReportName) <= 5 Then; `0 y) F7 x' @ P$ ^1 w4 _
strReportName = strReportName & ".html"8 a4 {* V9 F" G. u% G, p
Else$ ~7 I4 B ~7 t1 M
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
5 ~8 R/ q( X6 IEnd If
6 ^6 ]6 ^; ]& y( f! W- s, y6 k6 R T! p3 w3 z
改为8 }; c, w3 n- u1 G: C
* G9 C2 Y; u0 T5 u3 S
|
|