开发版,做个记录 抄 飞 的正则表达式
Dim hc As New HttpClient("https://ip.51240.com/")
Dim txt As String = hc.GetData()
'MessageBox.Show(dt)
Dim pattern As String = "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)"
'Dim txt = "13[246]57[98]1223"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
'For Each match As System.Text.RegularExpressions.Match In rgx.Matches(txt)
'Output.Show(match.item(0).Value )
'Next
Dim Matches As object = rgx.Matches(txt)
output.show( Matches.Item(0).Value)
此主题相关图片如下:ip.png
[此贴子已经被作者于2020/12/26 15:28:33编辑过]