UC知道vb.net 提取特定字符串
来源：百度知道 编辑：UC知道 时间：2024/09/28 15:12:24
类似以下的文本：
doiicfur utiyo:('http://www.aa.com/images/dhuu.png')bur;
提取 http://www.aa.com/images/dhuu.png 输出到一个字符串变量,一行一行的保存进去。
而且这样的文本特别多，文本来源能直接读文本文件。
给一个完整的代码，谢谢～～
字符串长度不定哦～～ 只判断http://是不行的。想要提取的是一个特定区间内的字符串，这个区间内的字符串长度不定。
doiicfur utiyo:('http://www.aa.com/images/dhuu.png')bur;
提取 http://www.aa.com/images/dhuu.png 输出到一个字符串变量,一行一行的保存进去。
而且这样的文本特别多，文本来源能直接读文本文件。
给一个完整的代码，谢谢～～
字符串长度不定哦～～ 只判断http://是不行的。想要提取的是一个特定区间内的字符串，这个区间内的字符串长度不定。
VB.net里有Split函数吗？
我的思路是，先寻找http://字符，然后向后寻找第一个在链接中肯定不会出现的字符，比如 < ' " ; , 等等，截取中间这段就行啦
比如
doiicfur utiyo:('http://www.aa.com/images/dhuu.png')bur;
先查找"http://",发现在第19个字符处（一定要注意，VB.net第一个字符的索引值下标为0，所以h是第20个字母，搜索所得到的结果就是19）
然后从19向后搜索异常字符（ < > " ' ; , ）之类，得到第二个搜索结果，将这两个结果中间的部分截取就是链接啦
在VB中是这样的，没学过VB.net，你变换一下就可以了
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" & Num(0) & vbCrLf & "Num(1)=" & Num(1) & vbCrLf & "Num(2)=" & Num(2)
'如果想测试是不是可以计算，可以用这一句
'MsgBox "Num(0)+1=" & Num(0) + 1 & vbCrLf & "Num(1)+1=" & Num(1) + 1 & vbCrLf & "