|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
/ \ @6 |8 B$ a1 Z, O! G9 k! \' K2 y程序單詳見下面帖/ k: k q6 O% R
http://postp.net/viewthread.php?tid=2432&extra=page%3D11 |3 @! e& X" f4 n4 {2 W
補充說明- ^$ z' m) E$ _$ T/ Y
有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.
3 D$ {' Y; A7 x e! K' O: P9 D& Z ?; k9 w! ?+ v
找到下面的代碼.4 S; f( K' ^/ y2 n* K
0 }* N- A# D$ Y s6 U) K' M sfileDir = "D:\nc\" ' A/ p; B0 d* i* B x6 }* k$ G
' -- Prompt for a report name5 Z! Y5 N8 K$ ]) B% p+ A
strReportName = AskString("請輸入報表文件名") B/ F# c& P7 v, B$ ?
If Len(Trim(strReportName)) = 0 Then Exit Sub
7 s8 S4 D6 d- m' -- Check for EXT
3 P& d1 T4 N9 G6 A4 [1 y9 G9 zIf Len(strReportName) <= 5 Then# g2 Y& p# C7 D9 }9 B( U. S' d0 w8 s, d
strReportName = strReportName & ".html"
. } o2 O3 `. H8 G( p3 f- tElse
" I l$ Y, ?% U# ^ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"5 J- k& e6 k$ d* k: ^) p9 W& D
End If4 _/ f. ^) [" X9 h
8 m0 ~7 C# u; k6 K |) I- O5 K+ {
改為8 ~' g" G2 M3 @
8 W/ g+ w3 o7 Q1 i
|
|