|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题 r! E h' r( a8 w# O3 Y
程序单详见下面帖6 B5 z0 u* f# x: M: z, e
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
3 ?; o9 j4 _- C" l补充说明
9 y* ?1 _% f( Y3 `$ M I有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.7 L6 e+ L! G2 I9 T) I4 N$ U7 }
9 H2 p/ u8 y6 |3 D3 b& S
找到下面的代码.4 W' L; v, c1 z, T
! L# e! v7 O0 S3 m# }8 g( H sfileDir = "D:\nc\"
' [/ \3 V- K2 d3 O6 ?* q) V' -- Prompt for a report name
% a# o9 m2 y Z0 s/ kstrReportName = AskString("请输入报表文件名") % O; @' l" z, S1 j% g, s' K
If Len(Trim(strReportName)) = 0 Then Exit Sub
" I6 u h! h* r5 t( @8 n6 C' -- Check for EXT2 d# k/ u( a6 O& M& H6 W5 L' Z( W: h; p
If Len(strReportName) <= 5 Then
. z: P. z9 ~5 C0 Q strReportName = strReportName & ".html"- w1 ]4 ?. J( ], K% ?
Else. Z) c+ y" q% N1 r! p
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"0 L3 n2 o9 }& F7 ^
End If
) L2 z: b- n3 \. \! c/ J4 o: w7 e4 N
改为' t2 k; X7 `/ N9 U8 J8 n3 t
; |" v5 M% l9 E) ?! m |
|