|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题 O4 [% M5 O* k0 e) h
程序单详见下面帖
7 ^! X' Y0 P! {3 Y$ R6 `http://postp.net/viewthread.php?tid=2432&extra=page%3D1
9 C7 K4 b; n, T补充说明( ?2 z1 x/ M6 w' R1 g0 _7 q1 U
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
+ l) n9 C' O8 f I8 B' q& L1 {( V) Y! @0 ?
找到下面的代码.
+ q, i. _: h! x5 ^- r2 f
0 t. C0 \) E+ L) f+ s sfileDir = "D:\nc\" . O1 [% _% ] K6 ?; [, k" G! D5 N
' -- Prompt for a report name) I' O T" l& V3 [& r* o" t% o
strReportName = AskString("请输入报表文件名") 9 q3 s( E( V5 U8 x/ U( b, b
If Len(Trim(strReportName)) = 0 Then Exit Sub
7 U* l6 e) l' Q8 X' -- Check for EXT
" @0 f- k [4 b; S2 [If Len(strReportName) <= 5 Then
/ {% I t, Y7 @9 R strReportName = strReportName & ".html"- _7 q t# ^$ r$ l
Else
6 t' T7 e* \4 M; ^6 k U If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"- n5 M' W' y& [# Q
End If
9 l! C, i) ^) r8 y9 i H
- z) E3 I# l8 ?. I改为
) d. g6 C1 J) Q7 F c6 {
9 m7 d* W: c3 u+ {5 Z |
|