馬上注冊(cè),結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒(méi)有賬號(hào)?立即注冊(cè)
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問(wèn)題
) Q" x' }* d5 T5 `" s4 ?程序單詳見(jiàn)下面帖
S3 F2 q# {6 [* g9 Zhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1! _' U( h% Q- d6 f! m
補(bǔ)充說(shuō)明
) _/ u6 {1 k% Z0 y) o: r有用戶反映用于9.1會(huì)是9.0出錯(cuò),下面是用于9.0的解決方法,環(huán)境不足,未能測(cè)試.
5 a8 _2 U0 P4 e4 x0 w0 S; k$ v( q! K: A. z8 f
找到下面的代碼./ Q* ? G+ p4 x/ n/ }& `5 t
# o2 ~8 V2 }; D# n sfileDir = "D:\nc\" ! h9 @0 b- Z2 Z
' -- Prompt for a report name+ b9 W b" x' y2 h( I9 o
strReportName = AskString("請(qǐng)輸入報(bào)表文件名")
8 L, u* U0 U, i) ]& N" pIf Len(Trim(strReportName)) = 0 Then Exit Sub
7 j+ D1 P" A9 J0 f$ u' -- Check for EXT
1 `: J5 G8 T, p4 J# `. O& R+ y# PIf Len(strReportName) <= 5 Then
" q; m$ R* C# E! R8 F( p strReportName = strReportName & ".html"" | s4 U& S% i, z) ?+ o$ {! T
Else, `$ { c9 m% m4 c; h5 `" w
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"" X( {, ^) Z# g5 X; e6 r& P
End If
8 C6 h& u$ n5 n
6 ?* x, E4 c( M" r0 K" ^- p* O改為; r. j# U8 y8 i/ w# n
3 {9 R ^. V: |' P( H
游客,如果您要查看本帖隱藏內(nèi)容請(qǐng) 回復(fù) |