|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
2 r; u0 P# J2 x2 o1 k' A程序单详见下面帖
& K2 o; [3 j; q0 i) `http://postp.net/viewthread.php?tid=2432&extra=page%3D1( o' R& S3 H0 t& U% N
补充说明
1 e$ y% r3 ?, b( H7 F6 F$ A! u) \有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
! L" ]9 ]6 g4 c) |: \' n. z0 y# P0 e. \# }" n
找到下面的代码.
. V! k9 m! U a: e
- F/ h( g+ k; l$ o' o sfileDir = "D:\nc\"
0 ~6 B0 R$ [' t1 Y# C& v& [% d' -- Prompt for a report name
7 K. X/ S% n% D( j0 B1 EstrReportName = AskString("请输入报表文件名") 8 M; Y5 i* h3 [2 C* N
If Len(Trim(strReportName)) = 0 Then Exit Sub* j" o' V9 B* Z" o! ~
' -- Check for EXT
: B7 x' t0 g4 Y4 b7 S9 j/ m. ]" iIf Len(strReportName) <= 5 Then- Q1 _; N8 |) g+ M! T% b. n8 z( w- a
strReportName = strReportName & ".html"
/ S5 v' u" ]+ g) Y9 a7 r8 u% JElse
# M4 i: L: R! C$ J+ _ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"' N" Y' H; m" u3 c0 |8 i9 t: X8 b
End If
' T1 e; I0 P. Y/ F# a. q* X5 D# D4 n9 ~
改为
/ X9 x; _! e8 r1 M: P5 [2 @% m( c& s/ S3 V* K* v" O8 q* n
|
|