在vb里怎么把文本框里的文字内容的所有链接都截取出来？

来源：百度知道 编辑：UC知道 时间：2024/05/21 13:08:44
比如说
<a href=http://go.sohu.com/45nm/index.php/Open/index target=_blank>Intel网络运动会惊现超级BT视频</a><br><a href="http://club.it.sohu.com/itmain.php?b=nightofit&c=69" target=_blank>IT夜生活</a><br><a href="http://club.it.sohu.com/itmain.php?b=nightofit&c=70">IT夜生活1</a><br><a href=http://club.it.sohu.com/itmain.php?b=nightofit&c=71>IT夜生活2</a>

我就想要http://go.sohu.com/45nm/index.php/Open/index

'复制下面代码，保存为Form1.frm，然后双击打开，运行，按command1按钮，就会看到结果。

'====Form1.frm====
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4800
ClientLeft = 60
ClientTop = 450
ClientWidth = 7440
LinkTopic = "Form1"
ScaleHeight = 4800
ScaleWidth = 7440
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 5760
TabIndex = 2
Top = 960
Width = 855
End
Begin VB.ListBox List1
Height = 1500
Left = 120
TabIndex = 1
Top = 3000
Width = 4575
End
Begin VB.TextBox Text1