精华内容
下载资源
问答
  • Excel正则表达式提取

    2020-06-27 21:14:53
    自定义函数-正则表达式: Function TQ(rng, types As String) As String Dim obj As Object Set obj = CreateObject(“VBSCRIPT.REGEXP”) With obj .Global = True Select Case types Case Is = “-hz” '去汉字 ....

    自定义函数-正则表达式:
    Function TQ(rng, types As String) As String
    Dim obj As Object
    Set obj = CreateObject(“VBSCRIPT.REGEXP”)
    With obj
    .Global = True
    Select Case types
    Case Is = “-hz” '去汉字
    .Pattern = “[一-﨩]”
    Case Is = “-zm” '去字母
    .Pattern = “[a-zA-Z]”
    Case Is = “-sz” '去数字
    .Pattern = “[0-9.]”
    Case Is = “+hz” '取汉字
    .Pattern = “[^一-﨩]”
    Case Is = “+zm” '取字母
    .Pattern = “[^a-zA-Z]”
    Case Is = “+sz” '取数字
    .Pattern = “[^0-9.]”
    End Select
    TQ = .Replace(rng, “”)
    End
    WithEnd Function

    展开全文
  • Excel 正则表达式提取

    万次阅读 2017-04-19 22:58:52
    本例是从源数据中提取字符串    测试数据如下: 60*112mm, ,胶袋 无品牌,Kurio X Screen Protector,130*74mm,无保护贴,胶袋 75*115mm, ,胶袋 190*255mm, ,装iPad保护贴,胶袋,胶袋 无品牌,Kurio 7S Screen ...
    快捷键 Alt +F11 打开代码视图


    代码:
    Function GetStr(rng As Range)
        With CreateObject("VBscript.regexp")
            .Global = True
            .Pattern = "\d+\*\d+\+{0,1}\d{0,}"    '表达式
            If .Execute(rng).Count = 0 Then
                GetStr = ""
            Else
                GetStr = .Execute(rng)(0)
            End If
        End With
    End Function

    函数 GetStr 就编写完成了,使用方法截图如下:
    本例是从源数据中提取字符串

     
     测试数据如下:
    60*112mm, ,胶袋
    无品牌,Kurio X Screen Protector,130*74mm,无保护贴,胶袋
    75*115mm, ,胶袋
    190*255mm, ,装iPad保护贴,胶袋,胶袋
    无品牌,Kurio 7S Screen Protector,193*120mm,无保护贴,胶袋
    180*95mm,平口袋,胶袋
    61*115mm, ,胶袋
    65*120mm, ,胶袋
    135*76mm, ,1308touch5胶袋。,胶袋
    65*130mm, ,胶袋
    143*74(开口方向)mm,胶袋
    120*95mm, ,开口95mm,胶袋
    75*130+25mm, ,胶袋


    展开全文
  • 提取网页邮箱我们需要用到re模块(下载方法:打开cmd,输入pip install 包名),负责去匹配邮箱数据。 本篇我们演示下提取百度邮箱(http://home.baidu.com/contact.html) 图例如下: 只提取红框里面邮箱数据 代码...

    本文介绍re模块利用正则匹配提取网页邮箱并保存
    提取网页邮箱我们需要用到requests模块、re模块和xlwt模块(下载方法:打开cmd,输入pip install 包名),负责去匹配邮箱数据。
    本篇我们演示下提取百度邮箱(http://home.baidu.com/contact.html)
    图例如下:
    在这里插入图片描述
    只提取红框里面邮箱数据
    代码如下

    #提取网页邮箱并保存
    import requests
    import xlwt 
    import re
    
    
    ef get_email(sheet, url):
    
        #设置sheet名
        work = xlwt.Workbook()
        ws = work.add_sheet(sheet)
    	
        f = requests.get(url)	 #get方法访问网页
        doc = f.text	#得到页面源代码,注意这里不能用content,会匹配不出来
    	
    	print(‘数据提取中...)
        #使用正则匹配文档中存在的email地址
        emiless = re.findall(r'.+:+[\w]+@[\w\.-]+', doc)    #匹配邮箱,里面‘.’是匹配包括空值字符
        #emiles = re.findall(r'.+:+[0-9a-zA-Z._]+@[0-9a-zA-Z._]+\.[0-9a-zA-Z._]+', doc)	#也是匹配邮箱
        emiles = set(emiless)   #去重
    	
        #分割邮箱名和邮箱
        list = []
        for emile in emiles:
            for i in emile.split(':'):
                list.append(i)
    
        print(list)
        
        #写入Excel文档
        n = 0
        for i in range(len(emiles)):
            ws.write(i, 0, (list[n + 0])[22:])
            ws.write(i, 1, list[n + 1])
            n += 2
        print('数据已写入...')
        
        #保存
        try:
            work.save('email.xls')
            print('文档已保存!')
    
        except Exception as e:
            print('请先关闭文档!')
        time.sleep(2)
        print('提取完毕!')
    
    
    #执行
    sheet = 'eamil'
    url = 'http://home.baidu.com/contact.html'
    get_email(sheet, url)
    
    

    执行结果如下:

    数据提取中...
    ['                      百度无线', 'mbaidu@baidu.com', '                      市场合作', 'upmco@baidu.com', '                      校园合作', 'campusmaster@baidu.com', '                      战略合作', 'zhanzhangpingtai@baidu.com']
    数据已写入...
    文档已保存!
    提取完毕!
    

    文本打开如下:
    在这里插入图片描述

    展开全文
  • '测试:将“abc@@eee”中的@@提取出来 Sub test() MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee") End Sub Function GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String) Set re = ...
    '测试:将“abc@@eee”中的@@提取出来
    Sub test()
        MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee")
    End Sub
    
    Function GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String)
        Set re = CreateObject("VBScript.RegExp")
        re.Pattern = PatternStr
        re.Global = True
        re.IgnoreCase = False
        Set matchs = re.Execute(OrgStr)
        If matchs.Count > 0 Then
            GetValueByRegex = matchs(0).submatches(0)
        Else
            GetValueByRegex = ""
        End If
    End Function
    

     

    展开全文
  • Excel-VBA正则表达式提取文本案例

    千次阅读 2019-10-02 23:47:44
    因此我首先想到了Python里的正则表达式,打算写一个自定义函数去批量提取。然而之前没学VBA里的正则表达式语法,因此就去网上搜了一下,结果发现根本不能运行。几经辗转,总算搞定,因此总结一下,供后来者参考。 ...
  • 利用notepad++的正则表达式提取所有匹配的单词(纯原生不用插件)怎么就使用notepad++原生功能就实现提取所有api呢? 工作中需要把出过事情的和已经分析过的api接口都进行数据...但是比起简单的正则匹配的替换,复杂了
  • 一、要让excel脚本支持Microsoft VBScript Regular Expressions 5.5,按快捷键alt+F11,出现下图界面,操作如图示: 二.添加VBA代码: 代码添加完毕后,关闭该窗口。 Function regex(strInput As ...
  • Excel正则表达式

    2013-02-05 10:11:03
    excel常用正则表达式 来源: 李刚的日志 正则表达式用于字符串处理、表单验证等场合,实用高效。现将一些常用的表达式收集于此,以备不时之需。 匹配中文字符的正则表达式: [ \U4E00-\U9FA5 ] (字母...
  • EXCEL 正则表达式

    千次阅读 2010-04-18 23:58:00
    正则表达式在数据有效性验证、替换文本、提取子字符串有很好的应用。 不同的程序或语言对正则表达式的支持是不一样的。像MS Excel,仅支持简单的通配符查找和替换。VBA中没有正则表达式对象,要使用正则表达式的话,...
  • 下面Excel VBA自定义函数来提取 字符串中符合正则表达式的字符串 先上效果图: 以下从一个单元格字符串中提取出连续出现的数字,并且空格分割,后面只需分列以下就提取到不同单元格了。 函数代码: ...
  • Jmeter进行接口测试常常会运到一个问题:就是第二个请求如何接收上一个请求响应中的参数。比如,现在个学生金币充值的接口,得先调用...1、在登录接口下方,添加正则表达式提取器: 2、配置正则表达式: 3...
  • 网上搜使用正则表达式提取md中的图片链接作为文章首图 没找到好用的 只好自己写了一个 markdown.replace(/.*!\[.*]\(/, '') 这是匹配效果 在写个函数把右括号踢出去,左面作为文章封面链接
  • EXCEL 使用正则表达式

    万次阅读 2018-12-24 20:03:09
    本文参考: ... https://blog.csdn.net/catoop/article/details/70247105(Excel 正则表达式提取值) 今天一个朋友让我帮忙将一组 淘宝的宝贝标题里面提取出型号: A B ...
  • 正则表达式提取SQL

    千次阅读 2013-10-23 15:48:28
    本文记录一个用正则解决问题的过程。较多的是思路的笔记。   需求:   分析项目中 PL/SQL的表使用状况。也就是哪个程序对那些表做了增删改查。    【初步分析】 乍一看视乎不难,INSERT/UPDATE/DELETE ...
  • 对前一篇文章进行更新升级,有时候需要给正则表达式进行分类,当匹配到某个正则表达式时,则在相应的位置展示出该正在表达式属于哪一类,这样的话,我们就可以很方面的对自己所要处理的很多数据进行分类了 ...
  • 利用正则表达式提取网页中Table内的数据 using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using System....
  • python+正则表达式提取“参考文献”中的作者名,发表日期等信息
  • 在解析字符串的时候会经常遇到含有数字,小数点的字符串,数字可能会出现在字符的左边或者右边,那么如何纯粹的只提取带有小数点的数字。 方法如下: $str = '$@34.583 EUR'; $preg = '/(\d+)\.(\d+)/is'; preg_...
  • 'kong=\'\';var line_points=\'\';var line_runtime=\'\';kresult+="m5aa28c34|m5c626c4a|";\r\nvar m5aa28c34= new Array("169路去程","市区线路","水晶城 05:20-19:15 |...想要把中间的车站名称提取出来 例如|水晶城|
  • Python正则提取

    2021-07-15 00:10:36
    B站:《正则提取》 # -*- codeing = utf-8 -*- # @Time :6/28/2021 16:30 # @Author :何先生 # @File : spider.py # @Software :PyCharm #几个需要用到的库 from bs4 import BeautifulSoup #网页解析,获取数据 ...
  • import re phone_regex=re....df=pd.read_excel(r'd:\Users\zhanggl21\Desktop\6月直聊.xlsx') #定义一个空的列表 alst=[] #循环并把匹配到的值添加到列表(注册判断空值) for x in df.聊天记录: if phone...
  • 不废话,直接上表达式 [plain] view plain copy(\d+(\.\d+)?) 作用,字符串中如果是整数则匹配整数,如果是小数则匹配小数。
  • 因此我首先想到了Python里的正则表达式,打算写一个自定义函数去批量提取。然而之前没学VBA里的正则表达式语法,因此就去网上搜了一下,结果发现根本不能运行。几经辗转,总算搞定,因此总结一下,供后来者参考。...
  • View Code package regex;import java.io.IOException;.../** * 注意,Matcher才是正则式的主要操作类,它里面包含了抽取替换最重要的方法.Pattern不是主要的类. * replaceAll用来全部替换.repl...
  • 作为一名理工科实验狗,日常科研的数据动不动就是100M,而用传统的excel+origin处理的方法需要消耗大量的时间因此,我用python写了数据处理的脚本,可以快速得到我想要的数据,将原来需要4个小时的数据处理工作缩短...
  • 目的是把txt文件里面的课程名字、授课老师、课程目录、课程简介爬取下来,然后在excel表格里显示出来。利用前面的正则表达式,再加上一些jxl包的东西。注意,要想形成xls文件要下载一个jxl包才行,网上应该有的找,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,375
精华内容 1,350
关键字:

excel正则匹配提取内容