Au3.REHelper_正则助手[220624更新1.7.6]

afan

回复  afan


A大，求助正则啊，字符串：> 正在加载中, 请等待... ------ ------------ ------------ 编 ...
繁星 发表于 2015-9-26 17:38

#include <Array.au3>
Local $Str = '> 正在加载中, 请等待... ------ ------------ ------------ 编号 大小 名称 ------ ------------ ------------ 1 | 7.53GB | SMI USB DISK 可移动磁盘 2 | 14.42GB | KingstonDataTraveler 2.0可移动磁盘 3 | 14.54GB | KingstonDataTraveler 2.0可移动磁盘 4 | 3.76GB | SCSI DISK 可移动磁盘' & @CRLF
MsgBox(0, '原字符串', $Str)
Local $aSR = StringRegExp($str, '\d+\h*\|\h*\d+(?:\.\d+)?\w+\h*\|[^\|]+?\S(?=\s+\d+|\s*$)', 3)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($aSR), '其中[0]元素为: ' & $aSR[0])
_ArrayDisplay($aSR, UBound($aSR))

繁星

回复 1493# afan

老大，2.3的可移动磁盘没被匹配出来

afan

回复 1494# 繁星


    再试试以下表达式

\d+\h*\|\h*\d+(?:\.\d+)?\w+\h*\|[^\|]+?\S(?=\s+\d+\h*\||\s*$)

繁星

回复 1495# afan


    这次这个可以用，搞定了，非常感谢，

   不知道还能不能再麻烦你一次，最后一个正则问题了，比上个应该还麻烦一点，同样是从控制台缓冲区取出来的数据，字符串：> 正在加载中, 请等待... ------ ------ ------------ ------------ --------- 编号 盘符 大小 已使用 其它 ------ ------ ------------ ------------ --------- | | 39.22MB | | 未分配空间 0 | F: | 6.49GB | 5.42GB | NTFS Act USBZL 1 | *: | 1024.00MB | 842.83MB | FAT16 EFI
正则筛选后的数据：
------ -----        ------------        ------------        ---------
编号         盘符        大小                已使用                其它
------        ------        ------------        ------------        ---------
          |          | 39.22MB             |                             | 未分配空间
0        | F:        | 6.49GB              | 5.42GB              | NTFS Act USBZL
1        | *:        | 1024.00MB           | 842.83MB            | FAT16 EFI

afan

回复 1496# 繁星


    前面是固定的东西，没必要匹配

\d?\h*\|\h*(?:.:)?\h*\|[^\|]+\|[^\|]+\|[^\|]+?(?=\h*\d?\h*\||$)

繁星

回复 1497# afan


    好了，搞定了，谢谢啦

yang3114

B2B89433A52EF64A0927611E19CB2Fyang3114

不好意思啊，老大，原来是在这里发贴

afan

回复 1499# yang3114

D0FF2F7D22EC777D4484A78024BA3180E3BBDBF59F233

yang3114

### 友情提示：本脚本由 Au3.REHelper 于 2015/12/09 12:38 自动生成，不保证其正确性，请自行测试 ###
#include <Array.au3>
Local $Str = '"url":"http:\/\/www.35641235.cn\/wangbazmtb?nid={id}"},{"name":"\u6e38\u620f\u7ad9","website":"17173.com|265g.com|tgbus.com|52pk.com|c'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, 'www.35641235.cn', 3)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($Test), '其中[0]元素为: ' & $Test[0])
_ArrayDisplay($Test, UBound($Test))

谢谢老大，为什么我用你正则生成工具，生成的是这样子的，而不是

#include <Array.au3>
Local $sSource = '"url":"http:\/\/www.35641235.cn\/wangbazmtb?nid={id}"},{"name":"\u6e38\u620f\u7ad9","website":"17173.com|265g.com|tgbus.com|52pk.com|c'
;~MsgBox(0, '源字符串', $sSource)
Local $aSRE = StringRegExp($sSource, 'http:.+?(\w[^\\/]+)', 3)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($aSRE), '其中[0]元素为: ' & $aSRE[0])
_ArrayDisplay($aSRE, UBound($aSRE))

这样子的呢,这是你帮我生砀

afan

回复 1501# yang3114


    表达式是要自己编写的… 你以为填个 'www.35641235.cn' 就给你自动输出  'http:.+?(\w[^\\/]+)' 了？
自动生成是指生成au3脚本

yang3114

"http:\/\/www.123456.com\/yangqiang"

我想通过http:和yangqiang来提取www.123456.com这我站，用正则能帮我改一下吗？谢谢了。

afan

"http:\/\/www.123456.com\/yangqiang"

我想通过http:和yangqiang来提取这我站，用正则能帮我改一下吗？ ...
yang3114 发表于 2015-12-9 13:20

    表达式

(?mi)http:.+?(\w[^\\]+?).+?yangqiang

afan

2015.12.21即将更新

afan

2015/12/21 更新至 1.5 正式版
        [新增]主菜单增加“使用当前版本”项目，可使用系统当前的Au3版本执行测试
        　　　这是一项很实用的功能，只有懂的人懂 ^ ^
        [新增]工具栏添加“在浮窗中编辑表达式”按钮，可在弹窗中编辑表达式
        　　　可切换使用该控件，以使表达式更好的组织，因为可以换行，并可忽略空白

2015/11/12 更新至 1.4 测试版
        [修改]笔记窗口可随意拉扯窗口
        [修正]编辑变量名时，如前面含有Local、Dim、Global字符时无法保存到项目文件的问题
        [修正]变量赋值时，如在非末尾处含有"$"字符，则会输出无意义字符串的问题

2015/11/10 更新至 1.3 测试版
        [新增]输出保存为au3文件增加下拉菜单，可保存到剪贴板
        [修改]输出au3脚本文件时，如遇同名文件不再重复询问

2013/04/24 更新至 1.2 测试版
        [修改]判断载入较大文件或字符串，或获取网页源码时才启动闪屏提示
        [修改]取消限制，某些功能无需注册
        [修改]Ctrl-F 搜索默认改为常规方式

2013/04/20 更新至 1.1 测试版
        [修正]载入大文件或字符串时可能丢失下方“输出结果编辑框”的问题
        [修改]增加载入文件或字符串时闪屏提示
        [修改]大幅提高载入大文件时的速度
        [修改]拖入文件时闪烁窗口修改为系统默认的次数及间隔时间(之前的较强烈了点…)
        [修改]切换匹配及替换模式时不修改状态栏提示，以保存原有数据可做比较。
        [新增]Ctrl-F 也可于输出编辑框中查找。
        [修改]部分代码调整及优化

131738

回复 1# afan

下载使用, 虽然不会...........