Function a(s As String) As String
黄石网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作，到程序开发，运营维护。创新互联公司公司2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。
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 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。
原字符串里：00.0 R-1 SW_STOP 6-9 之间是不是有空格？
如果是的话
Dim STR1, STR2() As String
Dim arr1 As New ArrayList
STR1 = ":00.00 R-1 Sw_STOP 6-9" '你原来的字符串
STR2 = STR1.Split(" ") ‘按空格符截取
Dim i As Integer
For i = 0 To STR2.Length - 1 Step 1
If STR2(i) "" Then
arr1.Add(STR2(i))
End If
Next
最后得到的 arr1 就是分割后的字符串集合
如果原字符串没有空格，并且字符串长度固定，截取出来的部分也固定
那么就用 substring函数 一个一个的截取也就试了
如果原字符串长度也不固定，那么要根据你的截取规则来做。如果上述两个答案不能解决的话还需要更详细的问题
‘第一种
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) '不知扩展名的长度，路径中不能存在多个点
’如果必要，建议用第一种，不受任何限制
