|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题7 m: g) @6 O' [4 a2 L+ y- b6 C9 b
程序单详见下面帖0 D' D( F) I/ @/ Z
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
9 n9 U% U: r5 V补充说明. w1 w* r* _* I0 e2 e3 F8 r
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.$ |- y' v- A4 K, w0 R3 N
. g+ j7 ]2 M6 c
找到下面的代码.5 Z, C1 M& Q, ^9 a
# \: Q+ ?1 h9 I6 A
sfileDir = "D:\nc\"
& ?0 A2 A( {' g' |; a' -- Prompt for a report name: u" @: W" `9 L! j7 O. F; Y; \5 F
strReportName = AskString("请输入报表文件名")
1 ~" O! F( v6 e6 H: g2 X( nIf Len(Trim(strReportName)) = 0 Then Exit Sub
. A0 ?! Z3 O$ D& j' -- Check for EXT
5 ^$ A9 U5 C( q8 u7 Q+ fIf Len(strReportName) <= 5 Then
% E6 Z" j: ^% A; N# r strReportName = strReportName & ".html"
2 G8 ]8 x2 c" o @& I( a! |Else6 r/ D4 g3 T- v' R* G
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"4 S! V' m$ t j2 p, v* p* l
End If1 K5 d; e" M7 C
8 B6 S# F( n0 e改为
A7 T! Z0 U( F3 L2 Q" E6 D3 k1 f/ X8 [; g8 M
|
|