馬上注冊(cè),結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒(méi)有賬號(hào)?立即注冊(cè)
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問(wèn)題; Z( j2 C! H. ?8 ?+ l
程序單詳見(jiàn)下面帖1 _& f& B9 C) z4 @8 T
http://postp.net/viewthread.php?tid=2432&extra=page%3D1$ ~4 v- N/ g* c& i4 |
補(bǔ)充說(shuō)明
2 m. U7 y X1 {0 N% p! r3 u有用戶反映用于9.1會(huì)是9.0出錯(cuò),下面是用于9.0的解決方法,環(huán)境不足,未能測(cè)試.- N5 z; l y X+ D) F/ W `
6 ?. I9 Q( y/ Y/ ?' G
找到下面的代碼.% e* l5 v! B9 c' x3 L
& u% ]) D ]0 y: J/ z sfileDir = "D:\nc\"
: D, c3 T: H" n0 }; \. J' -- Prompt for a report name% y) e) U% J0 C0 W( C
strReportName = AskString("請(qǐng)輸入報(bào)表文件名")
0 `! f; f: f/ Q: x4 i2 z4 G( u9 c2 hIf Len(Trim(strReportName)) = 0 Then Exit Sub
! F/ W& j2 b' J6 [8 p! L" U% f' -- Check for EXT
2 M# @$ ~# E) I6 PIf Len(strReportName) <= 5 Then( W2 n4 c, O0 ^3 W' b9 _; [/ n
strReportName = strReportName & ".html"1 ~- i; G3 K: Q) v a3 W/ D n1 v
Else
7 c0 Z% v1 {) u If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
0 ]/ s# e2 W. H9 k- E8 q3 kEnd If4 w6 \2 D% f2 @) G+ W+ b- J# t
: s# Y* t. Z( w' z- c0 P( p
改為1 r/ H0 d0 u. M8 }. `+ A7 T
8 Q6 X: v2 F* m) ~! V1 i9 x
游客,如果您要查看本帖隱藏內(nèi)容請(qǐng) 回復(fù) |