|
|
馬上注冊,結交更多好友,享用更多功能,讓你輕松玩轉社區
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
4 r5 @- G- |, ?: y) G程序單詳見下面帖
/ b/ [' q3 X/ n- ?) v# W- {* P' Ihttp://postp.net/viewthread.php?tid=2432&extra=page%3D1, y2 S8 N; u& C4 G9 j* h
補充說明
& |2 L' x. o$ q有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.
9 x6 y7 U5 p$ K/ Z& [4 c0 n) H
; D/ r- w& Y; {- A# | d) |. C找到下面的代碼.
6 Q; N: I7 f: d4 r( C7 g, [8 r' b' @4 I& @- C6 M+ U# F9 R' n
sfileDir = "D:\nc\" . z8 |" X6 S! H2 U
' -- Prompt for a report name8 L* s* \* f4 p
strReportName = AskString("請輸入報表文件名") % @& a* W' g5 L. y( k
If Len(Trim(strReportName)) = 0 Then Exit Sub
# k. u. Y* ?0 B7 }. R/ t; {' -- Check for EXT. a: C/ `- o( E) f
If Len(strReportName) <= 5 Then; f$ W/ e2 F/ `" Y) ]- }2 [: Y
strReportName = strReportName & ".html"" j9 z5 i2 L! ^5 x: m6 m3 S. j
Else
[8 [; U U2 v7 @2 z1 h0 g. Y) C If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
1 }2 j. T& |6 u7 ^0 [ m: O eEnd If3 n! t4 T) a% ]% J" ?" K* F
" d E2 y4 s- W& N( ^& P9 H& c
改為
7 x* ]# R1 e; ?$ T5 d2 F# _4 A, Q! t1 A: }7 i! D
|
|