原字符串里:00.0 R-1 SW_STOP 6-9 之間是不是有空格?
成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站設計、做網(wǎng)站與策劃設計,臺州網(wǎng)站建設哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設十載,網(wǎng)設計領(lǐng)域的專業(yè)建站公司;建站業(yè)務涵蓋:臺州等地區(qū)。臺州做網(wǎng)站價格咨詢:028-86922220
如果是的話
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函數(shù) 一個一個的截取也就試了
如果原字符串長度也不固定,那么要根據(jù)你的截取規(guī)則來做。如果上述兩個答案不能解決的話還需要更詳細的問題
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
基本上不出錯了
病情分析:
你好,根據(jù)你的情況看考慮是由于身體虛弱導致的,這樣的情況最好是在來月經(jīng)前通過飲食或是藥物來緩解一下的,有利于緩解癥狀的。
指導意見:
建議:1、在來月經(jīng)前要不要吃生冷的和刺激的食物,月經(jīng)期要主要保暖,多和各種有營養(yǎng)的肉湯。2、平時可以多吃一些含有蛋白質(zhì)的食物,這樣有利于身體的恢復,同時也要增加體育鍛煉。
考慮是營衛(wèi)不和體虛自汗了,可考慮吃玉屏風散;也可吃些補氣固表的中成藥黃芪精口服液的,順祝健康!
假設你要分割的字符串是string1的話
分割代碼就是:
dim s as string=strings.split(string1,vbcrlf)
這樣s就是一個陣列了。s(0)是第一段內(nèi)容,s(1)是第二段內(nèi)容,以此類推。~~
googles8 的寫法也對的。不過我的代碼省去了聲明的一行。只用一行就好了。