盒子论坛 v2.1

怎么才能读取它里面的字的链接
如写了一段文字xxxx它有个Link是www.delphibox.com
我现在能取到xxxx但怎么取里面的Link呢？？？？？
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/9 9:55:34

1楼：

能读取到这个字符串了，你搜索字符串中有没有www.这个串，然后提出那个自串不就ok了。
i:=pos(xxxx,'www.');
j:=pos(xxxx,'.com');
copy(xxxx,i,j+4-i);
至于怎么确定是不是.com结尾的网址，自己想办法了。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/9/9 11:34:31

2楼：

我就是读不到这个写串呀　要用什么办法才可以读到一个文字背后的Link
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/9/9 12:11:08

3楼：

我是说只能读到xxxx字串　但其背后的www.delphibox.com这个字串读不到
我是用cells[i,j]的
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/9 15:24:57

4楼：

啊，怎么会呢，那个xxxx包含 www.delphibox.com 吗？
什么叫背后的字符串呀。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/9/9 23:42:53

5楼：

没有包含呀　我现在在vba中找到一些属性
Dim str
str = Sheet1.Hyperlinks.Item(1).Address
在vb中可以后这个Hyperlinks属性把里面的链接给读出来
但　我在delphi中怎么用都不对　真是想不通呀　望高手指点一二
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/9/10 0:27:38

6楼：

看来好像zizii还没明白我的意思
你打开一个excel后在一个单元格中填点东西然后右击选链接然后选一个网址
这个这个单元格中就既有了你输入的xxxx又有一个链接如www.delphibox.com
现在我要取得这个链接要怎么作
在VBA中我用以后这段代码已经成功取得了这些链接
    Dim str
    Dim i
    For i = 1 To Sheet1.Hyperlinks.Count
    str = Sheet1.Hyperlinks.Item(1).Address
    Next i
但现在怎么用在delphi中呀
我在delphi中用了但老报“找不到成员”的错误　有没有什么办法？
----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/9/10 21:54:23

7楼：

噢，我明白你的意思了，不过我没有做过这种咚咚，vba在delphi中使用很多地方是不一样的，很可能函数参数使用方法不一样，要不你找到相关资料，要不你就自己胡乱猜测试试看。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

fidido (swGuitar)	★☆☆☆☆	-
	盒子活跃会员

2003/9/10 23:32:45

8楼：

嗯　谢谢zizii问题已经解决用vba中的对象搞定
不过vba的东西真麻烦同样一个如Hyperlinks在分别用作　对象，集合，属性　的时候用法都不一样好难找呀　还是Delphi好

----------------------------------------------
我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~

信息

登陆以后才能回复