|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题: A8 D3 H) ^9 o$ A" s
程序单详见下面帖
7 ]! c- x( X# |# F \- Lhttp://postp.net/viewthread.php?tid=2432&extra=page%3D17 k `' O+ p; Z- c# P
补充说明
: c4 Z5 b3 K% T有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.# p8 q8 h* |3 ]9 J, \
) w5 j/ I7 a! q3 t, F! F
找到下面的代码.
4 T, J' T2 i) w5 I
" a/ n6 W8 b$ @ sfileDir = "D:\nc\"
# C# p9 U$ D( K; o5 V' -- Prompt for a report name
~1 B. V. P' CstrReportName = AskString("请输入报表文件名") 1 H0 q6 f4 y4 N$ q& k0 p! W
If Len(Trim(strReportName)) = 0 Then Exit Sub. C; @2 h( O* D% A& Z* k6 L: F
' -- Check for EXT
" e0 Y$ f2 ~$ q S4 T; XIf Len(strReportName) <= 5 Then0 t+ Z' r' ?. t
strReportName = strReportName & ".html"# q$ [5 U6 I: I, i" m
Else1 G( }9 x+ P; b
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html". G6 l$ y2 @$ i2 A
End If9 O2 d$ @' W- {' z N; D" R* g
7 H4 l3 P- i0 y6 X) Y4 t- f
改为5 J+ O8 }$ p& }! t e* c
( J3 i+ e: ]# N$ j! M
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
