|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题# k' a) r8 u# Y8 s, n7 o- w
程序单详见下面帖. c" W2 ~: }5 z/ l
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
! t+ a- X6 ^2 b9 `- m0 ~* i补充说明, a6 @( ?: j2 w- r* F
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.: i) a& w+ J* `) G# w+ F
: J/ _( _6 ~' G2 {9 z8 @, A( r6 {
找到下面的代码.
1 j/ t# J8 n+ C; Y/ S& \0 B d: I+ [& _+ _7 X' m
sfileDir = "D:\nc\"
+ y/ [3 D' a2 T' X2 h; X" T' -- Prompt for a report name
: q- `- Z8 Q8 [' j1 ^# ^strReportName = AskString("请输入报表文件名")
9 a, S( z2 ^# m- IIf Len(Trim(strReportName)) = 0 Then Exit Sub
' v, Q$ B4 F4 d# u8 N0 q: v6 h' -- Check for EXT
' V- Y% z* J! j2 m8 h" tIf Len(strReportName) <= 5 Then) l8 D" W3 o$ \% A
strReportName = strReportName & ".html"
3 m2 R, c; I& Y% n' X# \Else& F* ^$ o, v7 R8 ^
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"' Z1 A @& i! R7 v7 P' n( H; L
End If3 k R" b8 C+ h- w
* P3 n1 g3 H- V- g/ G' ]( Y3 c# e
改为
+ ]3 c1 |" \* _" @6 e# P# J0 n, T2 S4 ^
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
