表1
成都創(chuàng)新互聯(lián)專注于企業(yè)全網(wǎng)營(yíng)銷推廣、網(wǎng)站重做改版、新巴爾虎左網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5頁(yè)面制作、商城網(wǎng)站開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為新巴爾虎左等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
名字:人員信息。屬性:姓名,電話,地址,關(guān)系類別ID。
表2
名字:關(guān)系表。屬性:關(guān)系類別ID,關(guān)系名字。
select
T1.*,T3.關(guān)系名字
from
人員信息
T1,關(guān)系表
t3
where
T1.關(guān)系類別ID
=
T3.關(guān)系類別ID;
VB.net:表達(dá)式中若運(yùn)算符不只一種時(shí),首先處理算術(shù)運(yùn)算符,然后是比較運(yùn)算符,最后是邏輯運(yùn)算符。同一種運(yùn)算符中,單目運(yùn)算符的優(yōu)先級(jí)高于雙目運(yùn)算符。優(yōu)先級(jí)相同的運(yùn)算符,按從左到右的順序進(jìn)行處理(求指運(yùn)算除外)。
+,-,*,/,^,Mod 屬于算術(shù)運(yùn)算符
=,,,,=,= 屬于比較運(yùn)算符
And,Or,Not 這些屬于邏輯運(yùn)算符
所以,來(lái)看你的表達(dá)式:
首先進(jìn)行算術(shù)運(yùn)算: 100 + 10 * 3 = 100 + 30 = 130
12^2 = 144
然后進(jìn)行比較運(yùn)算: 130 144 ,比較運(yùn)算結(jié)果為:True
最后進(jìn)行邏輯運(yùn)算: True And True ,結(jié)果為:True
所以表達(dá)式的最終結(jié)果為:True, 答案選A!
正則表達(dá)式是:
/[a-zA-Z/]+$
如果要把第一個(gè)斜杠去掉,就是匹配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?正則結(jié)果直接以字符串組形式返回
REM?strHtml待搜索的字符串
REM?strRegx正則表達(dá)式
REM?rexOpt正則選項(xiàng)
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?獲取正則表達(dá)式匹配的集合
REM?strHtml待正則的字符串
REM?strRegex正則表達(dá)式
REM?rexOpt正則選項(xiàng)
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?正則表達(dá)式文本替換
REM?sText原文本
REM?sRegex表達(dá)式
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的數(shù)字
Matches[2] 就是bb的數(shù)字
[0]是整個(gè)字符串
在所給代碼基礎(chǔ)上僅作修改.
首先導(dǎo)入命名空間
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