|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題$ g# }5 a! |8 N2 i0 q) U
程序單詳見下面帖
9 S' C2 M+ f, t9 m& Ehttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
+ e1 o0 ~8 P% Q7 G) P補充說明
, B( Y8 N% I# D- A8 \有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環(huán)境不足,未能測試.( Z3 c9 ^+ P3 A. ?
9 T7 Z a: w* t( l0 L7 s
找到下面的代碼.
* t" D4 t$ _- G5 L. i: l7 O; F4 ?3 }) {! o' |' H
sfileDir = "D:\nc\" 2 f$ g6 i- [) k' i) d
' -- Prompt for a report name
6 W3 r& @6 b0 S6 Y- A3 W* Q! G B: zstrReportName = AskString("請輸入報表文件名") # g" w1 `1 x, g8 g- K
If Len(Trim(strReportName)) = 0 Then Exit Sub/ d5 b5 V5 m) q* C8 ~
' -- Check for EXT
7 ~6 f. X0 B J( l! F9 c% lIf Len(strReportName) <= 5 Then
/ a( L4 U7 V; g strReportName = strReportName & ".html"
; r3 o- g8 W% Y; J0 q( P" WElse6 u6 `5 M! X2 h, `2 V
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
# F9 N. g4 [0 W- |End If* ]" F* u& c7 @( o0 v
8 j6 i% Y' Y8 U5 v6 t# j( ?改為
2 H4 k6 }$ @8 U
' P- q3 f. G, {3 G6 S7 n |
|