|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
% C& {$ g0 f& E! x" U% r程序单详见下面帖/ N# v0 @/ t1 y/ z" \7 m0 P1 a0 `
http://postp.net/viewthread.php?tid=2432&extra=page%3D1: U" G& D8 s8 {. [# J7 u" Q
补充说明
4 {/ o) W- [; I' R* X# u( w0 |有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.# h! I5 }3 w( Q9 L
" {% J( P4 b! t) ~( @
找到下面的代码.7 t/ h- P6 `1 M! n
5 J+ _( ]+ _ ~5 O sfileDir = "D:\nc\" 5 f$ R. K& w5 \& E
' -- Prompt for a report name
; O" I9 M! h9 |: kstrReportName = AskString("请输入报表文件名")
3 i% A4 R9 }+ b4 }& _If Len(Trim(strReportName)) = 0 Then Exit Sub% H& K' W$ F5 @! z- f/ m0 r& V
' -- Check for EXT2 u9 U% a8 S3 H% ^/ A8 \6 ?- Y7 x
If Len(strReportName) <= 5 Then
5 e0 ^; `5 ^5 t" q! C7 X3 v strReportName = strReportName & ".html". n4 k: O. m9 w7 A" x
Else$ i, D$ T5 q& P
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"4 m* ^5 r; x" V9 p" D7 O4 {3 h1 {+ z8 @
End If
! F/ ?- ^/ L. s- ]! F7 X4 }; k8 t7 G
/ Z# m. E; t/ C5 ]改为
4 F1 t9 c! K: b. a2 d1 `% k! E6 V
: b( d, @$ { F0 J+ X1 e: m |
|