|
馬上注冊,結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
5 z/ B0 L+ u' e程序單詳見下面帖# {6 t# Y' R. |; v" n
http://postp.net/viewthread.php?tid=2432&extra=page%3D1' ~+ e; Q$ e( {' t
補(bǔ)充說明
- e5 M8 L2 I' j- t' U有用戶反映用于9.1會是9.0出錯(cuò),下面是用于9.0的解決方法,環(huán)境不足,未能測試.
8 N- } n, _1 D1 G7 u5 |1 T/ Y5 \8 p1 I% a. O
找到下面的代碼.
6 k% p+ H* G/ _) y
$ S O6 k( M& z$ [8 B0 F sfileDir = "D:\nc\" # ?0 @6 x( `% f5 k" E
' -- Prompt for a report name
: Q5 W+ D- A% {8 ustrReportName = AskString("請輸入報(bào)表文件名") ( F! v) u& d5 e4 U. @0 o3 [4 H
If Len(Trim(strReportName)) = 0 Then Exit Sub8 G4 \ V f" X' f7 `. Q
' -- Check for EXT9 M* F2 @) L0 a1 L
If Len(strReportName) <= 5 Then! b4 |0 S0 X; r! f; D1 g
strReportName = strReportName & ".html"% w+ _5 s1 M$ ]4 T/ _
Else
. R1 h7 @* T: ` If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"; V* Z5 x% b0 z& O
End If
$ V; l) C# w* @
1 ?& u/ B6 ~8 ?改為9 t+ \# p& Y7 p- r6 _, z
. `. g# F5 n9 N4 J- N+ y& P0 m. V6 C |
|