|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
8 c+ ]6 y& b% Z- T& N: Z* }) ]程序单详见下面帖
0 Z8 {* I) }+ chttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
2 [) @% q3 C6 t1 P补充说明
5 G% v6 Z' k8 u5 Q# ~6 d$ O. J有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.! l! w* L( y; G/ B
6 v& v; d' [9 K. s
找到下面的代码.
' a" P3 F7 P e& `7 `+ N$ u8 u4 P5 Q' i! a, t" T, ]
sfileDir = "D:\nc\"
% |( V5 o6 B6 c5 q0 b' -- Prompt for a report name
- g! M% C) U1 y0 V9 r" U+ ?7 E- bstrReportName = AskString("请输入报表文件名")
2 d+ W; ~4 m3 _: Y4 ~+ ~If Len(Trim(strReportName)) = 0 Then Exit Sub
2 l& n$ [* ~6 R$ s& `0 A3 ]7 t% b' -- Check for EXT# G0 M% \7 C+ o% K" o, I4 ?
If Len(strReportName) <= 5 Then- c/ r- ^; B4 @+ z, z% e
strReportName = strReportName & ".html"
% s& ^% W8 h. H& HElse& f: f5 ?' S" t9 Q' w
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"' C, ~4 A3 V5 {# m6 R
End If* g; c S) `; w$ R6 ?
E% h; P3 R- U) A
改为" b' V+ M9 q" d/ F! u
5 l3 j# Q: w8 v* C0 [
|
|