|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
3 V9 q3 ]9 t& q4 V. G# F程序单详见下面帖
! k6 m* m. l k4 V b0 Xhttp://postp.net/viewthread.php?tid=2432&extra=page%3D1' ~* {# U q3 ]1 V$ M, n
补充说明
0 t( K6 |+ S; T3 f$ _" q# F有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.- b" ]; c U& m- o
W9 p C7 c( R: f0 u9 h+ [ G* U$ r找到下面的代码.
! y8 ~3 n# {* G9 Z0 j& i! Z, C8 z( ^6 s, y
sfileDir = "D:\nc\" 0 B* k- H4 \2 Z' m9 n- K
' -- Prompt for a report name% ^: N$ n7 O2 m
strReportName = AskString("请输入报表文件名") + o) `2 z+ r' r' c# j/ M8 y
If Len(Trim(strReportName)) = 0 Then Exit Sub6 w$ o; D; [8 B" Y! B N7 B& t
' -- Check for EXT4 u: Y3 n+ V0 w
If Len(strReportName) <= 5 Then
8 {0 e$ q- I# @4 g! b6 o strReportName = strReportName & ".html"
% J# b8 `, ^8 eElse6 x+ H0 ~# g! _( g- ^
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
0 ?, S! m3 b- q- L \# ]End If
. p H9 H% P6 p& [' O% P8 x9 `7 d4 f9 E& V0 ^* F! r
改为# y4 ?4 y! T- A, ]" b5 I
T5 S. f$ y7 z( S3 n- q; m |
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
