|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
- U$ ^# o) L5 H( n( c程序單詳見下面帖
1 t5 Q" {' R* T# q5 k I6 Ahttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
, ^1 [( N5 c b) G補充說明
9 x' L5 T* p- g# Z! F' ]有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.% ]" X2 l4 G0 Z% S b# j; g4 O
8 {+ b2 Q& E" A+ r1 h找到下面的代碼.
& ~# u) Q4 }, F* G' p
5 j# U% W7 G* K sfileDir = "D:\nc\" 2 ~$ y; N) j2 R+ [$ R2 b# _
' -- Prompt for a report name9 d7 S9 c o! D# e$ \8 _9 Y0 ^& V
strReportName = AskString("請輸入報表文件名")
| P. W3 P& r% C2 l* ?If Len(Trim(strReportName)) = 0 Then Exit Sub& Q1 I3 a2 x# Z1 ~2 V$ l
' -- Check for EXT6 Q' r2 k2 A E$ M0 k
If Len(strReportName) <= 5 Then* \/ t4 F0 q* i8 I0 H5 E7 O# E
strReportName = strReportName & ".html", D" K4 }. a0 ?- t8 U! u
Else
$ l7 t$ G" N0 M# ?- P6 z- t If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"" A$ i6 X1 ^/ H
End If6 t: D3 _2 U1 @0 s' e9 w
% V. V2 z. q3 x" f# T Z4 v) z8 O
改為
9 t- g. G8 F6 a
4 Y& r" g6 _) D Q7 E |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2024-12-3 10:46:17
非常感謝