13518219792
表1
成都创新互联专注于企业全网营销推广、网站重做改版、新巴尔虎左网站定制设计、自适应品牌网站建设、H5页面制作、商城网站开发、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为新巴尔虎左等各大城市提供网站开发制作服务。
名字：人员信息。属性：姓名，电话，地址，关系类别ID。
表2
名字：关系表。属性：关系类别ID，关系名字。
select
T1.*，T3.关系名字
from
人员信息
T1,关系表
t3
where
T1.关系类别ID
=
T3.关系类别ID;
VB.net：表达式中若运算符不只一种时，首先处理算术运算符，然后是比较运算符，最后是逻辑运算符。同一种运算符中，单目运算符的优先级高于双目运算符。优先级相同的运算符，按从左到右的顺序进行处理（求指运算除外）。
+,-,*,/,^,Mod 属于算术运算符
=,,,,=,= 属于比较运算符
And,Or,Not 这些属于逻辑运算符
所以，来看你的表达式：
首先进行算术运算： 100 + 10 * 3 = 100 + 30 = 130
12^2 = 144
然后进行比较运算： 130 144 ，比较运算结果为：True
最后进行逻辑运算： True And True ，结果为：True
所以表达式的最终结果为：True, 答案选A！
正则表达式是：
/[a-zA-Z/]+$
如果要把第一个斜杠去掉，就是匹配index/index/index，用后向匹配，正则是：
(?=/)[a-zA-Z/]+$
Imports System.Text.RegularExpressions
Public Class Form1
Public Function MadeRegexArray(ByVal strText As String, ByVal strRegx As String, ByVal rexOpt As RegexOptions, ByVal Groups As Integer) As String()
REM 正则结果直接以字符串组形式返回
REM strHtml待搜索的字符串
REM strRegx正则表达式
REM rexOpt正则选项
On Error Resume Next
Return MadeMatchString(MadeRegexMatch(strText, strRegx, rexOpt), Groups)
End Function
Public Function MadeMatchString(ByVal mc As MatchCollection, ByVal Groups As Integer) As String()
REM 把MatchCollection以字符串组形式保存
REM mc正则匹配的集合
REM 返回字符串组
On Error Resume Next
Dim strRegCode(mc.Count) As String
For i As Integer = 0 To mc.Count - 1
strRegCode(i) = mc(i).Groups(Groups).Value
Next i
Return strRegCode
End Function
Public Function MadeRegexMatch(ByVal strText As String, ByVal strRegex As String, ByVal rexOpt As RegexOptions) As MatchCollection
REM 获取正则表达式匹配的集合
REM strHtml待正则的字符串
REM strRegex正则表达式
REM rexOpt正则选项
REM 返回 MatchCollection 类型集合
On Error Resume Next
Dim rex As Regex = New Regex(strRegex, rexOpt)
Return rex.Matches(strText)
End Function
Public Function MadeRegexReplace(ByVal sText As String, ByVal sRegex As String, ByVal sReplace As String) As String
REM 正则表达式文本替换
REM sText原文本
REM sRegex表达式
REM sReplace替换文本
On Error Resume Next
Dim rex As Regex = New Regex(sRegex, RegexOptions.IgnoreCase)
Return rex.Replace(sText, sReplace)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim sRegex As String = "([\s\S]*?)"
Dim aTable() As String = MadeRegexArray(TextBox1.Text, sRegex, RegexOptions.IgnoreCase, 1)
For i As Integer = 0 To aTable.Length - 1
TextBox2.Text = TextBox2.Text aTable(i)
Next i
End Sub
End Class
如图：
Matches[1] 就是cc的数字
Matches[2] 就是bb的数字
[0]是整个字符串
在所给代码基础上仅作修改.
首先导入命名空间
Imports System.Text.RegularExpressions
然后:
Function geta(ByVal Str)
Dim re As New Regex("a(.+?)href=""*([^\s]+?)""*(\s|)")
Dim Contents As MatchCollection = re.Matches(Str)
Dim links As String = Nothing
For Each Match In Contents ' 遍历匹配集合。
links = links + Match.SubMatches(1) + "|"
Next
geta = Mid(links, 1, Len(links) - 1)
geta = Replace(geta, "'", "")
re = Nothing
End Function
