资源大小： 4KB
发布时间： 2006-06-20
文件格式： rar
下载次数： 0
分享到：

下载地址：

下载地址1
（本站为飞网专业下载站，域名：down.cfei.net）

资源简介：

发布2个字符串处理函数： 1、ParameterValue() 2、ParameterCount() 用法示例： dim TheString as String TheString="欢迎,光临,枕善居,源代码" msgbox ParameterCount(",",TheString) 返回 4 ParameterValue(",",TheString,2) 返回 "欢迎" 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


飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。