[求助]数据获得两个字之间的内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如

姓名张三性别男体重50KG

请问如何使用字符串拆解的方法获得性别与体重之间的值男，或者姓名与性别之间的张三，名字不是固定的两位，有可能很多，但姓名性别体重字段不会变

还有一个问题，就是

姓名张三

姓名李四

姓名王五

……

请问如何用字符串获得用户一张三用户二李四用户三王五以此类推

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))

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

命令窗口代码如下：

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

请问如何得到红色部分，困难在于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编辑过]

看3楼，4楼，自己分析字符串

http://www.foxtable.com/webhelp/scr/1338.htm

主题：[求助]数据获得两个字之间的内容