VB.net里有Split函数吗?
我的思路是,先寻找http://字符,然后向后寻找第一个在链接中肯定不会出现的字符,比如 ' " ; , 等等,截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
文本框 TextBox1
上一条 Button1
Imports?System.IO
Public?Class?Form1
Dim?currIndex?As?Integer?=?0
Dim?s?As?String
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
s?=?File.ReadAllText(Application.StartupPath?"\txt.txt")
Dim?s1?As?String()?=?s.Split("@")
For?i?As?Integer?=?0?To?s1.Length?-?1
If?s1(i).Trim()?""?Then
End?If
Next
End?Sub
currIndex?=?currIndex?+?1
MsgBox("已经是最后条了")
Return
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
currIndex?=?currIndex?-?1
If?currIndex?0?Then
MsgBox("已经是第一条了")
s?=?""
File.WriteAllText(Application.StartupPath?"\txt.txt",?s)
End?Class
Dim strFilePath As String =SaveFileDialog1.FileName
Dim sw As StreamWriter = New StreamWriter(strFilePath, True) 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
sw.Close()
sw = Nothing
idx = str0.IndexOf("}")
Do While idx = 0
str1 = str0.Substring(0, idx)
Loop
这种情况不建议使用正则做匹配,而且从你贴出来的这一小部分代码里也看不出什么规律.
建议使用 HtmlAgilityPack 或者 NSoup 一类的库,就可以把 HTML 文档变成类似于 jQuery 选择的方式来处理了,容错性和便捷度都更高.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim s() As String
s = Split(TextBox1.Text, vbCrLf)
For i = 0 To UBound(s)
TextBox1.Text = Join(s, vbCrLf)
End Sub
以上就是土嘎嘎小编为大家整理的vb.net指定字符相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!