|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
$ P$ W" H' a7 P g! B' P8 E9 }程序单详见下面帖1 S' H8 b: `2 l" u
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
0 P6 X ~1 A C6 n: U5 e补充说明! W- |+ U G* U. d7 v4 |' X8 C. K8 z
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.; ^9 U: u) y- }' G2 y& R
6 O4 V. [( Q0 A, ^0 F( O找到下面的代码.
Z6 Q5 a; x/ ?: _& ?: u6 N
! m w; [% I* K4 c; A* N sfileDir = "D:\nc\" * O) B2 k) A, G* R/ d$ m5 ~& C1 f
' -- Prompt for a report name8 N& T1 S1 J9 O W e; J/ ?
strReportName = AskString("请输入报表文件名") * {' e' \( l! c4 y. h
If Len(Trim(strReportName)) = 0 Then Exit Sub* m( U% r l+ p8 D- ?5 n
' -- Check for EXT
/ S# |* J. S, Q; w9 y2 F/ w" oIf Len(strReportName) <= 5 Then% S" B5 S+ t5 U9 z0 F$ z1 g
strReportName = strReportName & ".html"
$ u+ S/ n2 _% ~/ x- pElse2 T. {$ f1 S& @: S6 P
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
" q& b6 h; D$ p+ r* ]& eEnd If
" y% [; T$ i1 Z5 Y- a5 p. V4 N0 V: \
改为. s: M7 M" n3 M* n
8 [' T! w6 k) r) \/ K
|
|