Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
创新互联主营鹿城网站建设的网络公司,主营网站建设方案,app软件开发公司,鹿城h5小程序定制开发搭建,鹿城网站营销推广欢迎鹿城等地区企业咨询
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 方法是获取字符串的字节数组序列,与之相反的是
Encoding.GetString 方法,把字节数组还原成字符串,参考:
VB.net里有Split函数吗?
我的思路是,先寻找http://字符,然后向后寻找第一个在链接中肯定不会出现的字符,比如 ' " ; , 等等,截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处(一定要注意,VB.net第一个字符的索引值下标为0,所以h是第20个字母,搜索所得到的结果就是19)
然后从19向后搜索异常字符( " ' ; , )之类,得到第二个搜索结果,将这两个结果中间的部分截取就是链接啦
应该是在这两行前面加空格:
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'
如果有问题你把数据的表结构发过来看一下,我帮你再查一下SQL语句是否有问题。