新人求助，怎么提取特定字符之间的字符串？？

Vermouth1108

各位大大，RT，单元格里的内容是，【房地产项目辅助核算：成都保利花园四期】【客商：广州富利建筑安装工程有限公司-成都分公司】 或者【客商：成都市武侯区社会保险事业管理局】 这种格式，怎么能提取到【客商： 和 】  之间的字符串就是  广州富利建筑安装工程有限公司-成都分公司

迪尼索斯

用find加mid公式，find来定位起点何终点,mid来截取

wangxml

public function splitStr()
dim str = "【客商：广州富利建筑安装工程有限公司-成都分公司】"
msgbox Split(Split(str, "【客商：")(1), "】")(0)
end function

Vermouth1108

迪尼索斯 发表于 2017-12-19 15:17
用find加mid公式，find来定位起点何终点,mid来截取

find 定位终点的话  定位 】 这个中括号会不会有问题啊，因为 有的  【房地产项目辅助核算：成都保利花园四期】  这里面也有括号

joforn

先用正则：【(客商：)[^】]+
然后删除返回值里的"【(客商："

ggmmlol

eXp="【(?:客商：)?(.*?)】"
把eXp的值代入以下提取字符串的万能正则表达式公式字符串的"eXp"位置：
[\s\S].*?eXp|[\s\S]+
上式中的[\s\S]代表任意字符，本例中可以用元字符.代替简化成.*?eXp|.+
最终得到：
.*?【(?:客商：)?(.*?)】|.+

使用正则表达式自定义的通用型文本处理函数，验证上述正则表达式是否正确：

1. '使用正则替换方法编写的通用型自定义函数
   
2. Public Function REGREPLACE(ByVal text1$, ByVal pttn$, Optional ByVal strReplacer$ = " ")
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = pttn
   
6.         REGREPLACE = .Replace(text1, strReplacer)
   
7.     End With
   
8. End Function

复制代码

1. Sub test()
   
2. ss="【客商：A公司a分公司】，【B公司】【客商：C集团公司cc分公司】"
   
3. Msgbox REGREPLACE(ss, ".*?【(?:客商：)?(.*?)】|.+", " $1")
   
4. End Sub

复制代码