|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
& b- ~ i/ T s6 y% N1 @* Q程序單詳見下面帖& p4 g+ @5 a" e, I/ T; t1 v% N4 |
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
$ I5 K8 R8 n+ Z) G9 x" N補充說明
! p, e3 X% j1 e* r9 L有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.
: O! U8 U; J* F1 V
; U! d; w/ F: a6 e3 s% Z找到下面的代碼., J9 H0 }/ ] }2 a) e" l! I
( w. d- J" Y' b8 a& b& b4 t
sfileDir = "D:\nc\" / j) F! S C: F) B3 Q; ?
' -- Prompt for a report name
5 F1 |$ a$ a; Y1 B2 o1 MstrReportName = AskString("請輸入報表文件名") : z# ~; C: ~* m, K8 _" Z
If Len(Trim(strReportName)) = 0 Then Exit Sub y+ `0 W( z+ { y
' -- Check for EXT1 `& f' O/ S0 C( B
If Len(strReportName) <= 5 Then
9 ]3 r5 W! V; g: \2 s strReportName = strReportName & ".html"4 R7 i( g3 V& ~- s
Else
0 x( c$ [" S6 ]- ^ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html": ~2 D% S: W. Z; f; I
End If
1 L: o( Z, a" _; ]- s, r4 L5 I* J G- ^% z
改為
! I+ |& Z: a; @5 ~2 `) b3 I, X0 `& `# j1 B2 I3 l( T5 s
|
|