用ＶＢＡ实现提取字符串中的字符。

紫龙啸天　发表于：2013-01-31 10:35:54 　

如上图所示：现需要将地址一列中的区名（如南城、莞城、万江等）提取至镇街一列中，请问用ＶＢ编辑器如何实现，请给出详细的ＶＢ代码。谢谢！！！地址一列中的字符串长度不等，有的15个字，有的20-30不等。

李春宝发表于：2013-01-31 15:53:43

建立一个窗体，在窗体上加个按钮，在按钮点击事件中加如下代码：

Dim gx As String
gx = "update 信息 set 镇街=left(Mid([信息.地址], InStr(1, [信息.地址], '市') + 1),instr(1,Mid([信息.地址], InStr(1, [信息.地址], '市') + 1),'区')) "
DoCmd.RunSQL gx

点击下载此附件

Top

纵云梯发表于：2013-01-31 17:01:14

=Mid([地址],7,InStr(1,[地址],"区")-7)

Top

李春宝发表于：2013-01-31 17:54:19

点击下载此附件这回再看看是不是你想要的

Top

落尘_小新发表于：2013-01-31 21:16:10

如果省和市的名称字符数不固定的话,写成下面这样更准确.

=Mid([地址],InStr(1,[地址],"市"),InStr(1,[地址],"区")-InStr(1,[地址],"市"))

Top

落尘_小新发表于：2013-01-31 21:21:57

= Mid([地址], InStr(1, [地址], "市") + 1, InStr(1, [地址], "区") - InStr(1, [地址], "市"))

修正一下,前面写的句是错的.这个才对.

Top

紫龙啸天发表于：2013-01-31 21:41:13

我就是要市后两位就可以了！因为不是每个地址都有区的。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

用ＶＢＡ实现提取字符串中的字符。