189 8069 5689
首先找到第五行,就是找vbcrlf,然后找第三个数,就是找逗号
创新互联主要从事网站建设、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务博白,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
有两种办法,一种是纯字符串处理的办法,另一种是使用数组的办法,两种方法都很简单
纯字符串处理的办法适用于任何情况下,而使用数组因性能问题,只适用于源字符串不太大的情况下
使用数组的办法:
'所有字符串
Dim dString As String = "" '请为字符串赋值
Dim dLines = dString.Split({vbCrLf}, StringSplitOptions.None)
'至少有三行才能向下执行
If dLines.Length 3 Then Return
'获取第三行
Dim dRow = dLines(2).Split(","c)
'至少有4列才能向下执行
If dRow.Length 4 Then Return
'获取第4列
Dim dValue = dRow(3)
'dValue就是想要的数据
很简单，用字符串查找函数就可以实现了。\x0d\x0a当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase\x0d\x0a\x0d\x0a比如：\x0d\x0aDim StrA As String = "Time is Limited"\x0d\x0aDim StrB As String = "Time"\x0d\x0aDim Stu As Boolean= InStr(StrA, StrB)\x0d\x0a\x0d\x0a这运行段代码，Stu值就是True了。\x0d\x0a我觉得这样最简单有效。
请参考下面的代码，希望能帮到你。
假设在richtextbox1中查找字符串"你是谁":
Dim start As Integer = richtextbox1.Find("你是谁", 0, RichTextBoxFinds.MatchCase)
if (start = 0) {
richtextbox1.SelectionStart = start
richtextbox1.SelectionLength = "你是谁".Length
}
richtextbox有两种属性可以显示内容：分别是text和lines～～
text属性是对于单行，不需换行的～～
lines属性是对于多行的，他是一个数组～～
对于text属性可以使用以下代码：
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
变量A就是字符起始位置
lines属性是一个数组可以用循环每行比对
简单点写。
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