截取字段

Gk667s(提问者)

怎么实现，第一个省字呢截取呢，万一有两个省字

回复

2016-10-14 15:17 

取消 回复

Gk667s(提问者)

但是这个不像固定的一串数字，这个名称有的两个有的三个不能确定的

回复

2016-10-14 14:47 

取消 回复

gxy120313

可以先把名称分开，然后再进行截取，不然没有办法进行区分

回复

2016-10-14 14:50 

取消 回复

Gk667s(提问者)

这个不太好，可以就是定位到乡或者县吗

回复

2016-10-14 14:51 

取消 回复

Gk667s(提问者)

那这个怎么定位呢

回复

2016-10-14 15:01 

取消 回复

pangfusheng

根据 省  市 县的字来定位啊

回复

2016-10-14 15:04 

取消 回复

Gk667s(提问者)

我知道根据这个来定位，怎么设置呢

回复

2016-10-14 15:05 

取消 回复

pangfusheng

SELECT
left(name,PATINDEX(\'%省%\',name)-1)\'省\',
substring(name,PATINDEX(\'%省%\',name)+1 --从【省+1后】开始截取
,PATINDEX(\'%市%\',name)-1-CHARINDEX(\'省\',name))\'市\' --市长度减掉省长度
from Tab where id=10

回复

2016-10-14 14:41 

取消 回复

pangfusheng

那就没有办法了，情况太多了。 还有没有省的呢

回复

2016-10-14 15:19 

取消 回复

pangfusheng

Public Sub abc()
Dim ar, i, rep, str
ar = Range(\"a1\").CurrentRegion
Set rep = CreateObject(\"vbscript.regexp\")
rep.Global = True
For i = 2 To UBound(ar)
    rep.Pattern = \"^.+?(省|市|自治区)\"
    ar(i, 2) = rep.Execute(ar(i, 1))(0)
    str = Replace(ar(i, 1), rep.Execute(ar(i, 1))(0), \"\")
    rep.Pattern = \"^.+?(县|市)\"
    If rep.test(str) Then
        ar(i, 3) = rep.Execute(str)(0)
        str = Replace(str, rep.Execute(str)(0), \"\")
    End If
    If rep.test(str) Then
        ar(i, 4) = rep.Execute(str)(0)
        str = Replace(str, rep.Execute(str)(0), \"\")
    End If
    rep.Pattern = \"^.+?区\"
    If rep.test(str) Then
        ar(i, 5) = rep.Execute(str)(0)
        str = Replace(str, rep.Execute(str)(0), \"\")
    End If
    ar(i, 6) = str
Next
Range(\"a1\").CurrentRegion = ar
End Sub

回复

2016-10-14 15:21 

取消 回复