在vb或者vb.net編程的時候,我們可能把一些值是放在這樣的格式里面的.”123-456-123-456-123-456-123”,而不是把放在數組里面的.這種情況實際上是比較常見的.筆者所在的公司,開發的網頁或者是window應用中,經常從一個頁面要傳遞很多的值到另外一個頁面,而且值的多少也不知道,就經常用這種方法來實現.

在得到這樣一個字符串時候,還要把解開.得到每一個段的值,這就要求把字符串分段,取得每一段的內容的問題了.如下就是筆者在開發中用到的一個函數.vb6或者是vb.net上成功編譯.如果你在實際應用中也有這樣的要求,未嘗不可一試.

‘autor:lyxer

‘email:l_yx123@sina.com.cn

'將字符串分段，取得每段內容

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




在使用的時候,你要注意, sSource必須要放在一個變量里面,不要把設成某一個空間的caption或者試text屬性值,因為這個值是在變化的.