以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  字符提取  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43569)
--  作者：Liangcai
--  发布时间：2013/12/10 14:16:00
--  字符提取

我想从"户籍地"列提取市县到"户籍市县",比如:河北省,提取为:大名县

e.DataRow("户籍市县") = e.DataRow("户籍地").SubString(6,16)




图片点击可在新窗口打开查看此主题相关图片如下：qq截图20131210144135.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-12-10 14:42:31编辑过]
--  作者：Bin
--  发布时间：2013/12/10 14:20:00
--  
Dim s As String ="广东省湛江市"
MessageBox.show(s.Split("省")(1))

是否是想这样.
--  作者：Liangcai
--  发布时间：2013/12/10 14:22:00
--  

不要省份
--  作者：Bin
--  发布时间：2013/12/10 14:26:00
--  
请先测试再发表回复,不要看都不看,试都不试,张口就乱说一通.

2楼的方法得出来的结果没有省份.
--  作者：Liangcai
--  发布时间：2013/12/10 14:40:00
--  

不好意思,我没说清楚,是从"户籍地"列引用到"户籍市县"列,不要省份
--  作者：Bin
--  发布时间：2013/12/10 14:42:00
--  
2楼的代码就是,你测试过了吗?

e.DataRow("户籍市县") = e.DataRow("户籍地").Split("省")(1)
--  作者：longtechwj
--  发布时间：2013/12/10 15:11:00
--  
if e.DataRow("户籍市县")<>Nothing And Cstr(e.DataRow("户籍市县")).IndexOf("省",0)>0 And Cstr(e.DataRow("户籍市县")).IndexOf("省",0).Length>=2 then
e.DataRow("户籍市县") = e.DataRow("户籍地").SubString( Cstr(e.DataRow("户籍地")).Length-  Cstr(e.DataRow("户籍地")).IndexOf("省",0)+1, Cstr(e.DataRow("户籍地")).Length- Cstr(e.DataRow("户籍地")).IndexOf("省",0)-1)
end if
其实BIN的方法最简单，没必要去字符串截取
--  作者：Liangcai
--  发布时间：2013/12/10 16:34:00
--  

谢谢