求一个正则表达式

hearton

127.0.0.1 www.hao123.com
127.0.0.1      www.hao123.com
127.0.0.1            www.hao123.com
64.233.162.83  sites.google.com64.233.162.83  www.hao123.com

从上面这个文本中读取到127.0.0.1 www.hao123.com和64.233.162.83  www.hao123.com并将他们删除，变成：
64.233.162.83  sites.google.com


也就是指定域名如www.hao123.com 和他们前面N个空格的IP地址一起删除

www.hao123.com是可以设置指定的输入框

haijie1223

Local $string = _
                '127.0.0.1 www.hao123.com' & @CRLF & _
                '127.0.0.1      www.hao123.com' & @CRLF & _
                '127.0.0.1            www.hao123.com' & @CRLF & _
                '64.233.162.83  sites.google.com64.233.162.83  www.hao123.com'
Local $sStr = StringRegExpReplace($string, '[\d\.]+\s*?www\.hao123\.com', '')
ConsoleWrite($sStr & @CRLF)

hearton

谢谢了。
在问下，
www.hao123.com
http://www.hao123.com
http://www.hao123.com/search
https://www.hao123.com
www.hao123.com:8080
如何返回www.hao123.com
也就是说判断输入框内容，只取网站的主机名，不取//之前的和:及/后面的。

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 361, 161, 192, 124)
$Input1 = GUICtrlCreateInput("https://www.hao123.com", 40, 40, 273, 21)
$Button1 = GUICtrlCreateButton("检查", 112, 88, 129, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                     msgbox(0,"",  GUICtrlRead($Input1))
        EndSwitch
WEnd

afan

谢谢了。
在问下，





如何返回
也就是说判断输入框内容，只取网站的主机名，不取//之前的和:及/ ...
hearton 发表于 2016-5-7 22:36

    例子考虑的情况比较全面，这样最好

MsgBox(0, "", StringRegExpReplace(GUICtrlRead($Input1), '^(?:.*?://)?([^\s:/]+).*', '${1}'))

hearton

大神的正则实在太厉害了，佩服。。。。

ddrs

大神的正则确实厉害。学习学习。

hearton

还想再问下大神，判断是否有IP 任意控制 主机名
我用单独的IP正则 空格正则 主机名 放在一起不行 ，请问应该怎么弄？
^(?:(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))$
\H+
^([a-zA-z]+://)?([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?$
三行放在一起不行呢？