|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题. L: w- K6 x9 \! \3 B7 R( T
程序单详见下面帖1 T% o& T0 ~; E% K# A& u( J, g
http://postp.net/viewthread.php?tid=2432&extra=page%3D14 J( C# {; h6 V$ ]* \
补充说明
6 v0 U. T5 n0 }有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.1 [! b& m& M# q% L& E0 s6 U
1 T( F5 F& `0 M
找到下面的代码.& j/ Z4 w8 r# C" A! S4 }
5 h( s8 i: x5 a# e- g) V
sfileDir = "D:\nc\" & q5 d4 i m# t' |, @1 p
' -- Prompt for a report name9 _/ Q- l/ d: A7 `/ E. }0 a
strReportName = AskString("请输入报表文件名")
9 T) Y. {, j" p) ?- y1 BIf Len(Trim(strReportName)) = 0 Then Exit Sub1 ?4 F$ M4 }) a
' -- Check for EXT
0 a$ B7 J' ^% K9 ]: y0 xIf Len(strReportName) <= 5 Then
/ i }$ y! O, }8 ~; d strReportName = strReportName & ".html"+ S9 q) ?8 v& N8 t
Else* B) P: }5 K6 T$ l; k/ q
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
( O! N5 m1 I: x! | y4 rEnd If2 y. |# t- v3 B
- G3 D1 b! |5 b _3 I6 q- O
改为
s% m2 _! A1 e' F( ]% G
7 q# u* C$ N/ W( _7 R |
|