|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
) m7 R9 ^% r) x. P8 y程序单详见下面帖+ @0 B# R+ h. Q4 h2 \
http://postp.net/viewthread.php?tid=2432&extra=page%3D1, Y0 c0 n1 Z+ j! _) K9 G" n
补充说明
- h) Q6 u' v9 M p$ [有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.' R4 D+ y2 y& H3 N e- r/ U5 ]
' t2 k1 d1 q1 @/ ?- ?9 k* o
找到下面的代码.
" F7 X/ l+ D' c _2 l% B' x, U1 ?$ p, Z7 O' Q& I2 N
sfileDir = "D:\nc\"
& ~1 m6 n0 H, C# {' F' -- Prompt for a report name6 a/ U4 `, K; U* I5 d
strReportName = AskString("请输入报表文件名") ; F$ w9 P3 y" |/ { e8 W- l
If Len(Trim(strReportName)) = 0 Then Exit Sub6 x4 b2 c: T$ S" Y
' -- Check for EXT; b- H: e& `# b. z: u! S. U& Y
If Len(strReportName) <= 5 Then
9 ^: A4 e7 ~# R) q strReportName = strReportName & ".html"
c8 J) h* j3 I; b: v: ] }Else, z7 t# h' t. ~1 L/ J9 U
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
( h% w, A% C8 b2 p- \7 ?+ h/ G$ lEnd If( _7 B+ P/ n: X) g9 @$ [
7 S8 W( @. j" I/ d; @改为
$ Z1 H( i( _5 {( X" o, J7 N3 w
, ^8 I. j' L, C; M' `; o9 r |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
