189 8069 5689
简单点写。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、网站空间、营销软件、网站建设、印台网站维护、网站推广。
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
首先找到第五行,就是找vbcrlf,然后找第三个数,就是找逗号
有两种办法,一种是纯字符串处理的办法,另一种是使用数组的办法,两种方法都很简单
纯字符串处理的办法适用于任何情况下,而使用数组因性能问题,只适用于源字符串不太大的情况下
使用数组的办法:
'所有字符串
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就是想要的数据
VB.net里有Split函数吗？
我的思路是，先寻找http://字符，然后向后寻找第一个在链接中肯定不会出现的字符，比如 ' " ; , 等等，截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处（一定要注意，VB.net第一个字符的索引值下标为0，所以h是第20个字母，搜索所得到的结果就是19）
然后从19向后搜索异常字符（ " ' ; , ）之类，得到第二个搜索结果，将这两个结果中间的部分截取就是链接啦
dim st as string = "qwertyuiop"
msgbox(st.indexof("p"))
若为-1,则表示不存在
richtextbox有两种属性可以显示内容：分别是text和lines～～
text属性是对于单行，不需换行的～～
lines属性是对于多行的，他是一个数组～～
对于text属性可以使用以下代码：
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
变量A就是字符起始位置
lines属性是一个数组可以用循环每行比对