请问如何查询 text中相似的字符？？并提取出这一行的url

Question

比如我的一个text中是这样 我想找出所有 相似http://news.163.com/07/0414/ 的这个URL 怎么做？？<li><a href="http://news.163.com/07/0414/15/3C24K07H0001124J.html">压力话题请您参与</a> <span>04月14日 15:34</span></li>
<li><a href="http://news.163.com/07/0414/15/3C24K1JA0001124J.html">我国今晨发射一颗北斗卫星(图)</a> <span>04月14日 15:34</span></li>
<li><a href="http://news.163.com/07/0414/15/3C24JTJ20001124J.html">上海16家银行集体承诺改进“排队问题”</a> <span>04月14日 15:34</span></li>
<li><a href="http://news.163.com/07/0414/15/3C24JGUO0001124J.html">广东游客巧遇温总理</a> <span>04月14日 15:34</span></li>
<li><a href="http://news.163.com/07/0414/15/3C24JF130001124J.html">“城市压力病”：带薪休假，想说爱你不容易</a> <span>04月14日 15:34</span></li><li><a href="http://news.163.com/07/0414/15/3C24JEB80001124J.html">“南海Ⅰ号”当年或有女乘客</a> <span>04月14日 15:34</span></li>
<li><a href="http://news.163.com/07/0414/15/3C24JCH60001124J.html">分析人士提醒：要警惕慢牛变疯牛资产泡沫化</a> <span>04月14日 15:34</span></li>
<li><a href="http://news.163.com/07/0414/15/3C24G9P50001124J.html">广州楼价跌一成专家说内情</a> <span>04月14日 15:33</span></li>
<li><a href="http://news.163.com/07/0414/15/3C230MFM0001124J.html">职业规划大赛鼓励自主创业</a> <span>04月14日 15:06</span></li>
<li><a href="http://news.163.com/07/0414/15/3C230IDN0001124J.html">我国首评白金五星 花园酒店接受公示</a> <span>04月14日 15:06</span></li>

Answer 1

先把所有url取出存入字符串数组,然后逐一判定(可以考虑用instr判断,能否用instr在于你"相似"的界定)

Answer 2

rainstormmaster(暴风雨 v2.0) 
五星级的回答
你应该满足了吧

Answer 3

先把所有url取出存 ?? 我就是这步 不会

Answer 4

那取第一个url会不会？取下一个呢？取最后一个呢？3个中哪个不会？还是都会？或者是单独都会放在一起就不会？。汗，我可以去说绕口令了不知道你现在是准备怎么取，准备怎么存放，源在哪里只能泛泛告诉你“都取出来，格式化，创建你的匹配策略，过滤所有需要过滤的源，得到结果集”

Answer 5

给你一个思路，自己完善：　　Dim s() As String
    Dim i As Integer
    
    s = Split(Text1, Chr(34))　　　'用"号分组
    For i = 0 To UBound(s)
        If InStr(s(i), "http://news.163.com/07/0414/") Then
            Debug.Print s(i)　　　　'符合条件的取出来
        End If
    Next