|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题5 }' A, w% g, I+ l
程序单详见下面帖
+ A- K6 h+ w3 I* y1 m; c' Y# Ohttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
( B$ i3 O, E9 \; t$ x8 b补充说明8 D. H6 R5 l) J4 a7 m. n
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.- A+ k( W6 X) F E* b
7 A. y4 ]; f0 T3 I l# _ B找到下面的代码.9 j3 u9 K' Q, G4 e, F
a! }' _9 \* J/ A. S4 W* A7 q# G
sfileDir = "D:\nc\" 3 h" b% b8 o8 h% P: b/ ]& F6 _2 B W
' -- Prompt for a report name
8 o% b. C7 ^9 T: `5 f+ astrReportName = AskString("请输入报表文件名") / x1 S5 p# H0 {5 A8 @
If Len(Trim(strReportName)) = 0 Then Exit Sub1 P |& I8 S* w$ o2 c
' -- Check for EXT3 Z, L& o! c4 J* M0 n
If Len(strReportName) <= 5 Then, ^* u7 G6 O- @
strReportName = strReportName & ".html"
; x8 G( l" Z$ X) [2 @Else- A# L$ L! O1 A( N5 ~
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html" |' P9 i5 w4 U4 C' a* I
End If& ]- h5 t3 F* B# | Y$ l
0 X0 r; p3 w! C( W改为- \% Z' c, S% m2 p3 B5 @
3 i* a2 j/ K! O* V4 G* F% r2 ~ |
|