首先找到第五行,就是找vbcrlf,然后找第三个数,就是找逗号
余庆ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联建站的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！
有两种办法,一种是纯字符串处理的办法,另一种是使用数组的办法,两种方法都很简单
纯字符串处理的办法适用于任何情况下,而使用数组因性能问题,只适用于源字符串不太大的情况下
使用数组的办法:
'所有字符串
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就是想要的数据
简单点写。
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
VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidMidWords = Mid(MyString, 5) ' 返回 "Funcion
具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。
mid函数的语法：
Mid(string, start[, length])
mid函数的参数：
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。