Vb.net 怎樣將split分割的字符串放進(jìn)數(shù)組

有些文本中的換行符不一定是vbCrLf，也有可能是vbCr或vbLf，你可以這樣試試：

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、成都做網(wǎng)站服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)新化免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了千余家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

a = split(textbox1.text, vbcr)

或

a = split(textbox1.text, vblf)

VB.NET 字串用換行分割

假設(shè)你要分割的字符串是string1的話

分割代碼就是：

dim s as string=strings.split(string1,vbcrlf)

這樣s就是一個(gè)陣列了。s(0)是第一段內(nèi)容，s(1)是第二段內(nèi)容，以此類推。~~

googles8 的寫法也對(duì)的。不過(guò)我的代碼省去了聲明的一行。只用一行就好了。

求vb.net大神,將字符串分割，急?。。?！

原字符串里：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" '你原來(lái)的字符串

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 就是分割后的字符串集合

如果原字符串沒(méi)有空格，并且字符串長(zhǎng)度固定，截取出來(lái)的部分也固定

那么就用 substring函數(shù) 一個(gè)一個(gè)的截取也就試了

如果原字符串長(zhǎng)度也不固定，那么要根據(jù)你的截取規(guī)則來(lái)做。如果上述兩個(gè)答案不能解決的話還需要更詳細(xì)的問(wèn)題

VB.net 字符串分割的問(wèn)題

‘第一種

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)

’如果必要，建議用第一種，不受任何限制

VB.net 分割字符串

病情分析：

你好，根據(jù)你的情況看考慮是由于身體虛弱導(dǎo)致的，這樣的情況最好是在來(lái)月經(jīng)前通過(guò)飲食或是藥物來(lái)緩解一下的，有利于緩解癥狀的。

指導(dǎo)意見(jiàn)：

建議：1、在來(lái)月經(jīng)前要不要吃生冷的和刺激的食物，月經(jīng)期要主要保暖，多和各種有營(yíng)養(yǎng)的肉湯。2、平時(shí)可以多吃一些含有蛋白質(zhì)的食物，這樣有利于身體的恢復(fù)，同時(shí)也要增加體育鍛煉。

考慮是營(yíng)衛(wèi)不和體虛自汗了，可考慮吃玉屏風(fēng)散;也可吃些補(bǔ)氣固表的中成藥黃芪精口服液的，順祝健康！

vb.net 分割字符串

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ò)了