189 8069 5689
原字符串里：00.0 R-1 SW_STOP 6-9 之间是不是有空格？
创新互联拥有十年成都网站建设工作经验,为各大企业提供做网站、网站建设服务，对于网页设计、PC网站建设（电脑版网站建设）、重庆APP软件开发、wap网站建设（手机版网站建设）、程序开发、网站优化（SEO优化）、微网站、申请域名等，凭借多年来在互联网的打拼，我们在互联网网站建设行业积累了很多网站制作、网站设计、网络营销经验，集策划、开发、设计、营销、管理等网站化运作于一体，具备承接各种规模类型的网站建设项目的能力。
如果是的话
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函数 一个一个的截取也就试了
如果原字符串长度也不固定，那么要根据你的截取规则来做。如果上述两个答案不能解决的话还需要更详细的问题
假设你要分割的字符串是string1的话
分割代码就是：
dim s as string=strings.split(string1,vbcrlf)
这样s就是一个阵列了。s(0)是第一段内容，s(1)是第二段内容，以此类推。~~
googles8 的写法也对的。不过我的代码省去了声明的一行。只用一行就好了。
病情分析：
你好，根据你的情况看考虑是由于身体虚弱导致的，这样的情况最好是在来月经前通过饮食或是药物来缓解一下的，有利于缓解症状的。
指导意见：
建议：1、在来月经前要不要吃生冷的和刺激的食物，月经期要主要保暖，多和各种有营养的肉汤。2、平时可以多吃一些含有蛋白质的食物，这样有利于身体的恢复，同时也要增加体育锻炼。
考虑是营卫不和体虚自汗了，可考虑吃玉屏风散;也可吃些补气固表的中成药黄芪精口服液的，顺祝健康！
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
基本上不出错了
有些文本中的换行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以这样试试：
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)