Question

VB的字符串截取函数

在列表打印时，有一个“身份证地址”字段，另外还有一个字段要截取“身份证地址”的“XXX市”（或：XXX县），如：湖南省长沙市武陵镇***乡，我要将“长沙市”这个字符串提取出来，应该用什么函数呢？不同人都有不同的地址，都要提取这个“XXX市”（或：XXX县）”。请高人指点！！

Answer 1

'文本框的值可以用变量代替
'四个文本框 t0 身份证信息, T1 取得 省 前字符, T2 取 省 和 市 之间字符, T3 取 市 到 县 之间字符
'主要是计算"省市县在不定长字符串中的位置"
'一 取"省"前字符
T1.Value = Mid(T0.Value, 1, InStr(T0.Value, "省") - 1)

'取 省 到 市 之间 字符 到 T2
T2.Value = Mid(T0.Value, InStr(T0.Value, "省") + 1, InStr(T0.Value, "市") - InStr(T0.Value, "省") - 1)

'取 市 到 县 之间 字符 到 T3
T3.Value = Mid(T0.Value, InStr(T0.Value, "市") + 1, InStr(T0.Value, "县") - InStr(T0.Value, "市") - 1)

Answer 2

由于要获取的内容是变化的，所以以"省"、"市"、"县"等都存在的固定字符为参照来匹配查找，基本有两种方法：

1.用简单的字符串处理函数
先用instr()查找"省"、"市"、"县"的位置，然后用mid()取出"省"和"市"中间的市名称，以及"市"和"县"之间的县名称
2.用正则表达式匹配/省*?市/以及/市*?县/,取出来后字符细节按要求处理一下就行，如果不熟悉正则表达式就用第一种方法

Answer 3

Mid(身份证地址变量,InStr(身份证地址变量,"XXX市"),Len("XXX市"))

Answer 4

用MID函数