|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
( _" ?, U5 |) _- E5 z程序单详见下面帖5 p0 l! I8 u- y0 z
http://postp.net/viewthread.php?tid=2432&extra=page%3D1% t$ A, O0 {8 C1 v0 V: R, n. s
补充说明
- N" e+ b! @( R/ z# O3 E有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
' Q" e7 }" \6 N7 q) D+ P# y6 y; E, h( n% q# k9 }
找到下面的代码.1 m- S4 i5 t2 r7 l
: e1 h7 ~' e( | sfileDir = "D:\nc\" / [/ [. i+ o% g- O
' -- Prompt for a report name
* Y5 O7 K) Z. d: OstrReportName = AskString("请输入报表文件名") " |& A" i$ R' P& P* j
If Len(Trim(strReportName)) = 0 Then Exit Sub
& U, k1 y0 u1 j1 w5 c8 Z& k$ @' -- Check for EXT! Y3 K# t( z8 {7 z& D' ?: @
If Len(strReportName) <= 5 Then
' U3 e# P% B- I7 Y/ v9 d( A- g strReportName = strReportName & ".html"- D; N( H( [$ q- s
Else" p/ E# j9 H, C- F
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
! u$ m1 m2 e7 zEnd If! q9 t* Q8 H( y/ e# X
) n/ U9 U" C! ]1 N: C改为. e3 ?! ^8 V' q1 D% _/ m
8 }% d- U2 B& Z; l |
|