从评论中提取电话号码 [英] Extract phone numbers from comments
本文介绍了从评论中提取电话号码的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
- 我有评论专栏(5000多个案例)。
- 这些注释包含文本、数字、日期等所有内容。
- 我需要从这些评论中获取电话号码。
- 每条评论的电话号码都在随机位置,因此
LEFT
、MID
或RIGHT
将不起作用
=EXTRAXTNUMBERS()
.但是我得到了一行数字,其中包括日期、身份证等。
我更喜欢公式。:)
下面两条注释示例,所需电话号码以粗体
2017年2月2日星期四下午2:37协调世界时间.386867076939,每个.pārv.Tatjana呼叫结果选择:Noruna Citālaikā-2017-02-03 07:15 AM协调世界时间.3868 nr.67074071-Neksistē,Personāla daļas vad.Tatjana neatbild,arīnr.
2017年2月2日星期四上午11:15协调世界时间4213zvanīt选择的呼叫结果:诺鲁纳CITālaikā-2017-02-07 09:00协调世界时间2017年2月14日12:59 PM协调的世界时间.4532*anita@dzintarniess@rtp.lv选择的呼叫结果:turpināt Internetā
推荐答案
Regexp解决方案
此UDF以数组形式从文本中提取电话号码。您最终可以使用Join
将其转换为CSV字符串,也可以将数组粘贴到单元格区域中。
Function extractPhones(s As String) As String()
Dim i As Long, matches, match, ret
With CreateObject("VBScript.Regexp")
.Global = True
.Pattern = "W[26]d{7}W"
Set matches = .Execute(s)
End With
ReDim ret(1 To matches.Count) As String
For Each match In matches
i = i + 1
ret(i) = Mid(match, 2, Len(match) - 2)
Next
extractPhones = ret
End Function
它使用正则表达式将电话号码与以下规格匹配:
- 正好是8位
- 从6或2开始
- 前面或后面不是字母数字字母,而是空格或标点符号。
这篇关于从评论中提取电话号码的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文