|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
/ L+ w' Q& C# ]% J程序单详见下面帖
% J" d6 t7 Y6 b d9 k, @% h. w" @http://postp.net/viewthread.php?tid=2432&extra=page%3D1
7 T* o2 u/ [) d' S: ?4 b补充说明' ^+ w: i( w) ?' W5 v
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.0 [+ m4 [: k. @9 `2 t
Q% B7 i/ `# c
找到下面的代码.
1 Y W k7 e4 S
# n# s' s3 n) o* `: `: g& \: V sfileDir = "D:\nc\"
. p1 U( e2 z: Y6 ?% K' ~1 m+ f' -- Prompt for a report name
) Y r) ?) y5 z. l+ P, V4 v/ K3 H4 t$ n9 sstrReportName = AskString("请输入报表文件名")
5 S2 |7 D& f6 h" v4 [If Len(Trim(strReportName)) = 0 Then Exit Sub
* x+ q$ J3 B3 s. V( Y6 S; c& L) l' -- Check for EXT
/ s9 Y$ i/ @5 L: dIf Len(strReportName) <= 5 Then
5 L) i1 ~7 J. \) l/ _ strReportName = strReportName & ".html"7 l R( p. z. \' j: p
Else
" i+ W/ k; l9 Q5 {0 R! { If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
; W# n" c+ N: W: m9 j ^End If
1 a6 _! `9 f( r' v: p) y) T4 B8 d$ {' m' P( a% J9 L$ N
改为' `3 l6 w2 e' b S
/ @% R) d" [( J+ _2 @
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
