|
|
馬上注冊，結交更多好友，享用更多功能，讓你輕松玩轉社區
您需要 登錄 才可以下載或查看，沒有賬號？立即注冊
×
MastercamV9.1加工單(vbs版)--修正不兼容9.0的問題
2 Q/ W& g$ T" l( p7 K程序單詳見下面帖
6 N- b$ v K$ J* nhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1* K% U7 ~, u# H5 i9 U8 J4 d
補充說明6 U$ \0 F- e. m/ e( D* U( _: R
有用戶反映用于9.1會是9.0出錯,下面是用于9.0的解決方法,環境不足,未能測試.& [ P; D3 B ^4 W
5 W0 y7 U* C5 Z
找到下面的代碼.
& |" J5 b" T. ]# V9 _) H- A' [% C7 _* l
sfileDir = "D:\nc\" 3 v$ u6 ]$ {. z0 t, J
' -- Prompt for a report name' Z. O7 d$ Y; w
strReportName = AskString("請輸入報表文件名") # ^) I/ F0 |; [1 P& _1 e4 R, _1 y9 w2 U
If Len(Trim(strReportName)) = 0 Then Exit Sub7 c2 W2 e6 b3 {1 J7 {2 w ]! y& D4 K( T
' -- Check for EXT5 O/ K. _1 a/ w0 x7 ]5 Z: V9 o
If Len(strReportName) <= 5 Then0 H. M/ e7 q7 ^6 n. T* d
strReportName = strReportName & ".html"( t7 {, V4 l; ^+ z9 ^8 S
Else
6 G$ f4 d* e& d1 G- M* T' l/ [ If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
4 ~2 I" w8 d# W6 vEnd If
0 n- y2 L# J" j r$ h
1 L9 [- N( T! H7 g改為
" C0 D; K1 M( _) ]# t3 u" f6 ^
& G( k4 ?% C9 L7 h1 y& d |
|
/2 
|Archiver|手機版|小黑屋|若楓后處理論壇
( 蘇ICP備11015087號-1|
蘇公網安備32059002001368號 )
IP卡
狗仔卡
發表于 2011-6-12 06:52:32
QQ好友和群
QQ空間
提升卡
置頂卡
沉默卡
喧囂卡
變色卡
千斤頂
顯身卡
發表于 2011-6-12 10:15:22
