|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题2 j) J+ ^' c0 x. C: d
程序单详见下面帖
8 S" ]4 M2 w, {! k& x; a$ ^3 I- rhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1
- Y$ Z1 j- [2 r: R+ X补充说明
5 L+ P' j4 L* I! }, j! {2 G有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
# D, m' ^. D, Z# R. k, R6 J% I/ W- g0 M% f Q
找到下面的代码.
- [" _; ~# P/ {/ P4 M4 G* |- T3 w# ^" ^/ G
sfileDir = "D:\nc\"
$ D, [" [) F- ^: ?4 e& d) I9 k$ a, i4 @' -- Prompt for a report name
C; \ N9 j d4 ~% f4 F' U- EstrReportName = AskString("请输入报表文件名")
' V. N7 k5 J4 R/ p/ ^7 JIf Len(Trim(strReportName)) = 0 Then Exit Sub
: M$ o, O1 G8 v* b' -- Check for EXT1 C: L# ?* [! t% r5 j
If Len(strReportName) <= 5 Then
" D% \ g7 \' l strReportName = strReportName & ".html"
- y7 Q) {# A# ?5 f2 y! oElse d( _, B' k2 l$ s# |
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"" K& W$ g3 |" i' ]/ b" H: M
End If
6 {* F' ?' X! b4 |1 U3 s: O& z, v) q% {: P& }/ b. i$ u) m3 a
改为
4 R7 q X7 p0 ^) n L8 H. ~8 N
) x2 s% r# Y6 _- n |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
