以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助html截取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141943)
--  作者：yjf123
--  发布时间：2019/10/14 22:07:00
--  求助html截取

求助html截取，如下html文本中，怎么通过 id="demoSplit1" 获取出  <div class="split-item" id="demoSplit1">

 

<div class="split-group" style="height: 100%;">
 <div class="split-item" id="demoSplit1">
  面板一
 </div>
 <div class="split-item" id="demoSplit2">
  面板二
 </div>
</div>
--  作者：有点蓝
--  发布时间：2019/10/14 22:17:00
--  
Dim str As String = "<div class=""split-group"" style=""height: 100%;""> <div class=""split-item"" id=""demoSplit1"">  面板一 </div>......"
Dim idx As Integer = str.IndexOf("demoSplit1")
If idx > -1 Then
    Dim s As String = str.SubString(0,idx)
    Dim i1 As Integer = s.LastIndexOf("<")
    Dim i2 As Integer = str.IndexOf(">",idx)
    s = str.SubString(i1,i2 - i1+1)
    Output.Show(s)
End If
--  作者：yjf123
--  发布时间：2019/10/14 23:06:00
--  

是想获取 <div class="split-item" id="demoSplit1">
  面板一
 </div>

写漏 后面部分了
--  作者：有点蓝
--  发布时间：2019/10/14 23:10:00
--  
    Dim i2 As Integer = str.IndexOf("</div>",idx)
    s = str.SubString(i1,i2 - i1+6)