有些文本中的换行符不一定是vbCrLf,也有可能是vbCr或vbLf,你可以这样试试：
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
假设你要分割的字符串是string1的话
分割代码就是：
dim s as string=strings.split(string1,vbcrlf)
这样s就是一个阵列了.s(0)是第一段内容,s(1)是第二段内容,以此类推.~~
如果是的话
Dim arr1 As New ArrayList
Dim i As Integer
End If
Next
最后得到的 arr1 就是分割后的字符串集合
如果原字符串没有空格,并且字符串长度固定,截取出来的部分也固定
那么就用 substring函数 一个一个的截取也就试了
如果原字符串长度也不固定,那么要根据你的截取规则来做.如果上述两个答案不能解决的话还需要更详细的问题
'第一种
'第二种
'a1(0)为需要获取的字符串,路径中不能存在两个点或以上
'第三种
'如果必要,建议用第一种,不受任何限制
病情分析：
土嘎嘎的粉丝们大家好,根据你的情况看考虑是由于身体虚弱导致的,这样的情况最好是在来月经前通过饮食或是药物来缓解一下的,有利于缓解症状的.
指导意见：
考虑是营卫不和体虚自汗了,可考虑吃玉屏风散;也可吃些补气固表的中成药黄芪精口服液的,顺祝健康！
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 '只有一个"/"
Else '不含"/"或是空串
Return Nothing
End Function
基本上不出错了