|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题. F% J, E, b6 c- N) L
程序单详见下面帖
/ @: ?1 }$ e! U1 j, H8 \http://postp.net/viewthread.php?tid=2432&extra=page%3D1( r6 `0 b. Q7 Q% V8 B
补充说明
. f, k( d% {; g6 `" o5 R有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.& [. F, [/ N# m6 s; Y7 H# H' ]
7 g, u- A7 v- P) h
找到下面的代码.7 g* c* U7 T) D! h7 t- B
4 N8 ^" r' H5 T% i5 D& s* o' a
sfileDir = "D:\nc\"
+ Y# s8 h: u5 j1 [: ~' -- Prompt for a report name
: t4 K4 K7 k/ @strReportName = AskString("请输入报表文件名")
; f+ P" v' J+ w* AIf Len(Trim(strReportName)) = 0 Then Exit Sub
; ~7 G4 m+ W; a6 k# L6 [+ {# f' -- Check for EXT
. K/ H+ F; W: T- _% XIf Len(strReportName) <= 5 Then
1 ]8 |8 G/ w+ V2 L strReportName = strReportName & ".html"
* Q* h2 f/ v, R( v8 uElse, u$ I" `5 z' h0 U
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"1 c7 c; H; R8 v& p# H9 @- ^
End If
+ N6 \* [. Y. J6 E0 h/ W9 n, b
% K5 l2 [$ Q0 W& D- L" `$ q, Y改为/ k3 v1 D" j2 J! n6 ^1 ]) \
6 f1 x y' W) a6 Q& [4 @* w |
|