|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
, V$ C- w3 w) K7 i程序單詳見下面帖( G. Y2 \, i0 v& J
http://postp.net/viewthread.php?tid=2432&extra=page%3D1/ X/ o7 G5 T+ m
補充說明
V5 U# X* n0 w, r) {有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.1 a0 K1 S* R, L/ a. G+ E% K; ?1 ?
: x8 a) i6 R4 b9 |找到下面的代碼.
, p4 s6 L7 `$ ~* C/ w C
7 e- s/ E y0 ?7 ? sfileDir = "D:\nc\" 9 i! B6 h% J) j, c# v- T
' -- Prompt for a report name
0 V! G/ M1 V) t! E, X& sstrReportName = AskString("請輸入報表文件名") , t6 U. A1 l+ {5 M b7 G4 I
If Len(Trim(strReportName)) = 0 Then Exit Sub
! B+ j1 | x) i) e1 q* F& a' -- Check for EXT/ W* u; V, O3 ?
If Len(strReportName) <= 5 Then; @; U6 O6 h3 E3 O% b
strReportName = strReportName & ".html"3 A$ v" y! `+ ~3 L. {2 i
Else: g! Z J! T+ ^, f6 r
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
/ `$ u* E) s1 ] [" J( NEnd If% [3 g, T/ I0 Q* t# K# o- b. q, ?, b% m
+ S# C: c9 M- ~" r# [; u
改為( I) W$ r1 g: z, w
) u9 z8 J3 _- i7 v8 H+ @ |
|