^Host:\s(.+)$
成都创新互联专注于武安网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供武安营销型网站建设，武安网站制作、武安网页设计、武安网站官网定制、重庆小程序开发服务，打造武安网络公司原创品牌,更为您提供武安网站排名全网营销落地服务。
^表示是一行的开始，Host:是你要匹配的内容中固定的部分（我是这么认为的），\s表示有一个空格或者Tab，（.+）表示任意字符，就是匹配hm.baidu.com的，$表示是行的结尾，匹配结果中提取到的就是hm.baidu.com了。
Dim 测试文本 = "td class=''68/tdtd class=''65/tdtd class=''169/td"
Dim 匹配集合 = (New Regex("(?is)(?=)[^]+(?=)")).Matches(测试文本)
Dim 结果列表 As New List（Of Decimal）
For Each 匹配 As Match In 匹配集合
If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))
Next
软糖来回答吧， 已测试可用。
如满意请采纳，谢谢。
你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
完整的程序如下(改动的地方见注释)
Dim bbb As String
bbb = TextBox1.Text
Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格
MsgBox(My_str)
MatchCollection
Dim IsMatch As Boolean = Regex，如何将SearchPattern中的指定的 那个三个小括号对应的内容即SubMatches(0)=".RegularExpressions.Groups(0);) ！
For Each Mt In Matchs
On Error Resume Next
S = S Macth; Publi" SubMatches(2)=".RegularExpressions; SubMatches(1)=".Matches("，提取不出来呢;Chin".RegularExpressions.Regex(SearchPattern)
Dim Matchs As System;China Public National".+)"？
我用如下 ; 提取出来呢.Text.Regex
Regex = New System; National".IsMatch(StrForSearch)
Matchs = Regex.+)c(，执行了此句之后;(.Text.Text.+)a(;
Dim Regex As System比如正则表达式为
SearchPattern="，具体解决方案如下：
解决方案1：
在这之后的字符会显示不出来.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System;Groups集合索引从0开始.Item(i)，但是第一项是完整匹配项，这个是字符串的结束标记.+)c(，接下去才是子项
S = S .Text;"Dim IsMatch As Boolean = Regex.RegularExpressions，但是不要用Chr(0).Regex
Regex = New System;China Public National".RegularExpressions.Value vbcrlf
Next
也是可以的;
With Matchs; ".Count - 1 '.Text.MatchCollection
'.+)".IsMatch(StrForSearch)
Matchs = Regex：
For Each Mt In Matchs.groups
S = S Mt.Item(0);
Next
End With
MsgBox(S)
你的循环改成.Matches(")
Dim S As String = "
Dim Regex As System.Item(0).Value "Dim SearchPattern As String = ".Text.Groups
For i As Integer = 1 To ;(.+)a(
提问者评价
多谢指教！
解决方案2：
Dim SearchPattern As String = "(.+)a(.+)c(.+)"
Dim Regex As System.Text.RegularExpressions.Regex
Regex = New System.Text.RegularExpressions.Regex(SearchPattern)
Dim Matchs As System.Text.RegularExpressions.MatchCollection
'Dim IsMatch As Boolean = Regex.IsMatch(StrForSearch)
Matchs = Regex.Matches("China Public National")
Dim S As String = ""
With Matchs.Item(0).Groups
For i As Integer = 1 To .Count - 1 'Groups集合索引从0开始，但是第一项是完整匹配项，接下去才是子项
S = S .Item(i).Value " "
Next
End With
MsgBox(S)
解决方案3：
Dim matches As MatchCollection = rx.Matches("(.*)")