|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题% @% ]4 u' R4 @0 e/ K
程序单详见下面帖
$ w/ q' F8 C1 ]) }9 b" Thttp://postp.net/viewthread.php?tid=2432&extra=page%3D18 w; I- ]" `4 B0 Q+ l
补充说明
3 C; v% `* c( M' _9 T% h& `有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试. O3 Q5 h3 E2 D7 T# u: {) s
" h" H Y1 f4 n3 x8 w2 k9 c找到下面的代码.
8 f0 j: E5 ^2 Y5 D6 ?7 x7 h
- L8 z! I$ A3 _ sfileDir = "D:\nc\" 2 J2 F; ?# n, R
' -- Prompt for a report name) g1 a) _1 g3 V
strReportName = AskString("请输入报表文件名") 4 D# Q; i% _6 B- O$ b
If Len(Trim(strReportName)) = 0 Then Exit Sub( s1 X& m" d9 |9 q
' -- Check for EXT- R- g3 P& v) I! m5 p+ o- J8 o
If Len(strReportName) <= 5 Then+ l6 V, C( F( t: [0 o
strReportName = strReportName & ".html"
$ Q% b, t/ V$ Y8 ] o2 |Else8 M0 |; i# n6 E( D& v
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
. [* f; y- ^/ o- F0 y9 c# v; }End If
, v- o) N+ G- l
* N) C) t# {# }2 X l改为
+ ~/ l r2 F! l0 G& K# B
7 a3 q7 }7 I( B' N |
|