|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题: M! _0 N/ A9 c. n/ N
程序单详见下面帖
& R8 Z; e; \/ a# d3 uhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
! ?! J* ^, ^; }# X补充说明 n7 ^' D/ }, m$ Z( G
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
5 t) b7 j! D% P) W2 Z- M! q5 [) A# A# H9 a* q
找到下面的代码.
# s3 {, M9 T8 B- a4 Z! |
g1 K* u6 `3 p- B9 c& x( z sfileDir = "D:\nc\" % D( j! x) r0 o1 n
' -- Prompt for a report name* \1 r) I$ m5 y* B a* n
strReportName = AskString("请输入报表文件名")
8 R( Z5 ^" S- T" ~- JIf Len(Trim(strReportName)) = 0 Then Exit Sub% Z: F' k/ ]* [; ^0 y3 n4 p/ h* p1 p5 Z
' -- Check for EXT
, P5 Z/ B i1 D" m; g+ |If Len(strReportName) <= 5 Then% E9 Z8 Y8 O8 V$ @ ?
strReportName = strReportName & ".html"/ B3 o6 o' ^* A
Else/ F" _: E: W5 h. I! ?: v Y
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
% q( B2 ?# Q7 @/ Z4 s3 HEnd If
7 ~) j8 ], J) j+ E
! ` T$ ]4 b. k改为
6 o# f9 s+ h0 c( ^
, I3 ]6 I# V8 K7 | |
|