|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題3 [! o. f4 ~1 P. F/ _" p
程序單詳見下面帖
( ]! h" ? ~+ @/ _9 h& s1 y* ~http://postp.net/viewthread.php?tid=2432&extra=page%3D17 d4 |" x9 U g( r' m( J4 W
補充說明
8 B o- ?8 x" c5 R+ Z9 Z有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.9 W: y! S) x( o4 `- X; m3 D
m# g1 i0 R) t& n5 E找到下面的代碼.8 k5 \# k# p1 [# L
( t+ \' `5 c1 R0 t sfileDir = "D:\nc\"
2 y/ X1 w$ K9 R3 X' -- Prompt for a report name2 N9 ]1 u4 A, J6 o
strReportName = AskString("請輸入報表文件名")
- E, G. R2 F; [6 L2 ]If Len(Trim(strReportName)) = 0 Then Exit Sub
/ P2 s/ b, [" Q. l7 F' -- Check for EXT
U% z5 n! |& g% ^$ ~If Len(strReportName) <= 5 Then
# s% ]+ D( H& B( ?' e+ H strReportName = strReportName & ".html"
, \- g e. W2 QElse
, g* g4 X, n/ h. y If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"% a/ ]5 i3 J7 p5 ^ ^
End If: s( o0 O: r0 }, U1 U5 m
3 j5 e5 z+ K0 C9 F改為
, q1 f2 `7 }, H) ^" p% }) O
6 ~! X9 X) o, A |
|