在 vb 或者 vb.net 编程的时候 , 我们可能把一些值是放在这样的格式里面的 .”123-456-123-456-123-456-123”, 而不是把放在数组里面的 . 这种情况实际上是比较常见的 . 笔者所在的公司 , 开发的网页或者是 window 应用中 , 经常从一个页面要传递很多的值到另外一个页面 , 而且值的多少也不知道 , 就经常用这种方法来实现 .
在得到这样一个字符串时候 , 还要把解开 . 得到每一个段的值 , 这就要求把字符串分段 , 取得每一段的内容的问题了 . 如下就是笔者在开发中用到的一个函数 .vb6 或者是 vb.net 上成功编译 . 如果你在实际应用中也有这样的要求 , 未尝不可一试 .
‘autor:lyxer
‘email:l_[email protected]
' 将字符串分段，取得每段内容
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 属性值 , 因为这个值是在变化的 .