Function a(s As String) As String
成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、蟠龍網(wǎng)絡(luò)推廣、小程序開發(fā)、蟠龍網(wǎng)絡(luò)營銷、蟠龍企業(yè)策劃、蟠龍品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎;成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供蟠龍建站搭建服務(wù),24小時服務(wù)熱線:18982081108,官方網(wǎng)址:www.cdcxhl.com
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 b() As String
b() = Split(list1.text, " ")
text1.text = b(0)
text2.text = b(1)
是這樣用的
不能賦值給具體的數(shù)組元素
原字符串里: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函數(shù) 一個一個的截取也就試了
如果原字符串長度也不固定,那么要根據(jù)你的截取規(guī)則來做。如果上述兩個答案不能解決的話還需要更詳細的問題