获得不相同的两字符串中间的数据-雨丝情愁专栏

'¤**********************【获得不相同的两字符串中间的数据】*****************¤
'⊙ 函数名：InStrLR
'⊙ 使用方法：InStrLR（目标字符串，第一个限定字符串，第二个限定字符串）
'⊙ 描述：获得任意两字符串之间的字符串（转载请保留作者信息）
'⊙ 版本：v1.1.0
'⊙ 创作时间：2011年6月21日
'⊙ 作者：雨丝情愁
'¤************************************************************************¤

'获得两字符串中间的数据
   Public Function InStrLR(inString, LSrchString, RSrchString As String) As String
         Dim iCurPosL, iCurPosR As Integer
         Dim m, n As Integer
         m = Len(LSrchString) '取得第一个字符串的长度
         n = Len(RSrchString) '取得第二个字符串的长度
        iCurPosL = InStr(1, inString, LSrchString, vbTextCompare) '获得第一个字符串的第一个字母出现的位置
        iCurPosR = InStr(iCurPosL + m, inString, RSrchString, vbTextCompare) '获得第二个字符串在第一个字符串后的第一个字母出现的位置
        '字符串显示
        If iCurPosL > 0 And iCurPosR > 0 Then    '两个搜寻字符串都不为空
            InStrLR = Mid(inString, iCurPosL + Int(m), iCurPosR - Int(m) - Int(iCurPosL))
         Else                                                         ‘两个搜寻字符串其中一个为空或两个都为空
            InStrLR = inString
        End If
   End Function

VBS使用时候去掉定义数据类型部分，我在VBS实例代码中已经去掉了

shu=InputBox ("请输入一个目标字符串:")
cha1=InputBox ("请输入第一要查询字符串:")
cha2=InputBox ("请输入第二要查询字符串:")

'msgbox InStrLR(shu,cha1,cha2)
MsgBox "字符串 “" & cha1 & "” 与字符串 “" & cha2 & "” 之间的在文章： “" & shu & "” 中出现的第一次数据是：" & vbCrLf & vbCrLf & vbCrLf & "“" & InStrLR(shu,cha1,cha2) & "”"

'¤**********************【获得不相同的两字符串中间的数据】***********************¤
'⊙ 函数名：InStrLR
'⊙ 使用方法：InStrLR（目标字符串，第一个限定字符串，第二个限定字符串）
'⊙ 描述：获得任意两字符串之间的字符串（转载请保留作者信息）
'⊙ 版本：v1.1.0
'⊙ 创作时间：2011年6月21日
'⊙ 作者：雨丝情愁
'¤****************************************************************************¤
Function InStrLR(inString, LSrchString, RSrchString)
        ' Dim iCurPosL, iCurPosR As Integer
        ' Dim m, n As Integer
         m = Len(LSrchString) '取得第一个字符串的长度
         n = Len(RSrchString) '取得第二个字符串的长度
        iCurPosL = InStr(1, inString, LSrchString, vbTextCompare) '获得第一个字符串的第一个字母出现的位置
        iCurPosR = InStr(iCurPosL + m, inString, RSrchString, vbTextCompare) '获得第二个字符串在第一个字符串后的第一个字母出现的位置
        '字符串显示
        If iCurPosL > 0 And iCurPosR > 0 Then    '两个搜寻字符串都不为空
            InStrLR = Mid(inString, iCurPosL + Int(m), iCurPosR - Int(m) - Int(iCurPosL))
         Else                                                         '两个搜寻字符串其中一个为空或两个都为空
            InStrLR = inString
        End If
   End Function

点击下载此附件vb源码

点击下载此附件VBS源码