|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
0 r; v. |" X* J* F* N) ~ R3 `程序單詳見下面帖: Y7 O& F R# _5 u$ n% X3 G% |
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
5 u. I+ D5 E; F* y' J7 `2 C補充說明/ A' a3 E, p: X) b$ L( m$ E2 d
有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.; U5 X d$ V/ l9 j
6 }3 w7 C9 }8 O& @7 ^' n8 l, j+ l9 H
找到下面的代碼.) ?1 U6 B$ Z8 ^; X+ l
V( d/ \/ L3 K5 z3 d
sfileDir = "D:\nc\" / h9 M9 ]; j8 X* ?5 ~% W5 Z. {$ X
' -- Prompt for a report name
0 d3 o B/ O' @! z) m/ ostrReportName = AskString("請輸入報表文件名") 2 E- F* X+ K" I" f/ B2 t9 E
If Len(Trim(strReportName)) = 0 Then Exit Sub) [( A0 s; `4 z) H
' -- Check for EXT
6 {0 `; C+ D" x- S$ |If Len(strReportName) <= 5 Then5 G' S, x( R& w6 m- v5 e/ X' V
strReportName = strReportName & ".html"; e/ L" E2 m5 j* r& l
Else
{3 N. @3 S/ H: G% S' ^ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
7 V1 O7 s8 O* a! b, _End If
3 V9 P2 g' P# {4 Q. b$ F: _ ]) a+ X8 z$ W
改為
" P: y0 K+ L6 d
3 v$ I( p( I+ p9 b |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
