|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题' }% D. {3 I. K
程序单详见下面帖9 M( i: }0 {+ B. w6 }
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
; v, d% i; P, k: s补充说明
" H3 Z c, ~* c有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.9 |' j0 T2 k3 L7 D6 [% f
2 F6 |$ q+ [. w5 ~9 N' w找到下面的代码.
0 I1 @6 J( [2 X+ E" [: v
' R0 w1 k* K" w$ v/ f sfileDir = "D:\nc\" 0 e/ L( C+ @8 B0 P
' -- Prompt for a report name8 b h# g2 }. ~0 g
strReportName = AskString("请输入报表文件名")
% i* @1 A% c$ kIf Len(Trim(strReportName)) = 0 Then Exit Sub0 p5 u& w% a( ^- B" d- D
' -- Check for EXT
2 ?$ E- Y: E1 t3 s1 k5 t0 NIf Len(strReportName) <= 5 Then5 R5 Q& x; t, s9 L
strReportName = strReportName & ".html"
' T' m5 k0 h: ^; s5 c4 HElse
; w* k; z$ H) o' _. Y2 h If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"( s% r0 z0 m" T/ H! m
End If7 x1 E+ S% h- s4 t: e$ ^# R
+ u0 d; r6 t3 F1 G改为8 W# ^1 G9 p! B: u) |
# p$ b9 q0 E/ n% E4 _2 Z$ d |
|