|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题( y9 N/ N; K, s
程序单详见下面帖1 q5 q+ f3 |9 o2 {( v
http://postp.net/viewthread.php?tid=2432&extra=page%3D1& k; ~! o8 g r4 f9 E6 R R; A
补充说明
2 R2 ]: L2 K5 g2 w+ A2 o$ O" v有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.% g1 x2 m% z6 O
0 w' c% h+ Q/ S找到下面的代码.
* A- i9 g- p" g3 K2 R8 b1 b% H, J/ y
sfileDir = "D:\nc\"
- I/ `, M# y5 x& J( |' -- Prompt for a report name
T! I5 @. ]& A3 r LstrReportName = AskString("请输入报表文件名") ! f! S4 o( x0 j0 x
If Len(Trim(strReportName)) = 0 Then Exit Sub
' |% W& h0 K2 W6 {' -- Check for EXT
% R0 m8 s" j4 P2 J! X7 D5 mIf Len(strReportName) <= 5 Then }! v' {" W) ^2 T% i: D
strReportName = strReportName & ".html"
1 f4 q9 A6 {* j) y) H! ~! fElse
( t/ { o8 [8 k- A If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"9 ~* Z- [3 Q5 q" c& n$ o( ]: `, }- T
End If
4 v9 [; y; x" Z0 g6 `$ E: J: P; H+ ?
改为
; z' A- L1 { ?" @& z: O9 ]6 ^ g5 z
' g0 }7 [3 d8 t/ B: f |
|