在vb或者vb.net編程的時(shí)候,我們可能把一些值是放在這樣的格式里面的.”123-456-123-456-123-456-123”,而不是把放在數(shù)組里面的.這種情況實(shí)際上是比較常見(jiàn)的.筆者所在的公司,開(kāi)發(fā)的網(wǎng)頁(yè)或者是window應(yīng)用中,經(jīng)常從一個(gè)頁(yè)面要傳遞很多的值到另外一個(gè)頁(yè)面,而且值的多少也不知道,就經(jīng)常用這種方法來(lái)實(shí)現(xiàn).

在得到這樣一個(gè)字符串時(shí)候,還要把解開(kāi).得到每一個(gè)段的值,這就要求把字符串分段,取得每一段的內(nèi)容的問(wèn)題了.如下就是筆者在開(kāi)發(fā)中用到的一個(gè)函數(shù).vb6或者是vb.net上成功編譯.如果你在實(shí)際應(yīng)用中也有這樣的要求,未嘗不可一試.

‘a(chǎn)utor:lyxer

‘email:l_yx123@sina.com.cn

'將字符串分段，取得每段內(nèi)容

Public Function Get_Token(ByRef sSource As String, ByVal sSeparator As String)

Dim P As Integer

Dim sRet As String

P = InStr(sSource, sSeparator)

If P = 0 Then

sRet = sSource

sSource = ""

Else

sRet = Mid(sSource, 1, P - 1)

sSource = Right(sSource, Len(sSource) - P)

End If

Get_Token = sRet

End Function




在使用的時(shí)候,你要注意, sSource必須要放在一個(gè)變量里面,不要把設(shè)成某一個(gè)空間的caption或者試text屬性值,因?yàn)檫@個(gè)值是在變化的.