|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题( Z5 v/ b! M5 i2 w" M/ Y0 I
程序单详见下面帖
% s/ c+ p/ Y& `4 fhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
4 l1 }& p8 H! f0 d补充说明
5 e/ w6 }0 z Y' P O$ g6 K有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.3 P4 J; a- J7 g
( T4 G v, x p. C& z, I找到下面的代码.% Z1 B+ D6 E: s
& U) C( [& H3 f6 k$ S2 r( H+ ~9 A& S sfileDir = "D:\nc\"
# x+ E8 ]9 A1 L8 e, W4 C9 c* l0 i1 x' -- Prompt for a report name. @- m& K' B3 b& R4 |
strReportName = AskString("请输入报表文件名") 5 l4 `* v% B/ f) U$ l4 t. C
If Len(Trim(strReportName)) = 0 Then Exit Sub3 \4 n! H0 V5 @: ]
' -- Check for EXT
" x# c0 c% H' xIf Len(strReportName) <= 5 Then2 h' c O8 G: I0 m
strReportName = strReportName & ".html"
! N9 F s2 G0 h+ @2 P" ?* b, dElse
! z( |6 p* @: U6 g. Q# y! Q6 l' o If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"- B# n9 \) b7 b7 a. P
End If
0 P% [$ f' R6 a7 J5 z+ t7 P2 _' e; X
改为- C- @7 ]2 M# |2 H
4 a1 L9 v* f# H, [2 t |
|