将字符串分段，取得每段内容
在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属性值,因为这个值是在变化的.
