‘第一种
樟树网站建设公司创新互联,樟树网站设计制作,有大型网站制作公司丰富经验。已为樟树1000+提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱,请找那个售后服务好的樟树做网站的公司定做!
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) '不知扩展名的长度,路径中不能存在多个点
’如果必要,建议用第一种,不受任何限制
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
基本上不出错了
Dim TestArray() As String = TestString.Split(" ")'按空格" "把字符串testString分割
Split只能处理一个字符作为分隔符,你这种情况得自己手工处理, 不能使用Split.
可以这样写:
s = data.Trim.Split(CChar("|"))
s(0) = s(0).Replace("file","")