将字符串分段，取得每段内容

lyx123

在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属性值,因为这个值是在变化的.