|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
, [% A2 |1 c! m3 Y6 a程序单详见下面帖
$ R( K! \, @. I& y! R. Jhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
5 ^( f8 {4 w1 ~- \5 Z* G! Q补充说明
0 H7 z( Y$ V* ^6 {) T5 z1 z有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
+ ?7 p, u& ~( f. D, u; H! P" l4 O- m2 o$ `$ d
找到下面的代码.3 X6 }$ F% I( R$ P- E
3 r- @: \- n4 e- F) h sfileDir = "D:\nc\" ) ~8 P4 |( q8 D
' -- Prompt for a report name
9 W" E( }4 [9 B* Y/ W* wstrReportName = AskString("请输入报表文件名")
1 R( \: i( q) c" Q5 M. ZIf Len(Trim(strReportName)) = 0 Then Exit Sub
# f" q% [3 |+ G) p( E' -- Check for EXT
8 R4 E K* {% v5 D9 r* f, v2 B; @If Len(strReportName) <= 5 Then
" D7 z$ G6 V" I/ j& ~. n% X strReportName = strReportName & ".html"& ?$ F7 B7 i) W8 `8 c y6 {+ I5 x' v
Else" ~# e" g3 M9 y+ A0 m
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
7 g X$ S5 T) v1 y7 VEnd If
. c: K& v" A/ J! O
* y8 U7 f ?; a1 L9 \改为
0 [8 T+ F) Y$ u; S1 I4 m
I) v! z1 j# _9 l$ K3 ? |
|