以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据获得两个字之间的内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90825)
--  作者：188802386
--  发布时间：2016/9/22 12:30:00
--  [求助]数据获得两个字之间的内容
比如
姓名张三性别男体重50KG
请问如何使用字符串拆解的方法获得性别与体重之间的值 男，或者姓名与性别之间的张三，名字不是固定的两位，有可能很多，但姓名 性别  体重 字段不会变
--  作者：188802386
--  发布时间：2016/9/22 12:34:00
--  
还有一个问题，就是
姓名张三
姓名李四
姓名王五
……
请问如何用字符串获得用户一张三   用户二李四  用户三王五   以此类推
--  作者：狐狸爸爸
--  发布时间：2016/9/22 12:43:00
--  

Dim s As String = "姓名张三四性别男体重50KG"
Dim i0 As Integer = s.IndexOf("姓名")
Dim i1 As Integer = s.IndexOf("性别")
Dim i2 As Integer = s.Indexof("体重")
output.show(s.Substring(i0 + 2,i1 - i0 - 2))
output.show(s.Substring(i1 + 2,i2 - i1 - 2))
output.show(s.Substring(i2 + 2))

 

 
--  作者：狐狸爸爸
--  发布时间：2016/9/22 12:51:00
--  
Dim s As String = "姓名张三" & vbcrlf & "姓名李四" & vbcrlf &  "姓名王五"
output.show(s)
output.show("-------------------")
Dim pts() As String = s.replace(vbcrlf,"|").split("|")
For i As Integer = 0 To pts.length - 1
    output.show(pts(i).replace("姓名","用户" & i & ":"))
Next
--  作者：188802386
--  发布时间：2016/9/22 15:16:00
--  
命令窗口代码如下：
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
web.Navigate("http://weidian.eallcn.com/232621561/mmfy/mmfydetail/id=3603988")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

For Each dl As object In web.Document.GetElementsByTagName("DIV")
    If dl.GetAttribute("classname") = "fyxxybox2" OrElse dl.GetAttribute("classname") = "fyxxybox2_n" Then
        output.show(dl.Innertext)
    End If
Next

请问如何得到红色部分，困难在于dl.Innertext是几次得到这个数据的（用msgbox会有几个弹窗）
output.show("售价：“ & 75万）
output.show("面积：“ & 120.68㎡）
output.show("户型：“ & 3室2厅）
output.show("单价：“ & 6214.78元/㎡）
output.show("编号：“ & D-16-33472）
output.show("楼层：“ & 7层/18层）
output.show("装修：“ & 精装）
output.show("类型：“ & 商品房）
output.show("年代：“ & 2008）
output.show("小区：“ & 新城丽景）
[此贴子已经被作者于2016/9/22 15:16:56编辑过]
--  作者：有点蓝
--  发布时间：2016/9/22 15:40:00
--  
看3楼，4楼，自己分析字符串