回复afan
A大，求助正则啊，字符串：> 正在加载中, 请等待... ------ ------------ ------------ 编 ...
繁星 发表于 2015-9-26 17:38 http://www.autoitx.com/images/common/back.gif#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), '其中元素为: ' & $aSR)
_ArrayDisplay($aSR, UBound($aSR))
回复 1493# afan
老大，2.3的可移动磁盘没被匹配出来{:face (245):}
回复 1494# 繁星
再试试以下表达式\d+\h*\|\h*\d+(?:\.\d+)?\w+\h*\|[^\|]+?\S(?=\s+\d+\h*\||\s*$)
回复 1495# afan
这次这个可以用，搞定了，非常感谢，{:face (88):}
不知道还能不能再麻烦你一次，最后一个正则问题了，比上个应该还麻烦一点，同样是从控制台缓冲区取出来的数据，字符串：> 正在加载中, 请等待... ------ ------ ------------ ------------ --------- 编号 盘符 大小 已使用 其它 ------ ------ ------------ ------------ --------- | | 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
{:face (394):}
回复 1496# 繁星
前面是固定的东西，没必要匹配\d?\h*\|\h*(?:.:)?\h*\|[^\|]+\|[^\|]+\|[^\|]+?(?=\h*\d?\h*\||$)
回复 1497# afan
好了，搞定了，谢谢啦{:face (427):}
B2B89433A52EF64A0927611E19CB2Fyang3114
不好意思啊，老大，原来是在这里发贴
回复 1499# yang3114 D0FF2F7D22EC777D4484A78024BA3180E3BBDBF59F233
### 友情提示：本脚本由 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), '其中元素为: ' & $Test)
_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), '其中元素为: ' & $aSRE)
_ArrayDisplay($aSRE, UBound($aSRE))
这样子的呢,这是你帮我生砀
回复 1501# yang3114
表达式是要自己编写的… 你以为填个 'www.35641235.cn' 就给你自动输出'http:.+?(\w[^\\/]+)' 了？
自动生成是指生成au3脚本
"http:\/\/www.123456.com\/yangqiang"
我想通过http:和yangqiang来提取www.123456.com这我站，用正则能帮我改一下吗？谢谢了。
本帖最后由 afan 于 2015-12-9 13:46 编辑
"http:\/\/www.123456.com\/yangqiang"
我想通过http:和yangqiang来提取这我站，用正则能帮我改一下吗？ ...
yang3114 发表于 2015-12-9 13:20 http://www.autoitx.com/images/common/back.gif
表达式(?mi)http:.+?(\w[^\\]+?).+?yangqiang
2015.12.21即将更新
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 也可于输出编辑框中查找。
[修改]部分代码调整及优化
回复 1# afan
下载使用, 虽然不会...........