‘第一種
樟樹(shù)網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),樟樹(shù)網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為樟樹(shù)1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢(qián),請(qǐng)找那個(gè)售后服務(wù)好的樟樹(shù)做網(wǎng)站的公司定做!
Dim?a?As?String?=?IO.Path.GetDirectoryName("D:\項(xiàng)目\0913?\test.text")??"\"??IO.Path.GetFileNameWithoutExtension("D:\項(xiàng)目\0913?\test.text")
’第二種
Dim?a1()?As?String?=?Split("D:\項(xiàng)目\0913?\test.text",?".")?'以.分割內(nèi)容
'a1(0)為需要獲取的字符串,路徑中不能存在兩個(gè)點(diǎn)或以上
‘第三種
Dim?a2?As?String?=?"D:\項(xiàng)目\0913?\test.text"
a2?=?a2.Substring(0,?a2.Length?-?5)?'擴(kuò)展名長(zhǎng)度固定,路徑中可以存在多個(gè)點(diǎn)
' a2?=?a2.Substring(0,?InStr(a2,?".")?-?1)?'不知擴(kuò)展名的長(zhǎng)度,路徑中不能存在多個(gè)點(diǎn)
’如果必要,建議用第一種,不受任何限制
Function a(s As String) As String
Dim i = s.IndexOf("/")
If i 0 Then
Return s.Substring(0, i)
ElseIf i = 0 Then '第一個(gè)字符為"/"
If s.LastIndexOf("/") 0 Then '不只一個(gè)"/"
Return s.Substring(0, s.Substring(1).IndexOf("/") + 1)
Else
Return Nothing '只有一個(gè)"/"
End If
Else '不含"/"或是空串
Return Nothing
End If
End Function
基本上不出錯(cuò)了
Dim?TestArray()?As?String?=?TestString.Split("?")'按空格"?"把字符串testString分割
Split只能處理一個(gè)字符作為分隔符,你這種情況得自己手工處理, 不能使用Split.
可以這樣寫(xiě):
s = data.Trim.Split(CChar("|"))
s(0) = s(0).Replace("file","")