|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题5 A4 i) j4 ]/ L$ E
程序单详见下面帖5 j: _+ w' ^$ p B% ]+ w' S7 l
http://postp.net/viewthread.php?tid=2432&extra=page%3D1- P* l5 @5 z4 l& g3 l* R1 O4 m- d
补充说明
" w/ c5 O! B+ Y. T2 r9 N有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.& J# Y5 L) g- Y. I5 O6 h
, O2 D. { J* ^1 S. {; T
找到下面的代码.1 U0 E8 N3 @0 K J: K% H) M6 _/ h
( ]6 v6 B1 s; L
sfileDir = "D:\nc\"
U9 q5 K9 A# [! A9 d$ u' -- Prompt for a report name1 B$ N1 _, u$ k, w; K9 T) g7 C
strReportName = AskString("请输入报表文件名")
1 a2 E" @! X: D7 b+ o( MIf Len(Trim(strReportName)) = 0 Then Exit Sub
) E$ |4 e4 x% Z' -- Check for EXT
' W( w: x. n2 l B6 YIf Len(strReportName) <= 5 Then
# g* Y1 d7 j/ \9 C b9 s strReportName = strReportName & ".html"4 i6 n6 x0 \% J8 I+ y4 a$ u
Else3 q3 B0 @9 x& ^' `& @; h
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"2 [8 T( E4 ?3 T* z% `5 a+ e
End If
& Y7 z9 r7 O: T, `' P1 F# Q z/ x& o% c) K
改为
5 K; x2 i% J5 F0 f7 e/ i- [/ k* r6 F# N: y6 s
|
|