vb.net分割文本 vb分割线怎么打出来

vb.net 分割字符串

Function a(s As String) As String

成都创新互联专注于雷州网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供雷州营销型网站建设，雷州网站制作、雷州网页设计、雷州网站官网定制、成都微信小程序服务，打造雷州网络公司原创品牌,更为您提供雷州网站排名全网营销落地服务。

Dim i = s.IndexOf("/")

If i 0 Then

Return s.Substring(0, i)

ElseIf i = 0 Then '第一个字符为"/"

If s.LastIndexOf("/") 0 Then '不只一个"/"

Return s.Substring(0, s.Substring(1).IndexOf("/") + 1)

Else

Return Nothing '只有一个"/"

End If

Else '不含"/"或是空串

Return Nothing

End If

End Function

基本上不出错了

假设你要分割的字符串是string1的话

分割代码就是：

dim s as string=strings.split(string1,vbcrlf)

这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~

googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。

有些文本中的换行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以这样试试：

a = split(textbox1.text, vbcr)

或

a = split(textbox1.text, vblf)

‘第一种

Dim a As String = IO.Path.GetDirectoryName("D:\项目\0913 \test.text") "\" IO.Path.GetFileNameWithoutExtension("D:\项目\0913 \test.text")

’第二种

Dim a1() As String = Split("D:\项目\0913 \test.text", ".") '以.分割内容

'a1(0)为需要获取的字符串，路径中不能存在两个点或以上

‘第三种

Dim a2 As String = "D:\项目\0913 \test.text"

a2 = a2.Substring(0, a2.Length - 5) '扩展名长度固定，路径中可以存在多个点

' a2 = a2.Substring(0, InStr(a2, ".") - 1) '不知扩展名的长度，路径中不能存在多个点

’如果必要，建议用第一种，不受任何限制

本文题目：vb.net分割文本 vb分割线怎么打出来
本文来源：http://scjbc.cn/article/dohohds.html