讓我來告訴你答案!利用myword=.Split(separator),可以把字符串在指定的位置分開,這個(gè)位置有separator這個(gè)數(shù)組的形式?jīng)Q定,可以設(shè)定為空格字符就OK了!
成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),永善企業(yè)網(wǎng)站建設(shè),永善品牌網(wǎng)站建設(shè),網(wǎng)站定制,永善網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,永善網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(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ò)展名長度固定,路徑中可以存在多個(gè)點(diǎn)
' a2?=?a2.Substring(0,?InStr(a2,?".")?-?1)?'不知擴(kuò)展名的長度,路徑中不能存在多個(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ò)了