重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
有啊,用正则表达式,下面是简单的例子
创新互联建站专注于武义网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供武义营销型网站建设,武义网站制作、武义网页设计、武义网站官网定制、微信小程序服务,打造武义网络公司原创品牌,更为您提供武义网站排名全网营销落地服务。
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = "ABCDAEAFAG"
Dim Patter As String = "A"
Dim Matches As MatchCollection = Regex.Matches(str, Patter, RegexOptions.IgnoreCase Or RegexOptions.ExplicitCapture)
For Each ws In Matches
ListBox1.Items.Add("索引位置:" ws.index)
Next
End Sub
End Class
dim st as string = "qwertyuiop"
msgbox(st.indexof("p"))
若为-1,则表示不存在
简单点写。
Module Program
Sub Main()
Console.WriteLine("Hello World!")
Dim t As String, a() As String, c As Integer
t="/admin/index/login/defasd.php"
a=t.Split("/"c)
c=0
For Each p In a
If c0 Then
Console.WriteLine("/"+p)
End If
c+=1
Next
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
========
Hello World!
/admin
/index
/login
/defasd.php
字符串中指定文字位置查询,如:instr("inter","er")
返回待判断字符串在原字符串中第一次出现的位置,如果不包含的话返回0