函数名称:
1、ParameterValue()
2、ParameterCount()
用法示例:
Dim StrTest as String
StrTest="欢迎;光临;JiaJia;Blog;VB源码"
Debug.Print ParameterCount(";",StrTest)
'返回 5
Debug.Print ParameterValue(";",StrTest,3)
'返回 "JiaJia"
函数源码:
Public Function ParameterCount(ParseCharacter As String, _
tString As Variant) As Integer
Dim CurrentPosition As Integer
Dim ParseToPosition As Integer
Dim CurrentToken As Integer
Dim TempString As String
TempString = Trim(tString) + ParseCharacter
If Len(TempString) = 1 Then Exit Function
CurrentPosition = 1
CurrentToken = 1
Do
ParseToPosition = InStr(CurrentPosition, TempString, _
ParseCharacter)
CurrentToken = CurrentToken + 1
CurrentPosition = ParseToPosition + 1
Loop Until (CurrentPosition >= Len(TempString))
ParameterCount = CurrentToken - 1
End Function
Public Function ParameterValue(ParseCharacter As String, _
tString As Variant, _
Index As Integer) As String
Dim CurrentPosition As Integer
Dim ParseToPosition As Integer
Dim CurrentToken As Integer
Dim TempString As String
TempString = Trim(tString) + ParseCharacter
If Len(TempString) = 1 Then Exit Function
CurrentPosition = 1
CurrentToken = 1
Do
ParseToPosition = InStr(CurrentPosition, TempString, _
ParseCharacter)
If Index = CurrentToken Then
ParameterValue = Mid$(TempString, CurrentPosition, _
ParseToPosition - CurrentPosition)
Exit Function
End If
CurrentToken = CurrentToken + 1
CurrentPosition = ParseToPosition + 1
Loop Until (CurrentPosition >= Len(TempString))
End Function
分享到:
相关推荐
字符串处理函数的汇总资料,供初学者参考。
VB字符串处理函数大全:mid(字符串,从第几个开始,长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串]
vb获得字符串中指定后几位字符,这里使用vb Right函数一行代码即可搞定,运行代码如示例图所示,在最左侧文字框中输入任意字符串,程序预设的是获取最右侧的2位字符,单击按钮后即可获取到最左侧字符串的最右边2位...
TIA博途WINCC的触摸屏VB脚本入门(Len函数获取字符串长度以及Right和Left函数)
vb 字符串函数大全 vb 字符串函数大全 vb 字符串函数大全
VB中对字符串的处理及其扩展VB技术很实用的源码本人看了很多网上有关的源码,基本上都是一样的,不过功能就不是很强大 有感与此,本人特写了一个功能强大点的欢迎大家使用
VB所有的字符串函数详细介绍,包括所以的
VB.NET写的字符串压缩函数,使用.NET的Compression写的。
文件给出了VB.NET 字符串函数列表和用法
VB调用VC写的DLL 实现两个字符串相加成一个字符串,业余程序员,不好的地方欢迎指出!
VB常用字符串函数整理 自己整理 希望对大家有所帮助
VB 常用字符串操作函数 VB 常用字符串操作函数 作者:虚拟小强 教程来源:本站原创 ★★★ 1. ASC(X),Chr(X):转换字符字符码 [格式]: P..
字符串处理函数集 本人精心收集的VB源码,绝对实用,有问题联系QQ:353502250
vb asp中根据符号截取字符串方法 split (",")
在vb程序将字符串转为vb代码执行,非原创,收集自网络
VB之字符串精彩编程-字符串处理函数(9KB)
VB字符串处理详解
vb字符串函数详解 <br>很实用,觉得好就赞一个呗
StrComp StrComp(string1,string2[,compare]) 返回string1字符串与string2字符串的比较结果,如果两个字符串相同,则返回0,如果小于则返回-1,如果大于则返回1 InStr InStr(string1,string2[, compare]) 返回...
仅供参考,请大家多多关照.