‘第一種
十余年的泰興網(wǎng)站建設(shè)經(jīng)驗,針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù),響應(yīng)快,48小時及時工作處理。成都全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動調(diào)整泰興建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計,從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)公司從事“泰興網(wǎng)站設(shè)計”,“泰興網(wǎng)站推廣”以來,每個客戶項目都認(rèn)真落實執(zhí)行。
Dim?a?As?String?=?IO.Path.GetDirectoryName("D:\項目\0913?\test.text")??"\"??IO.Path.GetFileNameWithoutExtension("D:\項目\0913?\test.text")
’第二種
Dim?a1()?As?String?=?Split("D:\項目\0913?\test.text",?".")?'以.分割內(nèi)容
'a1(0)為需要獲取的字符串,路徑中不能存在兩個點或以上
‘第三種
Dim?a2?As?String?=?"D:\項目\0913?\test.text"
a2?=?a2.Substring(0,?a2.Length?-?5)?'擴展名長度固定,路徑中可以存在多個點
' a2?=?a2.Substring(0,?InStr(a2,?".")?-?1)?'不知擴展名的長度,路徑中不能存在多個點
’如果必要,建議用第一種,不受任何限制
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
基本上不出錯了
假設(shè)你要分割的字符串是string1的話
分割代碼就是:
dim s as string=strings.split(string1,vbcrlf)
這樣s就是一個陣列了。s(0)是第一段內(nèi)容,s(1)是第二段內(nèi)容,以此類推。~~
googles8 的寫法也對的。不過我的代碼省去了聲明的一行。只用一行就好了。