|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题+ _+ V; b; Z/ l: E& i, O
程序单详见下面帖0 _- I$ K8 G) U/ \
http://postp.net/viewthread.php?tid=2432&extra=page%3D18 C& L3 F3 d7 F7 |/ z8 N$ i
补充说明
# G" c4 H7 L( X3 K+ f有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
7 C4 E, v: u3 P4 I& ]' ]# S' {1 F: ?8 G& a6 y8 h
找到下面的代码.0 P2 |# \( g' p6 u4 c2 D$ a
% \7 F- ?. k% L* {3 x0 U
sfileDir = "D:\nc\" 1 m- H7 O- a4 M" w/ L" H
' -- Prompt for a report name: L5 X& K5 b& k" A' _5 V
strReportName = AskString("请输入报表文件名")
1 A' x0 d( x/ `; a0 o3 P2 ]If Len(Trim(strReportName)) = 0 Then Exit Sub0 C. Q( g. e. K" U
' -- Check for EXT0 L2 {6 t& g3 D1 A: `1 H
If Len(strReportName) <= 5 Then
' X' x; G9 S) x) W# l+ F j/ J; {0 O strReportName = strReportName & ".html"
4 _& I' e6 q- Q& V0 C; E0 W# Y0 S" Q8 Q1 ^Else
5 E! b: k; Y& D3 {2 d$ J4 Z0 M If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
! a2 \/ s$ @$ X& Y' v& w4 F+ iEnd If& `$ X( v1 X6 N4 I
: ~* o1 g% g0 N$ a# x$ G改为
$ G) X8 U$ V" [
# |$ _- x- y6 ?8 Q! x7 a$ I! J |
|