|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题/ I& `, j! c2 l: c
程序单详见下面帖
2 W/ u# m5 p s. P* T3 \http://postp.net/viewthread.php?tid=2432&extra=page%3D18 {7 w3 t: ]( ?
补充说明
8 Z% [& V' w2 I有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.! s0 z+ C! b4 U( w8 e H. y
" \" b* Z" w7 Y; D
找到下面的代码." x f; W$ E; Z+ D
+ e( Q/ l, G# M1 |5 \
sfileDir = "D:\nc\" 7 @: I$ f2 C, w- w2 L7 D, ]
' -- Prompt for a report name
% t4 A* }( q/ q2 A3 FstrReportName = AskString("请输入报表文件名") 3 x m' I4 f3 k
If Len(Trim(strReportName)) = 0 Then Exit Sub$ B7 S# Y9 z1 c$ h
' -- Check for EXT
$ ]+ \1 J6 ?5 F6 V$ L* AIf Len(strReportName) <= 5 Then5 R0 K" f e1 l4 D) G; ]% c( q
strReportName = strReportName & ".html"
$ }: B& Q `5 K# \, d! I2 EElse
1 B7 v. L: }, B g1 J If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
2 m6 m; h( y- yEnd If
) p6 C1 i, |' ~' ^
, G5 w. h9 X: W0 g6 D6 V改为
, k. r5 O s( m% M
& `: o) m8 O4 x. J5 P% C) _4 c |
|