Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
創(chuàng)新互聯(lián)主營鹿城網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app軟件開發(fā)公司,鹿城h5小程序定制開發(fā)搭建,鹿城網(wǎng)站營銷推廣歡迎鹿城等地區(qū)企業(yè)咨詢
abc(TextBox1.Text)
End Sub
Private Function abc(ByVal s As String) As Boolean
If s.Length = 0 Or InStr(s, " ") = 0 Then abc = False : Exit Function
Dim r As String = ""
If s.Substring(0, 1) = "/" Then r = s.Substring(1, InStr(s, " ") - 2)
Dim t As String = IO.File.ReadAllText("地址", System.Text.Encoding.Default)
Return CBool(InStr(t, r))
End Function
GetBytes 方法是獲取字符串的字節(jié)數(shù)組序列,與之相反的是
Encoding.GetString 方法,把字節(jié)數(shù)組還原成字符串,參考:
VB.net里有Split函數(shù)嗎?
我的思路是,先尋找http://字符,然后向后尋找第一個在鏈接中肯定不會出現(xiàn)的字符,比如 ' " ; , 等等,截取中間這段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",發(fā)現(xiàn)在第19個字符處(一定要注意,VB.net第一個字符的索引值下標(biāo)為0,所以h是第20個字母,搜索所得到的結(jié)果就是19)
然后從19向后搜索異常字符( " ' ; , )之類,得到第二個搜索結(jié)果,將這兩個結(jié)果中間的部分截取就是鏈接啦
應(yīng)該是在這兩行前面加空格:
AND AC95.BAE415 '999'
AND AAE140 = '11'
語句改成如下看看:SELECT AAC003 姓名,AAC002 身份證號碼,(SELECT DISTINCT FIRST_VALUE(AIC263) OVER(PARTITION BY AAC001 ORDER BY AAE002 DESC) FROM ASSI.AC95 WHERE AC95.AAE117 = '1' AND AC95.BAE415 '999' AND AAE140 = '11'
如果有問題你把數(shù)據(jù)的表結(jié)構(gòu)發(fā)過來看一下,我?guī)湍阍俨橐幌耂QL語句是否有問題。