找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 【已解决】正则表达式演示的补充
返回列表 发新帖
查看: 730|回复: 10

[效率算法] 【已解决】正则表达式演示的补充

[复制链接]
chishingchan
发表于 2023-10-30 16:49:09 | 显示全部楼层 |阅读模式
本帖最后由 chishingchan 于 2023-10-30 19:27 编辑

正则表达式演示-『 源码作品 』-AUTOIT CN - Powered by Autoit中文论坛 (autoitx.com)





求助：补充 图1三条结果 和 图2两条结果 的正则表达式，谢谢！
$hGUI = GUICreate("正则表达式演示", 640, 360)

Global $X = 'C:\Users\Administrator\Desktop\desktop.ini'
Global $Y = GUICtrlCreateLabel("$String = 'C:\Users\Administrator\Desktop\desktop.ini'", 10, 10, 360)

GUICtrlCreateLabel("正则表达式", 10, 30)
GUICtrlCreateInput("StringRegExp($String, '^(\w)(?=:)',1)[0]", 10, 50, 356)
GUICtrlCreateInput("StringRegExp($String, '^(\w:)', 1)[0]", 10, 70, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w(:\V+)\\[^\\]+$', 1)[0]", 10, 90, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:(\V+)\\[^\\]+$', 1)[0]", 10, 110, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w(:\V+\\)[^\\]+$', 1)[0]", 10, 130, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:(\V+\\)[^\\]+$', 1)[0]", 10, 150, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w(:\V+)$', 1)[0]", 10, 170, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:(\V+)$', 1)[0]", 10, 190, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:\V+\\([^\\]+)$', 1)[0]", 10, 210, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:\V+\\([^\\]+)\.\w{2,4}$', 1)[0]", 10, 230, 356)
GUICtrlCreateInput("StringRegExp($String, '(?:\.\w{2,4})?$', 1)[0]", 10, 250, 356)
GUICtrlCreateInput("StringRegExp($String, '(?:\.(\w{2,4}))?$', 1)[0]", 10, 270, 356)

GUICtrlCreateInput("", 10, 290, 356)
GUICtrlCreateInput("", 10, 310, 356)
GUICtrlCreateInput("", 10, 330, 356)

$Z = GUICtrlCreateButton("切换", 590, 10, 40, 30)

GUICtrlCreateLabel("返回结果", 376, 30)
Global $A = GUICtrlCreateInput(StringRegExp($X, '^(\w)(?=:)', 1)[0], 376, 50, 254)
Global $B = GUICtrlCreateInput(StringRegExp($X, '^(\w:)', 1)[0], 376, 70, 254)
Global $C = GUICtrlCreateInput(StringRegExp($X, '^\w(:\V+)\\[^\\]+$', 1)[0], 376, 90, 254)
Global $D = GUICtrlCreateInput(StringRegExp($X, '^\w:(\V+)\\[^\\]+$', 1)[0], 376, 110, 254)
Global $E = GUICtrlCreateInput(StringRegExp($X, '^\w(:\V+\\)[^\\]+$', 1)[0], 376, 130, 254)
Global $F = GUICtrlCreateInput(StringRegExp($X, '^\w:(\V+\\)[^\\]+$', 1)[0], 376, 150, 254)
Global $G = GUICtrlCreateInput(StringRegExp($X, '^\w(:\V+)$', 1)[0], 376, 170, 254)
Global $H = GUICtrlCreateInput(StringRegExp($X, '^\w:(\V+)$', 1)[0], 376, 190, 254)
Global $I = GUICtrlCreateInput(StringRegExp($X, '^\w:\V+\\([^\\]+)$', 1)[0], 376, 210, 254)
Global $J = GUICtrlCreateInput(StringRegExp($X, '^\w:\V+\\([^\\]+)\.\w{2,4}$', 1)[0], 376, 230, 254)
Global $K = GUICtrlCreateInput(StringRegExp($X, '(?:\.\w{2,4})?$', 1)[0], 376, 250, 254)
Global $L = GUICtrlCreateInput(StringRegExp($X, '(?:\.(\w{2,4}))?$', 1)[0], 376, 270, 254)

