|
|
馬上注冊,結(jié)交更多好友,享用更多功能,讓你輕松玩轉(zhuǎn)社區(qū)
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
( [" [5 I% S% x+ O% i6 E! d5 S [程序單詳見下面帖6 D n$ X: K: Q0 Y5 H0 y
http://postp.net/viewthread.php?tid=2432&extra=page%3D1* B1 l# R- y: f# d
補(bǔ)充說明
$ d9 L1 i9 k4 o9 P& H有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環(huán)境不足,未能測試.4 ]2 j$ ~% W" d! A6 c$ ?) Q
( `7 ^5 b- v7 Y5 B* b3 h% L找到下面的代碼.
2 s, [- v# c6 R0 u1 ^; i* l& Z6 F5 ^: v& r
sfileDir = "D:\nc\" . b/ l* J5 m0 i/ f1 ~4 |
' -- Prompt for a report name
: A8 Z& I- t, `0 D) istrReportName = AskString("請輸入報表文件名") ) y3 E2 n/ n$ Q( @2 I. ]- A! J
If Len(Trim(strReportName)) = 0 Then Exit Sub
/ s9 p3 c& V0 s4 X& @$ |' -- Check for EXT
- M' M4 T; A8 \8 u, ~9 u# xIf Len(strReportName) <= 5 Then
6 N6 {! ]* D1 z strReportName = strReportName & ".html"
8 M' r4 E8 c' [ z2 [0 aElse
5 R% z+ o0 U( c8 R# B' I& w- c8 l: c If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
' }2 z n& q/ d4 jEnd If5 t# O0 Y6 M' {9 i" K
$ Y4 R+ r; N( w0 U5 z1 L
改為
, ?# a$ c3 h8 F3 S
0 x" B, @& J/ A) g% h( E) D: n- S |
|