怎样智能截取字段的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样智能截取字段的

共有4602人关注过本帖树形打印复制链接主题：怎样智能截取字段的

123go

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：52 积分：403 威望：0 精华：0 注册：2013/12/24 12:09:00

怎样智能截取字段的 发帖心情

Post By：2014/1/11 12:10:00 [只看该作者]

大神们怎么样截取字段？当字段里面有区的时候截取区之前的字段，有县的时候截取县之前的字段，否则截取市之前的字段，截取字段之后把字段里面包含的省，市，区，县字给去掉。思前想后不会做求指点

此主题相关图片如下：qcrp@y3684_@_z@`k$`q5@4.jpg

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/1/11 12:22:00 [只看该作者]

Dim Tel As String = "江苏省无锡市南长区"
Dim Parts() As String = Tel.Split("省")
Output.Show("省:" & Parts(0) & " 市 :" & Parts(1).Split("市")(0) & " 区: " & Parts(1).Split("市")(1).Split("区")(0))

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/1/11 12:22:00 [只看该作者]

http://www.foxtable.com/help/topics/1338.htm

[此贴子已经被作者于2014-1-11 12:22:31编辑过]

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/1/11 13:14:00 [只看该作者]

Dim s As String = "江苏省无锡市南长区无名县有名街道办事处"
Dim str() As String = {"县","区","市"}
For i As Integer = 0 To str.Length - 1
    If s.Contains(str(i)) Then
        Output.Show(s.Split(str(i))(0).RePlace("省","").RePlace("市","").RePlace("区",""))
        Exit For
    End If
Next

[此贴子已经被作者于2014-1-11 13:19:26编辑过]

123go

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：52 积分：403 威望：0 精华：0 注册：2013/12/24 12:09:00

Post By：2014/1/11 14:08:00 [只看该作者]

谢谢。。虽然写出来了但是远没有你的代码简单

包头123

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1049 积分：8150 威望：0 精华：0 注册：2011/10/11 11:13:00

Post By：2014/1/11 18:09:00 [只看该作者]

挺好

123go

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：52 积分：403 威望：0 精华：0 注册：2013/12/24 12:09:00

Post By：2014/1/13 13:43:00 [只看该作者]

Dim s As String = "江苏省无锡市南长区无名县有名街道办事处"
Dim str() As String = {"县","区","市"}
For i As Integer = 0 To str.Length - 1
    If s.Contains(str(i)) Then
        Output.Show(s.Split(str(i))(0))
        Exit For
    End If
Next
这样写的话为什么最后面县字不出现呢？大神们人呢？给看看哇

[此贴子已经被作者于2014-1-13 13:49:22编辑过]

blackzhu

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/1/13 13:54:00 [只看该作者]

Dim s As String = "江苏省无锡市南长区无名县有名街道办事处"

Dim str As String = s.SubString(0,s.IndexOf("县")+1)

Output.Show(str)

下一主题 >> << 上一主题

主题：怎样智能截取字段的