- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎样智能截取字段的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44896)
-- 发布时间：2014/1/11 12:10:00
-- 怎样智能截取字段的
大神们 怎么样截取字段？ 当字段里面有区的时候 截取区之前的字段，有县的时候截取县之前的字段，否则截取市之前的字段，截取字段之后把字段里面包含的省，市，区，县 字 给去掉 。思前想后不会做 求指点
此主题相关图片如下：qcrp@y3684_@_z@`k$`q5@4.jpg
-- 发布时间：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))
Dim Parts() As String = Tel.Split("省")
Output.Show("省:" & Parts(0) & " 市 :" & Parts(1).Split("市")(0) & " 区: " & Parts(1).Split("市")(1).Split("区")(0))
-- 发布时间：2014/1/11 12:22:00
--
http://www.foxtable.com/help/topics/1338.htm
[此贴子已经被作者于2014-1-11 12:22:31编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2014/1/11 14:08:00
--
谢谢。。虽然写出来了 但是远没有你的代码简单
-- 发布时间：2014/1/11 18:09:00
--
挺好
-- 发布时间：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编辑过]
-- 发布时间：2014/1/13 13:54:00
--
Dim s As String = "江苏省无锡市南长区无名县有名街道办事处"
Dim str As String = s.SubString(0,s.IndexOf("县")+1)
Output.Show(str)