|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区
您需要 登录 才可以下载或查看，没有账号？立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题2 T* |$ C1 Q' a1 p3 `! n2 o* H. I
程序单详见下面帖
1 ?" R/ X4 ]1 ^- ~http://postp.net/viewthread.php?tid=2432&extra=page%3D1. d' V }% V3 l% D$ r& ^
补充说明 K/ S9 _+ w1 z0 U- F6 u! F8 w
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
: [' ]. I6 C/ ^: O% u, ]) t+ W! }: n4 g8 i7 z) v
找到下面的代码.
7 W, ?5 `4 z- ?: L
+ U7 ]7 A3 p& o, ~+ |% k f: O7 ?, ^ sfileDir = "D:\nc\"
, @0 P+ e3 L/ c' _ n: ^2 F' -- Prompt for a report name
- ^: i% t8 p( j3 \3 \. `1 nstrReportName = AskString("请输入报表文件名")
% a$ E r- F4 R, b4 U' |% Y# c; K; yIf Len(Trim(strReportName)) = 0 Then Exit Sub7 a1 l x/ i: z. K* f
' -- Check for EXT& N3 h4 X: N1 I$ Z5 J6 G
If Len(strReportName) <= 5 Then
0 W9 r1 L1 F) |( Y N! O/ p& ? strReportName = strReportName & ".html"
( j, [6 m. v0 n, P. ?Else
$ Y1 b( @7 L& B; S If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html") L! o4 w/ Q. F. }2 d6 Z' v% F
End If
' W2 d2 F6 _+ o: M; s! ]+ g. H1 j& P8 t; _; R, X
改为# u$ h1 m6 }! U& r. o
* \3 w7 P) U& [: n; @+ l) @
|
|
/2 
|Archiver|手机版|小黑屋|若枫后处理论坛
( 苏ICP备11015087号-1|
苏公网安备32059002001368号 )
IP卡
狗仔卡
发表于 2011-6-12 06:52:32
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡
发表于 2011-6-12 10:15:22
