|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
& n6 s T3 _! g0 W1 H1 T& D$ O程序单详见下面帖/ ?1 F( O! h3 ~
http://postp.net/viewthread.php?tid=2432&extra=page%3D1: m" L: s. L7 @: t; b
补充说明
% S# _$ i( n* P# f" p3 B+ S+ T有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
. y0 ?$ H* Z4 J7 r+ y. w0 f: Y# L# v6 z
找到下面的代码.& \1 F3 C X" z2 Q5 ^2 Y7 z
/ M# T7 ^% j$ }# @- `% Y
sfileDir = "D:\nc\"
" ~, E: c5 k9 T6 b/ `' -- Prompt for a report name
m7 I0 c6 j+ e, V$ }3 D# nstrReportName = AskString("请输入报表文件名")
4 P, \5 Z" {/ V' d% W, kIf Len(Trim(strReportName)) = 0 Then Exit Sub- w" R4 b: N, J) [. ~
' -- Check for EXT5 ~. Z! S( A4 h- N5 m) H
If Len(strReportName) <= 5 Then
7 y$ H9 o q, P: V strReportName = strReportName & ".html"& p u$ c' Y5 G/ ^' ?
Else
/ W4 _& R" }& b" L If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
2 s* \) O' e% B& eEnd If2 g5 {) [6 [8 ^' P
* G7 |! L+ z( e. o
改为
- N1 n- a# a7 z: u$ w
* l3 s$ Q! J) n G3 L |
|