|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题8 w) ]/ w& B; V) T/ O$ W0 I) a6 ^7 X
程序单详见下面帖
1 L5 o- g- |5 k! @http://postp.net/viewthread.php?tid=2432&extra=page%3D1+ g5 z1 y9 p4 ~; l' ?6 W! K
补充说明
; Z9 W* F( W' W& c, v5 e7 G0 y有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.) p" Y0 v" Q6 V7 q5 c8 `6 F
- q- D2 o. R0 e8 [0 M找到下面的代码.6 \# M- B" b! ]- l
* _) E+ @' u, I7 t" m8 E
sfileDir = "D:\nc\"
- r# A8 X5 Q4 a" `# r$ u) G4 v' -- Prompt for a report name/ r2 v3 h. _1 |. Q' @1 C( \
strReportName = AskString("请输入报表文件名")
, g) x! u5 A6 ^) EIf Len(Trim(strReportName)) = 0 Then Exit Sub
+ {6 ~6 {) E8 y0 P/ w' -- Check for EXT
- A5 `" k* y; L' W7 HIf Len(strReportName) <= 5 Then, l- {: p! X/ b z
strReportName = strReportName & ".html"
/ M1 W M( z; f6 E* i1 jElse; w. L- D2 ^. d. R% e, u0 z/ _
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
2 L& W, t: D) \) c, ~End If6 g8 U% e. l+ ]" S6 e2 Y+ k
3 C$ D( c ^. H7 o; Y' E' X改为
$ l6 y; G4 A& x& J @
5 O0 a) _# h" f3 n1 ~3 d3 { |
|