|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区
您需要 登录 才可以下载或查看,没有账号?立即注册
×
MastercamV9.1加工单(vbs版)--修正不兼容9.0的问题
4 X$ v- z. f/ O2 y3 t/ Y% s# g程序单详见下面帖
# s4 `1 e6 W: v7 }$ Y; c Khttp://postp.net/viewthread.php?tid=2432&extra=page%3D17 G( I8 Z. F; N9 _ e- v
补充说明) S/ t* V" X+ u, l& I* H
有用户反映用于9.1会是9.0出错,下面是用于9.0的解决方法,环境不足,未能测试.
7 f4 }% V' t, M7 u3 u E2 Q" z- d1 ?) k5 R9 S0 G
找到下面的代码.
w5 X9 Y2 w1 b8 X( q) O
2 ^9 [/ q& _! x sfileDir = "D:\nc\" 4 Q+ V& a, V2 [! t* R( M
' -- Prompt for a report name
2 C3 [) B6 b3 y8 M# \9 {. K3 e$ wstrReportName = AskString("请输入报表文件名")
' j1 B( F) U& O6 ]# @3 }If Len(Trim(strReportName)) = 0 Then Exit Sub# G. ^8 P# `" V5 W5 b# `, E
' -- Check for EXT$ L# I* i; o2 f; n+ {# I
If Len(strReportName) <= 5 Then3 e3 `) u, z j3 ?! S7 Q
strReportName = strReportName & ".html"
/ v0 J: X1 s \7 O2 gElse. L+ B( L; K3 o* ], D/ w
If Right(LCase(strReportName), 5) <> ".html" Then strReportName = strReportName & ".html", a1 o* K& W& r# T
End If
~: Z3 L6 h2 [! G% t7 ?$ T" u
4 w0 x9 M% W2 c( }4 ?; _0 {. a改为! j- K8 ?& c8 Q) g8 T6 ~
: V0 i+ L3 @, M# l
|
|