十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
有一个字符串函数:Instr(n,S1,S2)
为钦南等地区用户提供了全套网页设计制作服务,及钦南网站建设行业解决方案。主营业务为成都网站制作、网站设计、钦南网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
该函数的功能:从字符串S1的左起第N位开始,向右逐位进行搜索匹配字符串S2,如果找到匹配,就返回一个整数指明匹配的位置,否则就返回0。如果缺省n,就是默认从字符串S1的左起第1位开始,进行搜索匹配字符串S2。
例如1:Instr(1,"abcde","a"),返回1
例如2:Instr(3,"abcde","a"),返回0
例如3:Instr(1,"abcde","c"),返回3
例如4:Instr(1,"abcde","cde"),返回3
例如5:Instr(4,"ab12cd12e12","12"),返回7,这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12",找到的是中间一个“12”,这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。
而:Instr(1,"ab12cd12e12","12"),返回3
Instr("ab12cd12e12","12"),返回3
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim request As Net.WebRequest = WebRequest.Create("http去:/掉/finance.ya中hoo.com/q/hp文?s=SPY+Historical+Prices")
Dim response As WebResponse = request.GetResponse()
Dim stream As IO.Stream = response.GetResponseStream()
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Dim s As String = Regex.Match(sr.ReadToEnd, "Adj Close[\s\S]{450}").ToString
Dim z(3) As Double
Dim l As Int16 = 0
For Each i In Regex.Matches(s, "[\d]{0,3}\.\d*")
z(l) = i.value
l = l + 1
If l 3 Then Exit For
Next
TextBox1.Text = z(0)
TextBox2.Text = z(1)
TextBox3.Text = z(2)
TextBox4.Text = z(3)
End SubE
End Class
——————
去掉连接中的中文,怕屏蔽,这是获取prices的第一排数据,网页可能会有变化
用 Like
% = 任意数量的字符
?= 单个字符
类似简易的正规则比对。
具体可参照MSDN
例:(以下代码可以直接放到程序里执行)
dim str as string
str = "abc123"
if str like "a%" then msgbox "yes"
if str like "%a%2%" then msgbox "yes"
if str like "%3" then msgbox "yes"
if str like "%3?" = false then msgbox "no"