重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
很简单,用字符串查找函数就可以实现了。
当在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了。
我觉得这样最简单有效。
语句InStr(2,"abcabc","ab")的功能就是,从字符串"abcabc"左起第2个字符开始,查找字符串
"ab",如果找到就返回匹配的左起的字符位置。
现在从字符串"abcabc"左起第2个字符开始,查找字符串"ab",找到的是第4位与第5位构成的“ab”,所以返回的是4。
这里的4是指,匹配的字符串在原来字符串里左面数起的位置。
例如:
Instr(2,"中国江苏南京","江苏") 返回3
Instr(1,"中国江苏南京","江苏") 返回3
Instr(2,"中国江苏南京","南京") 返回5
Instr(1,"中国江苏南京","苏南") 返回4
richtextbox有两种属性可以显示内容:分别是text和lines~~
text属性是对于单行,不需换行的~~
lines属性是对于多行的,他是一个数组~~
对于text属性可以使用以下代码:
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
变量A就是字符起始位置
lines属性是一个数组可以用循环每行比对
有啊,用正则表达式,下面是简单的例子
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