陈永娥 13325357396
卢欢 郑盈
已确定__李王琴 1__李王琴
已确定__陈炳树 周旭洪__陈炳树 周旭洪
已确定__薛常鹏 周玲 58__薛常鹏 周玲 58
已确定_12678_张思为 彭碧霞
已确定_白翔翰 张英男_白翔翰 张英男
现要求提取出其中的客户名称，不要重复，提取出来的结果应该如下：
陈永娥
卢欢 郑盈
李王琴
陈炳树 周旭洪
薛常鹏 周玲
张思为 彭碧霞
白翔翰 张英男
请教各位大神，如何作这个正则匹配？先谢谢了。
-
等级
本版专家分：2016结帖率 81.82% -
如题 ，有一组如下客户数据：
现要求提取出其中的客户名称，不要重复，提取出来的结果应该如下：
请教各位大神，如何作这个正则匹配？先谢谢了。展开阅读全文
-
等级
本版专家分：29432勋章
-
- 技术圈认证 用户完成年度认证，即可获得
-
- 签到达人 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
-
黄花
2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
-
-
'此代码由“VB正则测试代码自动化生成工具V1.1.43”自动生成，请直接调用TestReg过程
Private Sub TestReg()
Dim strData As String
Dim reg As Object
strData = "陈永娥 13325357396" & vbCrLf & _
"卢欢 郑盈" & vbCrLf & _
"已确定__李王琴 1__李王琴" & vbCrLf & _
"已确定__陈炳树 周旭洪__陈炳树 周旭洪" & vbCrLf & _
"已确定__薛常鹏 周玲 58__薛常鹏 周玲 58" & vbCrLf & _
"已确定_12678_张思为 彭碧霞" & vbCrLf & _
"已确定_白翔翰 张英男_白翔翰 张英男"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "[^\u4e00-\u9fa5\r\n ]|已确定"
Debug.Print reg.Replace(strData, " ")
End Sub
-
等级
本版专家分：2016
-
谢谢版主，可能你没理解到我的问题，我只是列举了一些客户数据的例子，是想说明遇到的数据会是哪些样式。
我只是想得到一个公式，能够把上面每条数据代入，都可以直接提取出客户姓名这样！
还有的情况是：数据可能就3个字、2个字就已经是客户的姓名了。
而且你这这个表达式出来还有重复的，也不是我想要的。但是还是谢谢你的方法，我再看看如何改进。
-
等级
本版专家分：29432勋章
-
- 技术圈认证 用户完成年度认证，即可获得
-
- 签到达人 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
-
黄花
2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
-
-
上面分两个问题，提取是一个问题，排除重复是一个问题。 前面的帮你解决了，后面的是非常基础的问题了，如果这都懒得弄倒不如花人民币雇人弄了
-
等级
本版专家分：40553勋章
-
- 状元 2017年 总版技术专家分年内排行榜第一
-
- 榜眼 2014年 总版技术专家分年内排行榜第二
-
- 探花 2013年 总版技术专家分年内排行榜第三
-
-
进士
2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
-
-
排除重复可以借助字典容器。
-
等级
本版专家分：40553勋章
-
- 状元 2017年 总版技术专家分年内排行榜第一
-
- 榜眼 2014年 总版技术专家分年内排行榜第二
-
- 探花 2013年 总版技术专家分年内排行榜第三
-
-
进士
2018年总版新获得的技术专家分排名前十
2012年 总版技术专家分年内排行榜第七
-
-
Dictionary 对象
描述
对象，用于存储数据关键字和条目对。
语法
Scripting.Dictionary
说明
Dictionary 对象与 PERL 关联数组等价。可以是任何形式的数据的条目被存储在数组中。每个条目都与一个唯一的关键字相关联。该关键字用来检索单个条目，通常是整数或字符串，可以是除数组外的任何类型。
下面的代码举例说明了如何创建一个 Dictionary 对象：
Dim d '创建一个变量
Set d = CreateObject(Scripting.Dictionary)
d.Add "a", "Athens" '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
-
等级
本版专家分：60297勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
你这“重复”还有歧义呢！
是指“同一条中”不出现重复的名字，
还是指“所有记录项中”都不出现重复名字？
你的这个“举例”并没有表明这个问题。
比如第2条中出现了“郑盈”这个名字，
如果之后的某条记录中也出现了“郑盈”，那么这个算是重复了呢，还是不算重复…………
假设情况：
1. 第2条是“卢欢 郑盈”，后面某记录出现的是“张三、 郑盈”；
2. 第2条是“卢欢 郑盈”，后面又出现了某记录，仍然只包含“卢欢 、郑盈”二人（当然没有这种情况就不考虑了）。
-
等级
本版专家分：118811勋章
-
-
红花
2014年6月 VB大版内专家分月排行榜第一
2014年5月 VB大版内专家分月排行榜第一
2014年4月 VB大版内专家分月排行榜第一
2014年3月 VB大版内专家分月排行榜第一
2014年2月 VB大版内专家分月排行榜第一
2014年1月 VB大版内专家分月排行榜第一
2013年11月 VB大版内专家分月排行榜第一
-
-
黄花
2013年12月 VB大版内专家分月排行榜第二
2013年3月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第二
2012年9月 VB大版内专家分月排行榜第二
2012年8月 VB大版内专家分月排行榜第二
2012年7月 VB大版内专家分月排行榜第二
2006年7月 VB大版内专家分月排行榜第二
2006年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2014年9月 VB大版内专家分月排行榜第三
2013年7月 VB大版内专家分月排行榜第三
2013年6月 VB大版内专家分月排行榜第三
2013年4月 VB大版内专家分月排行榜第三
2012年11月 VB大版内专家分月排行榜第三
2006年6月 VB大版内专家分月排行榜第三
2006年4月 VB大版内专家分月排行榜第三
2002年12月 VB大版内专家分月排行榜第三
2002年11月 VB大版内专家分月排行榜第三
-
-
用代码可以实现。如果不是正则表达式的作业的话。
Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim strData As String, strTmp As String
Dim strLine() As String, strItem() As String
strData = "陈永娥 13325357396" & vbCrLf & _
"卢欢 郑盈" & vbCrLf & _
"已确定__李王琴 1__李王琴" & vbCrLf & _
"已确定__陈炳树 周旭洪__陈炳树 周旭洪" & vbCrLf & _
"已确定__薛常鹏 周玲 58__薛常鹏 周玲 58" & vbCrLf & _
"已确定_12678_张思为 彭碧霞" & vbCrLf & _
"已确定_白翔翰 张英男_白翔翰 张英男"
strData = Replace(strData, "已确定_", "")
strData = Replace(strData, "_", " ")
strData = Replace(strData, vbCrLf & " ", vbCrLf)
For i = 1 To Len(strData)
If Asc(Mid(strData, i, 1)) < 0 Or Mid(strData, i, 1) = Space(1) Or Mid(strData, i, 1) = vbCr Or Mid(strData, i, 1) = vbLf Then
strTmp = strTmp & Mid(strData, i, 1)
End If
Next i
Do While InStr(strTmp, Space(2))
strTmp = Replace(strTmp, Space(2), Space(1))
Loop
List1.Clear
strLine = Split(strTmp, vbCrLf)
For i = 0 To UBound(strLine)
strItem = Split(strLine(i), Space(1))
For j = 0 To UBound(strItem)
If -1 = SendMessagebyString(List1.hWND, LB_FINDSTRINGEXACT, -1, Trim(strItem(j))) Then
List1.AddItem Trim(strItem(j))
List1.ItemData(List1.NewIndex) = i
End If
Next j
Next i
ReDim strItem(UBound(strLine))
For i = 0 To List1.ListCount - 1
If List1.List(i) > "" Then strItem(List1.ItemData(i)) = strItem(List1.ItemData(i)) & List1.List(i) & " "
Next i
List2.Clear
For i = 0 To UBound(strItem)
List2.AddItem strItem(i)
Next i
End Sub
-
等级
本版专家分：2016
-
已搞定！用了？！非贪心匹配！
-
等级
本版专家分：60297勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
你这个用“非贪心匹配”还是可以实现“提取姓名”。
因为你的这个姓名与姓名之间总会有“非汉字”的内容来分隔。
我以前处理过的一个报表，这种方式就不行了。
因这她们在输入姓名的时候，有可能会把几个人的名字直接输入在一起、没有任何分隔！
只能按“标准姓名表”进行“贪心匹配”才行。
- 正则表达式的汉字匹配
这里是几个主要非英文语系字符范围 2E80～33FFh：中日韩符号区。收容康熙字典部首、中日韩辅助部首、注音符号、日本假名、韩文音符，中日韩的符号、标点、带圈或带括符文数字、月份，以及日本的假名组合、单位、年...
- 正则表达式-匹配多个汉字
正则表达式-匹配多个汉字 [\x{4e00}-\x{9fa5}]+
- 正则表达式匹配单个汉字及多个汉字
方法一：利用正则表达式 [\u4e00-\u9fa5] //1.匹配单个汉字 boolean flag1 = Pattern.matches("[\\u4e00-\\u9fa5]","我"); System.out.println(flag1); //true 方法二：利用正则表达式 [^\x00-\xff] //2.匹配单个...
- Python正则表达式匹配中文
在使用Python的过程中，由于需求原因，我们经常需要在文本或者网页元素中用Python正则表达式匹配中文，但是我们经常所熟知的正则表达式却只能匹 配英文，而对于中文编码却望尘莫及，于是我大量Google，几经Baidu，花...
- JavaScript- 正则表达式匹配汉字
在谷歌搜索「JavaScript 正则表达式匹配汉字」的时候，前几条结果全都是`/[\u4e00-\u9fa5]/`。没有人怀疑这个正则表达式有什么问题，那么在 2018 年的今天，让我们站在 Chrome 64 的肩膀上，放飞一下自我。 汉文...
- Python中使用中文正则表达式匹配指定的中文字符串
业务场景如下： 从中文字句中匹配出指定的中文子字符串
- 如何用正则表达式匹配中文
因为之前并没有学过正则表达式，只好恶补了一下。在匹配的过程中遇到了一些问题，特别是在匹配中文的时候，很是蛋疼。下面说一下我的学习成果。 使用php在匹配中文的时候不能使用 \w 来匹配，可以使用元字符 . 来...
- 比较常用的几个正则表达式(匹配数字)
<div class="blog-content-box"> <div class="article-title-box"> <span class="article-type type-1 float-left"&...g
- 正则表达式匹配指定范围数字及各种常用例子
一、写一个正则表达式，用来匹配1~4095的数字。 现在就以这个为例，说一下表示范围的正则怎么写。 1、只有1~3位数字，即数字范围：1~999。 分析：第1个数字是1~9，后面的可以出现0~9的数字，最多2位。于是，就有...
- 正则表达式匹配所有中文字符或者带有双引号的字符
需求是统计工程里所有中文字符（中文注释除外），并且整理到word文档中。例如，工程里一个带有中文字符的文件如下...首先我们用正则表达式匹配文件里（java）所有带有双引号的中文字符。刚开始我用的表达式是："[\u4...
- 正则表达式匹配指定字符串后的数字
目的：通过正则表达式来判断Jmter脚本断言 匹配的文本（Jenkins控制台输出日志）： summary = 1 in 00:00:01 = 1.8/s Avg: 407 Min: 407 Max: 407 Err: 0 (0.00%) 正则表达式： (?<=Err\:)\s*\d*[1-9]或(?<...
- python中如何用正则表达式匹配汉字
由于 需求原因，需要匹配 提取中文，大量google下，并没有我需要的。花了一个小时大概测试，此utf8中文通过，特留文。 参考： http://hi.baidu.com/nivrrex/blog/item/e6ccaf511d0926888d543071.html ...
- JavaScript 正则表达式匹配汉字
在谷歌搜索「JavaScript 正则表达式匹配汉字」的时候，前几条结果全都是 /[\u4e00-\u9fa5]/。没有人怀疑这个正则表达式有什么问题，那么在 2018 年的今天，让我们站在 Chrome 64 的肩膀上，放飞一下自我。 汉文...
- 正则表达式匹配汉字
这里是几个主要非英文语系字符范围 2E80～33FFh：中日韩符号区。收容康熙字典部首、中日韩辅助部首、注音符号、日本假名、韩文音符，中日韩的符号、标点、带圈或带括符文数字、月份，以及日本的假名组合、单位、年号...
- Python中的正则表达式匹配中文问题
python中正则表达式匹配中文是没有问题的，但是其中有一个关键点，那就是pattern中的中文编码必须和要匹配字符串保持一致；下面使用一个例子来说明：# -*- coding: utf-8 -*- test.html内容为 ： 作 者： （美）...
- python正则表达式匹配中文
今天遇到一个问题，想用正则表达式匹配一段文本： 比如：几个、几样、几招、几种 1个，2种，3样……20个等 以及一个，二种，三样……二十样等 起初是这样写的，一直不对。。 几[种样款个类招]+? [0-9]+[种样款...
- 正则表达式匹配样式
匹配中文字符的正则表达式： [u4e00-u9fa5] 评注：匹配中文还真是个头疼的事，有了这个表达式就好办了 匹配双字节字符(包括汉字在内)：[^x00-xff] 评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII...
- 正则表达式匹配两个字符中间的文本
String skh ="(?<=\\《)[^\\》]+";//用于匹配《》里面的文本 String str="但实际上《kajdwdej》孙大伟多";//测试字符串 转载于:https://www.cnblogs.com/XuPengLB/p/10954207.html...
- 正则表达式匹配http链接
写正则表达式，匹配以下例如： http://hello.hello.com和大海 http://hello.hello.com和大海 http://hello.aaa.com和大海 http://hello.hello.com.cn和大海 http://hello.hello.name和大海 http://hello.hello.top和...
- 正则表达式如何匹配正反斜杠
转载链接：http://wiki.ubuntu.org.cn/Python%E6%AD%A3%E5%88%99%E8%A1%A8%E8%BE%BE%E5%BC%8F%E6%93%8D%E4%BD%9C%E6%8C%87%E5%8D%97#.E5.8F.8D.E6.96.9C.E6.9D.A0.E7.9A.84.E9.BA.BB.E7.83.A6 ...
- 正则表达式匹配连续出现的单词
，或者”好的的“，明显是多输入了，这时候希望把这种情况给检查出来，使用正则表达式可以达到这个要求。 String p2 = "(\\s*|\\s*\\S+\\s+)([A-Za-z]+)\\s+\\2"; boolean isMatch = Pattern.matches(p,...
- 比较常用的几个正则表达式(匹配数字
比较常用的几个正则表达式(匹配数字正则表达式用于字符串处理、表单验证等场合，实用高效。现将一些常用的表达式收集于此，以备不时之需。匹配中文字符的正则表达式： [/u4e00-/u9fa5]评注：匹配中文还真是个头疼的...
- 用正则表达式匹配url网址
<div class="b_cont"> <p> 最新录制的<a href='' target='_blank'&...了，这套系统我做出来有5年多了，这还是首次在网络上授课，一个波段的方向和体
- 2020数学建模B题及其数据
2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据 2020年数学建模国赛B题及其数据
- C语言及程序设计初步
课程针对没有任何程序设计基础的初学者，全面介绍C语言及利用C语言进行程序设计的方法。课程注重知识的传授，更关注学习者能够通过实践的方式，真正学会利用C语言解决问题，奠定程序设计的基础。为此，专门设计了实践方案，指导学习者在听讲的同时，有效完成实践。讲课中还适时穿插进行学习指导，帮助初学者尽快掌握程序设计的学习方法。 课程主要针对无任何编程经历的初学者，利用主讲者多年来教授大一学生的教学经验，准确把握知识点掌握中的难点，在和视频配套的实践方案配合下，帮助初学者顺利掌握知识，获得学习中的自信。
- 2020数学建模A题
2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据
- Visio_2016
visio_2016下载安装，亲测可用，不需要破解，而且无秘钥。简单方便实用
- Xshell6完美破解版，亲测可用
Xshell6破解版，亲测可用，分享给大家。直接解压即可使用
- 个人简历模板
优质简历模板，目前最前全的模板收藏，需要换工作的小伙伴们可以试试