|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题% s2 I0 B( ?) m4 U
程序单详见下面帖
' Z" F6 x/ L' B1 G# H- @http://postp.net/viewthread.php?tid=2432&extra=page%3D18 @. F4 o' X/ N4 _% M: F5 ^; Q9 g
补充说明3 c+ P1 M' M9 ?& E
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.$ r% s: Q. E4 I3 c$ f
. r" f$ n1 h0 v( t: }7 U: R找到下面的代码.
* b, z! @, r. Y; G* F7 h5 u
% N% f% p+ F6 _) I8 p0 C/ c sfileDir = "D:\nc\"
% K' E! C' \" N, J' -- Prompt for a report name
|/ x. z+ Y+ N6 BstrReportName = AskString("请输入报表文件名") : F5 N) _- a, K
If Len(Trim(strReportName)) = 0 Then Exit Sub
2 L- I* I. a( n% S% o4 r5 i! m9 u& R# ~" ]' -- Check for EXT
( W6 x8 b' \' K7 Z2 x1 p+ d9 v aIf Len(strReportName) <= 5 Then
4 u: U( R0 Y4 M strReportName = strReportName & ".html", P3 N% C2 K, o/ n. L+ O2 z
Else
8 @- W0 ]5 P A2 k( q* Y If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
3 m& a: q1 M, n* AEnd If/ O7 [0 T9 i1 |0 l' k, D7 G
$ S: \2 |$ S3 ?6 S
改为
5 J4 Q9 h' @, w0 ~# O3 Y& k; r% [9 y3 x- A+ o* t
|
|