QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3483|回复: 6
收起左侧

[已解决] VB抓取激活刀具

[复制链接]
发表于 2011-1-22 13:47:37 | 显示全部楼层 |阅读模式 来自: 中国辽宁大连

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 duxingrui 于 2011-1-22 13:50 编辑
5 t" N0 H, k7 r, p* W( C+ j) j) a  J0 n* a' u  V5 V
小弟怎么也想不出来,这个带码是怎么写出的,哪个大哥可以帮小弟一下,写一个完整代码,很是谢谢1 B( f! ~' N' x. X/ L" X7 O
抓取激活刀具  用Command1抓取  在text中显示激活刀具+ b: T( k0 P1 W3 a+ u- P
截图1295675070.jpg
 楼主| 发表于 2011-1-22 13:48:55 | 显示全部楼层 来自: 中国辽宁大连
本帖最后由 duxingrui 于 2011-1-22 13:51 编辑
" d/ S$ n# J5 {1 z9 j3 W' p5 O+ r# [, X5 K5 N  g1 V
小弟怎么也想不出来,这个带码是怎么写出的,哪个大哥可以帮小弟一下,写一个完整代码,很是谢谢
8 s1 C) D( `! C6 n抓取激活刀具  用Command1抓取  在text中显示激活刀具
发表于 2011-1-23 17:06:43 | 显示全部楼层 来自: 中国浙江杭州
我发过这个的代码,你仔细看帖子
 楼主| 发表于 2011-1-23 20:45:38 | 显示全部楼层 来自: 中国辽宁大连
我这里面的贴子都看了,都没有找到,可以帮帮小弟吗?我能找到所有的刀,就是找不到激活的刀具,不能只显示激活的刀具,发上来让小弟学学好吗?谢谢大哥。% `1 ^" @' U8 o$ l6 [) J
; a- r! T- @8 }! ?8 A+ I% m
PowerMILL31.Connect3 @7 u9 b: |/ F! e
  Dim result As String                           '变量定义& N" ?. j# @4 I& S0 ?
  Dim SplitResult() As String              '数组定义" y  M4 X/ y5 |7 `
Combo1.Clear
$ P( b  ^& i2 w: p' Y! d) Q9 Eresult = PowerMILL31.ExecuteEx("Print ENTITY TOOL"): J+ f6 m. Z5 d, N3 S* A' V! x
SplitResult = Split(result, " '")& F' c9 Y1 s' O# E: ]7 l
For i = 1 To UBound(SplitResult)8 ?; B5 J5 k2 w: Y; ^5 }. |# Q$ Z/ w
    SplitResult(i) = Replace(SplitResult(i), " ", "")" s: x8 x/ D3 T, B" [; `5 a- Z3 U
    SplitResult(i) = Replace(SplitResult(i), "'", "")/ c0 D! U7 C& A/ M1 F4 z9 s9 [
    SplitResult(i) = Replace(SplitResult(i), "*", "")" [+ B% e' N" \9 z/ B2 V) S
    SplitResult(i) = Trim(SplitResult(i))* k' s* }6 Q  o: h# y
    If SplitResult(i) <> "" Then Combo1.AddItem SplitResult(i)
! d+ R! j8 C# x7 S: a9 A/ o, ENext i( y. k6 t8 b6 q

4 P+ O4 i8 `* {$ n0 N0 u4 d
. D: E7 C% [; U: F# L 3# hh749
发表于 2011-1-29 14:46:42 | 显示全部楼层 来自: 中国广东东莞
支持一下楼主
发表于 2011-9-8 16:40:49 | 显示全部楼层 来自: 中国广东东莞
我是用正则表达式来抓取,但现在在网吧,不能给你代码。
发表于 2011-9-9 11:45:15 | 显示全部楼层 来自: 中国江苏苏州
学习中!!!!!!!!!!!!!!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表