VB抓取激活刀具

duxingrui · 发表于 2011-1-22 13:47:37

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

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

x

本帖最后由 duxingrui 于 2011-1-22 13:50 编辑

小弟怎么也想不出来，这个带码是怎么写出的，哪个大哥可以帮小弟一下，写一个完整代码，很是谢谢
抓取激活刀具用Command1抓取在text中显示激活刀具
截图1295675070.jpg

duxingrui · 发表于 2011-1-22 13:48:55

本帖最后由 duxingrui 于 2011-1-22 13:51 编辑

小弟怎么也想不出来，这个带码是怎么写出的，哪个大哥可以帮小弟一下，写一个完整代码，很是谢谢
抓取激活刀具用Command1抓取在text中显示激活刀具

hh749 · 发表于 2011-1-23 17:06:43

我发过这个的代码，你仔细看帖子

duxingrui · 发表于 2011-1-23 20:45:38

我这里面的贴子都看了，都没有找到，可以帮帮小弟吗？我能找到所有的刀，就是找不到激活的刀具，不能只显示激活的刀具，发上来让小弟学学好吗？谢谢大哥。

PowerMILL31.Connect
Dim result As String '变量定义
Dim SplitResult() As String '数组定义
Combo1.Clear
result = PowerMILL31.ExecuteEx("Print ENTITY TOOL")
SplitResult = Split(result, " '")
For i = 1 To UBound(SplitResult)
SplitResult(i) = Replace(SplitResult(i), " ", "")
SplitResult(i) = Replace(SplitResult(i), "'", "")
SplitResult(i) = Replace(SplitResult(i), "*", "")
SplitResult(i) = Trim(SplitResult(i))
If SplitResult(i) <> "" Then Combo1.AddItem SplitResult(i)
Next i

3# hh749

shirong2009 · 发表于 2011-1-29 14:46:42

支持一下楼主

gx06 · 发表于 2011-9-8 16:40:49

我是用正则表达式来抓取，但现在在网吧，不能给你代码。

422118txf · 发表于 2011-9-9 11:45:15

学习中！！！！！！！！！！！！！！

		自动登录	找回密码
密码			注册

通知

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

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

浏览过的版块