新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
dim st as string = "qwertyuiop"
创新互联是一家专注于网站建设、成都做网站与策划设计,徽县网站建设哪家好?创新互联做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:徽县等地区。徽县做网站价格咨询:18982081108
msgbox(st.indexof("p"))
若为-1,则表示不存在
VB.net里有Split函数吗?
我的思路是,先寻找http://字符,然后向后寻找第一个在链接中肯定不会出现的字符,比如 ' " ; , 等等,截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处(一定要注意,VB.net第一个字符的索引值下标为0,所以h是第20个字母,搜索所得到的结果就是19)
然后从19向后搜索异常字符( " ' ; , )之类,得到第二个搜索结果,将这两个结果中间的部分截取就是链接啦
很简单,用字符串查找函数就可以实现了。
当在StrB查找到StrA字符串时,返回肯定是非0的数,值就是True,找不到为0或者-1,值就是Flase
比如:
Dim StrA As String = "Time is Limited"
Dim StrB As String = "Time"
Dim Stu As Boolean= InStr(StrA, StrB)
这运行段代码,Stu值就是True了。
我觉得这样最简单有效。
有啊,用正则表达式,下面是简单的例子
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
有一个字符串函数: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
简单点写。
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