|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题4 G4 O% s- ]3 t7 n
程序单详见下面帖2 l( B/ A, C' L1 F$ p5 n
http://postp.net/viewthread.php?tid=2432&extra=page%3D1
/ A# [5 w6 m" y- u补充说明% U9 w& Y) C% ?1 O" v2 W2 F" ~
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
. J6 y, s" r; Y0 m) G* _. s: [9 N& W1 s
找到下面的代码.
" D/ J( y0 p* S8 m# Q" D8 o/ e( b
% ~ S% K R! p3 `& z- B' k sfileDir = "D:\nc\"
& a- q+ z/ A4 Y# T9 g' -- Prompt for a report name
Q! L1 t) }* CstrReportName = AskString("请输入报表文件名") 3 Q' O' b' c& W
If Len(Trim(strReportName)) = 0 Then Exit Sub4 ?6 w7 O. n. ^7 Q B0 I
' -- Check for EXT$ T# G/ V2 L! |$ \6 ]' b m
If Len(strReportName) <= 5 Then1 \$ G# o" r) M- K3 E
strReportName = strReportName & ".html"
) D, L' }2 j7 B, @Else
0 h9 p& V! k7 q3 N If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html"
" i/ X, y3 F9 F8 e7 yEnd If' `" z0 \* G3 i9 L; B$ F' l% I0 u
0 u( E3 ?" U. N. b! z改为, W! M) A+ O" y5 n
; G* \1 x8 M- s. L6 D
|
|