Function a(s As String) As String
城東網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項目制作，到程序開發(fā)，運營維護(hù)。創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。
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
基本上不出錯了
有些文本中的換行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以這樣試試：
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
原字符串里：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ī)則來做。如果上述兩個答案不能解決的話還需要更詳細(xì)的問題
‘第一種
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)?'擴(kuò)展名長度固定，路徑中可以存在多個點
' a2?=?a2.Substring(0,?InStr(a2,?".")?-?1)?'不知擴(kuò)展名的長度，路徑中不能存在多個點
’如果必要，建議用第一種，不受任何限制
病情分析：
你好，根據(jù)你的情況看考慮是由于身體虛弱導(dǎo)致的，這樣的情況最好是在來月經(jīng)前通過飲食或是藥物來緩解一下的，有利于緩解癥狀的。
指導(dǎo)意見：
建議：1、在來月經(jīng)前要不要吃生冷的和刺激的食物，月經(jīng)期要主要保暖，多和各種有營養(yǎng)的肉湯。2、平時可以多吃一些含有蛋白質(zhì)的食物，這樣有利于身體的恢復(fù)，同時也要增加體育鍛煉。
考慮是營衛(wèi)不和體虛自汗了，可考慮吃玉屏風(fēng)散;也可吃些補(bǔ)氣固表的中成藥黃芪精口服液的，順祝健康！
假設(shè)你要分割的字符串是string1的話
分割代碼就是：
dim s as string=strings.split(string1,vbcrlf)
這樣s就是一個陣列了。s(0)是第一段內(nèi)容，s(1)是第二段內(nèi)容，以此類推。~~
googles8 的寫法也對的。不過我的代碼省去了聲明的一行。只用一行就好了。
重慶分公司
重慶分公司