Global $M = GUICtrlCreateInput('C:\Users\Administrator\Desktop', 376, 290, 254)
Global $N = GUICtrlCreateInput('C:\Users\Administrator\Desktop\', 376, 310, 254)
Global $O = GUICtrlCreateInput('C:\Users\Administrator\Desktop\desktop', 376, 330, 254)

GUISetState()

While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
                Case $Z
                        If GUICtrlRead($Y) = "$String = 'C:\Users\Administrator\Desktop'" Then
                                GUICtrlSetData($Y, "$String = 'C:\Users\Administrator\Desktop\desktop.ini'")
                                $X = "C:\Users\Administrator\Desktop\desktop.ini"
                        Else
                                GUICtrlSetData($Y, "$String = 'C:\Users\Administrator\Desktop'")
                                $X = "C:\Users\Administrator\Desktop"
                        EndIf
                        _RegExp()
        EndSwitch
WEnd

Func _RegExp()
        GUICtrlSetData($A, StringRegExp($X, '^(\w)(?=:)', 1)[0])
        GUICtrlSetData($B, StringRegExp($X, '^(\w:)', 1)[0])
        GUICtrlSetData($C, StringRegExp($X, '^\w(:\V+)\\[^\\]+$', 1)[0])
        GUICtrlSetData($D, StringRegExp($X, '^\w:(\V+)\\[^\\]+$', 1)[0])
        GUICtrlSetData($E, StringRegExp($X, '^\w(:\V+\\)[^\\]+$', 1)[0])
        GUICtrlSetData($F, StringRegExp($X, '^\w:(\V+\\)[^\\]+$', 1)[0])
        GUICtrlSetData($G, StringRegExp($X, '^\w(:\V+)$', 1)[0])
        GUICtrlSetData($H, StringRegExp($X, '^\w:(\V+)$', 1)[0])
        GUICtrlSetData($I, StringRegExp($X, '^\w:\V+\\([^\\]+)$', 1)[0])
        GUICtrlSetData($J, Execute("StringRegExp($X, '^\w:\V+\\([^\\]+)\.\w{2,4}$', 1)[0]"))
        GUICtrlSetData($K, StringRegExp($X, '(?:\.\w{2,4})?$', 1)[0])
        GUICtrlSetData($L, StringRegExp($X, '(?:\.(\w{2,4}))?$', 1)[0])

        GUICtrlSetData($M, 'C:\Users\Administrator')
        GUICtrlSetData($N, 'C:\Users\Administrator\')
        GUICtrlSetData($O, '')
EndFunc   ;==>_RegExp
答案在 4# + 6#

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
afan
发表于 2023-10-30 17:25:11 | 显示全部楼层
StringRegExp($String, '^.+(?=\\)', 1)[0]
StringRegExp($String, '^.+\\', 1)[0]
StringRegExp($String, '^.+(?=\.\w+$)', 1)[0]
回复

举报

3131210
发表于 2023-10-30 17:40:51 | 显示全部楼层
1      (.+)\\
2       .+\\
3       (.+)\.
回复

举报

chishingchan
 楼主| 发表于 2023-10-30 18:57:18 | 显示全部楼层
afan 发表于 2023-10-30 17:25
StringRegExp($String, '^.+(?=\\)', 1)[0]
StringRegExp($String, '^.+\\', 1)[0]
StringRegExp($String ...


a大，切换后出错，请帮忙看看，谢谢！
$hGUI = GUICreate("正则表达式演示", 640, 360)

Global $X = 'C:\Users\Administrator\Desktop\desktop.ini'
Global $Y = GUICtrlCreateLabel("$String = 'C:\Users\Administrator\Desktop\desktop.ini'", 10, 10, 360)

GUICtrlCreateLabel("正则表达式", 10, 30)
GUICtrlCreateInput("StringRegExp($String, '^(\w)(?=:)',1)[0]", 10, 50, 356)
GUICtrlCreateInput("StringRegExp($String, '^(\w:)', 1)[0]", 10, 70, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w(:\V+)\\[^\\]+$', 1)[0]", 10, 90, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:(\V+)\\[^\\]+$', 1)[0]", 10, 110, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w(:\V+\\)[^\\]+$', 1)[0]", 10, 130, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:(\V+\\)[^\\]+$', 1)[0]", 10, 150, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w(:\V+)$', 1)[0]", 10, 170, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:(\V+)$', 1)[0]", 10, 190, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:\V+\\([^\\]+)$', 1)[0]", 10, 210, 356)
GUICtrlCreateInput("StringRegExp($String, '^\w:\V+\\([^\\]+)\.\w{2,4}$', 1)[0]", 10, 230, 356)
GUICtrlCreateInput("StringRegExp($String, '(?:\.\w{2,4})?$', 1)[0]", 10, 250, 356)
GUICtrlCreateInput("StringRegExp($String, '(?:\.(\w{2,4}))?$', 1)[0]", 10, 270, 356)

GUICtrlCreateInput("StringRegExp($String, '^.+(?=\\)', 1)[0]", 10, 290, 356)
GUICtrlCreateInput("StringRegExp($String, '^.+\\', 1)[0]", 10, 310, 356)
GUICtrlCreateInput("StringRegExp($String, '^.+(?=\.\w+$)', 1)[0]", 10, 330, 356)

$Z = GUICtrlCreateButton("切换", 590, 10, 40, 30)

GUICtrlCreateLabel("返回结果", 376, 30)
Global $A = GUICtrlCreateInput(StringRegExp($X, '^(\w)(?=:)', 1)[0], 376, 50, 254)
Global $B = GUICtrlCreateInput(StringRegExp($X, '^(\w:)', 1)[0], 376, 70, 254)
Global $C = GUICtrlCreateInput(StringRegExp($X, '^\w(:\V+)\\[^\\]+$', 1)[0], 376, 90, 254)
Global $D = GUICtrlCreateInput(StringRegExp($X, '^\w:(\V+)\\[^\\]+$', 1)[0], 376, 110, 254)
Global $E = GUICtrlCreateInput(StringRegExp($X, '^\w(:\V+\\)[^\\]+$', 1)[0], 376, 130, 254)
Global $F = GUICtrlCreateInput(StringRegExp($X, '^\w:(\V+\\)[^\\]+$', 1)[0], 376, 150, 254)
Global $G = GUICtrlCreateInput(StringRegExp($X, '^\w(:\V+)$', 1)[0], 376, 170, 254)
Global $H = GUICtrlCreateInput(StringRegExp($X, '^\w:(\V+)$', 1)[0], 376, 190, 254)
Global $I = GUICtrlCreateInput(StringRegExp($X, '^\w:\V+\\([^\\]+)$', 1)[0], 376, 210, 254)
Global $J = GUICtrlCreateInput(StringRegExp($X, '^\w:\V+\\([^\\]+)\.\w{2,4}$', 1)[0], 376, 230, 254)
Global $K = GUICtrlCreateInput(StringRegExp($X, '(?:\.\w{2,4})?$', 1)[0], 376, 250, 254)
Global $L = GUICtrlCreateInput(StringRegExp($X, '(?:\.(\w{2,4}))?$', 1)[0], 376, 270, 254)

Global $M = GUICtrlCreateInput(StringRegExp($X, '^.+(?=\\)', 1)[0], 376, 290, 254)
Global $N = GUICtrlCreateInput(StringRegExp($X, '^.+\\', 1)[0], 376, 310, 254)
Global $O = GUICtrlCreateInput(StringRegExp($X, '^.+(?=\.\w+$)', 1)[0], 376, 330, 254)

GUISetState()

While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
                Case $Z
                        If GUICtrlRead($Y) = "$String = 'C:\Users\Administrator\Desktop'" Then
                                GUICtrlSetData($Y, "$String = 'C:\Users\Administrator\Desktop\desktop.ini'")
                                $X = "C:\Users\Administrator\Desktop\desktop.ini"
                        Else
                                GUICtrlSetData($Y, "$String = 'C:\Users\Administrator\Desktop'")
                                $X = "C:\Users\Administrator\Desktop"
                        EndIf
                        _RegExp()
        EndSwitch
WEnd

Func _RegExp()
        GUICtrlSetData($A, StringRegExp($X, '^(\w)(?=:)', 1)[0])
        GUICtrlSetData($B, StringRegExp($X, '^(\w:)', 1)[0])
        GUICtrlSetData($C, StringRegExp($X, '^\w(:\V+)\\[^\\]+$', 1)[0])
        GUICtrlSetData($D, StringRegExp($X, '^\w:(\V+)\\[^\\]+$', 1)[0])
        GUICtrlSetData($E, StringRegExp($X, '^\w(:\V+\\)[^\\]+$', 1)[0])
        GUICtrlSetData($F, StringRegExp($X, '^\w:(\V+\\)[^\\]+$', 1)[0])
        GUICtrlSetData($G, StringRegExp($X, '^\w(:\V+)$', 1)[0])
        GUICtrlSetData($H, StringRegExp($X, '^\w:(\V+)$', 1)[0])
        GUICtrlSetData($I, StringRegExp($X, '^\w:\V+\\([^\\]+)$', 1)[0])
        GUICtrlSetData($J, Execute("StringRegExp($X, '^\w:\V+\\([^\\]+)\.\w{2,4}$', 1)[0]"))
        GUICtrlSetData($K, StringRegExp($X, '(?:\.\w{2,4})?$', 1)[0])
        GUICtrlSetData($L, StringRegExp($X, '(?:\.(\w{2,4}))?$', 1)[0])

        GUICtrlSetData($M, StringRegExp($X, '^.+(?=\\)', 1)[0])
        GUICtrlSetData($N, StringRegExp($X, '^.+\\', 1)[0])
        GUICtrlSetData($O, StringRegExp($X, '^.+(?=\.\w+$)', 1)[0])
EndFunc   ;==>_RegExp
回复

举报

chishingchan
 楼主| 发表于 2023-10-30 18:58:44 | 显示全部楼层
出错行：78
回复

举报

afan
发表于 2023-10-30 19:10:35 | 显示全部楼层
本帖最后由 afan 于 2023-10-30 19:16 编辑
chishingchan 发表于 2023-10-30 18:57
a大，切换后出错，请帮忙看看，谢谢！

最后一行你是要匹配为空？最末加一竖棍子即可  '^.+(?=\.\w+$)|'
说实话，直接用 StringRegExp(...)[0] 这样写是不安全的，除非有十足的把握

评分

参与人数 1威望 +4 金钱 +100 贡献 +10 收起 理由
chishingchan + 4 + 100 + 10 很给力!

查看全部评分

回复

举报

chishingchan
 楼主| 发表于 2023-10-30 19:18:17 | 显示全部楼层
afan 发表于 2023-10-30 19:10
最后一行你是要匹配为空？最末加一竖棍子即可  '^.+(?=\.\w+$)|'
说实话，直接用 StringRegExp(...)[0]  ...

这所有正则都是之前你给的，如果觉得不妥当请帮忙总结出一份代码，谢谢！
回复

举报

chishingchan
 楼主| 发表于 2023-10-30 19:19:59 | 显示全部楼层
afan 发表于 2023-10-30 19:10
最后一行你是要匹配为空？最末加一竖棍子即可  '^.+(?=\.\w+$)|'
说实话，直接用 StringRegExp(...)[0]  ...

反正我对正则一点也不懂！也没时间去学习。
回复

举报

afan
发表于 2023-10-30 19:22:49 | 显示全部楼层
chishingchan 发表于 2023-10-30 19:18
这所有正则都是之前你给的，如果觉得不妥当请帮忙总结出一份代码，谢谢！

并非针对表达式，而是 StringRegExp(...)[0] 这种书写习惯。通常需要通过 @Error 来判断，而你这里直接以 @Error=0 的前提来取值，这就造成了上面的出错退出。如果确定无误则无所谓~
回复

举报

chishingchan
 楼主| 发表于 2023-10-30 19:40:56 | 显示全部楼层
afan 发表于 2023-10-30 19:22
并非针对表达式，而是 StringRegExp(...)[0] 这种书写习惯。通常需要通过 @Error 来判断，而你这里直接以 ...

a 大，我重复回顾一下旧帖子，找到你给的例子：
GUICreate("正则表达式演示", 690, 360)

Local $aString[2] = ["C:\Users\Administrator\Desktop", "C:\Users\Administrator\Desktop\desktop.ini"]
Local $iIx = 0
Local $String = $aString[$iIx]
Local $iLb = GUICtrlCreateLabel("$String = '" & $String & "'", 10, 10, 400, 18)
GUICtrlCreateLabel("正则表达式", 10, 30)
GUICtrlCreateLabel("返回结果", 430, 30)
$iBtn_Toggle = GUICtrlCreateButton("切换", 640, 10, 40, 30)

Local $aExp[15][2] = [ _
                ['(?<=^\w):.+', ''], _
                ['(?<=^\w:).+', ''], _
                ['^\w(?=:)|\\[^\\]+$', ''], _
                ['^\w:|\\[^\\]+$', ''], _
                ['^\w(?=:)|[^\\]+$', ''], _
                ['^\w:|[^\\]+$', ''], _
                ['^\w(?=:)', ''], _
                ['^\w:', ''], _
                ['^.+\\', ''], _
                ['^.+\\|\.\w{2,8}$', ''], _
                ['^.+?(\.\w{2,8})?$', '\1'], _
                ['^.+?((?<=\.)\w{2,8})?$', '\1'], _
                ['^.+(?=\\)', '\1'], _
                ['^.+\\', '\1'], _
                ['^.+(?=\.\w+$)', '\1']]

Local $aID[UBound($aExp)][3]

For $ii = 0 To UBound($aExp) - 1
        $aID[$ii][2] = "StringRegExpReplace($String, '" & $aExp[$ii][0] & "', '" & $aExp[$ii][1] & "')"
        $aID[$ii][0] = GUICtrlCreateInput($aID[$ii][2], 10, 50 + 20 * $ii, 410, 18)
        $aID[$ii][1] = GUICtrlCreateInput(Execute($aID[$ii][2]), 430, 50 + 20 * $ii, 250, 18)
Next

GUISetState()

While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
                Case $iBtn_Toggle
                        $iIx = Number(Not $iIx)
                        $String = $aString[$iIx]
                        GUICtrlSetData($iLb, "$String = '" & $String & "'")
                        For $ii = 0 To UBound($aID) - 1
                                GUICtrlSetData($aID[$ii][1], Execute($aID[$ii][2]))
                        Next
        EndSwitch
WEnd
请再帮忙修复一下：24行至26行，谢谢！
回复

举报

afan
发表于 2023-10-30 20:06:50 | 显示全部楼层
chishingchan 发表于 2023-10-30 19:40
a 大，我重复回顾一下旧帖子，找到你给的例子：

请再帮忙修复一下：24行至26行，谢谢！

                ['^.+\K\\.*', ''], _
                ['^.+\\\K.*', ''], _
                ['^.+\K\.\w+$|.+', '']]

评分

参与人数 1威望 +6 金钱 +100 贡献 +20 收起 理由
chishingchan + 6 + 100 + 20 完美！

查看全部评分

回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 02:21 , Processed in 0.083132 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表