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