|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
( T8 W) t8 b/ M1 v g3 Y程序单详见下面帖
. J8 i' L! C3 Z- qhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1& k, {% e- k( C- h3 @- i
补充说明
) c; c0 C6 t+ k有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.4 B5 `2 i: z7 ~
) z6 n1 ?8 ?6 u2 @$ v/ e, P找到下面的代码.
7 K. }5 `% h/ p5 I8 c+ v; h T( m3 {8 Q3 x( L
sfileDir = "D:\nc\"
/ z4 c, e' y' U) y, ]' -- Prompt for a report name5 J4 X1 e3 _8 S K
strReportName = AskString("请输入报表文件名")
) t% {1 U! j& ?* g) Z# N( rIf Len(Trim(strReportName)) = 0 Then Exit Sub
' Y! ^ X- i+ r' -- Check for EXT& y' T( B+ q) Q3 R) T( X
If Len(strReportName) <= 5 Then6 T: Z+ c$ ?+ B+ q
strReportName = strReportName & ".html": d/ r& e3 S$ u7 ]
Else
. t' p, e4 G( n/ y1 _6 c+ H If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
5 b4 |' V+ d5 }4 {: L; i; `2 kEnd If) g0 I8 A0 o: K- D5 P* E
4 P; f& w9 D( l/ e) z改为
5 l0 W8 p- Z, y) X
1 y4 _4 B/ u1 u |
|