|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
5 R' u4 ^' ]+ r- f+ U程序单详见下面帖, J% X9 I5 z: G6 A s
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
% b, Z b& X- l* H3 ?0 U" n U补充说明
; C f. K1 w0 u& O' r+ J+ n有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.# q \/ Q7 i. R, c' v. Y$ l
$ K+ G7 M. x. F( t$ T( m找到下面的代码.
& X5 U0 x7 n" j
6 K7 w2 I! ?& g/ k sfileDir = "D:\nc\"
6 M: B4 T6 n0 s# W9 e& ]" E* n( d' -- Prompt for a report name6 z- z8 q# N( A+ z' l- v7 z3 `( v
strReportName = AskString("请输入报表文件名") ( V6 @7 \' O7 A O2 f5 N6 U
If Len(Trim(strReportName)) = 0 Then Exit Sub' S8 i% F$ R% f5 g
' -- Check for EXT) Z+ f9 B0 n( L0 S% _) r7 p D
If Len(strReportName) <= 5 Then t8 v$ `5 } [/ z6 i- J
strReportName = strReportName & ".html"
" c; C( t/ f4 h, }9 uElse' g+ Y# i1 n( ~9 Y, ]- q3 B- K
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"' `9 o7 V6 K$ m* b4 {8 i, `
End If
" O1 N8 {( u) S3 e7 _" v" o# m
4 i+ m/ p* `/ X/ k改为4 O: c$ S# N$ o6 R
8 ]$ q& N x w' h* o! |4 D
|
|