|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
9 f: i# B7 _ b/ e3 u+ n: ~* e# }8 ?程序單詳見下面帖; b# B+ t2 _2 ^6 c9 U, b* T
http://postp.net/viewthread.php?tid=2432&extra=page%3D1( N N- f# ~. J6 x, {: x8 N' W% c
補充說明4 N7 k4 r) \- h2 `
有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.
* e' V: F. C, d) }; l) {
( }, L; Q+ D/ M0 p7 h找到下面的代碼.
7 T( v; Z# ?5 J* j" N& @; T
0 l" _9 ]! z- Z6 l sfileDir = "D:\nc\"
& ]/ t, q2 U8 U3 ^7 ^: j9 ?' -- Prompt for a report name1 T" w+ J8 s' r2 q% K
strReportName = AskString("請輸入報表文件名") 9 J) |/ j+ Q' e( C! o1 F9 }
If Len(Trim(strReportName)) = 0 Then Exit Sub
' P* q* h, G. V8 g% E L' -- Check for EXT) q \3 D" ~6 |# U6 a- O G7 T+ O
If Len(strReportName) <= 5 Then+ z# }! {( e0 g; l
strReportName = strReportName & ".html"8 R( v7 f! J- P% \& x( u7 N
Else2 x1 ]) w/ _" S" _
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
' C/ H+ U3 I" {2 z1 D) x' `3 P8 sEnd If
0 ~) G% T. S' h$ @% S
7 G/ v3 S- }( G: K4 b) \ P改為2 ?% ?3 [/ j- p, r& a) K
# T% K) M! Z2 l; k0 ~% \
|
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2024-12-3 10:46:17
非常感謝