位置：首页>> 网络编程>> Asp编程>> 一个较复杂的字符串截取函数

一个较复杂的字符串截取函数

　来源：风之相随'S BLOG　发布时间：2009-11-02 10:45:00　

标签：字符串,函数,截取

这个函数是前几年刚流行小偷程序的时候，偶写来用于小偷程序中截取代码的；

可能有些朋友在我以前的代码中看见过了，但没有写用法，现在把调用方法及使用示例写出来。

也许对有些朋友比较有用吧。

'    Function（公有）
'    名称：    盛飞字符串截取函数
'    作用：    按指定首尾字符串截取内容(本函数为从左向右截取)
'    参数：    sContent ---- 被截取的内容
'        sStart ------ 首字符串
'        iStartNo ---- 当首字符串不是唯一时取第几个
'        bIncStart --- 是否包含首字符串(1/True为包含，0/False为不包含)
'        iStartCusor - 首偏移值(指针单位为字符数量,左偏用负值,右偏用正值,不偏为0)
'        sOver ------- 尾字符串
'        iOverNo ----- 当尾字符串不是唯一时取第几个
'        bIncOver ---- 是否包含尾字符串((1/True为包含，0/False为不包含)
'        iOverCusor -- 尾偏移值(指针单位为字符数量,左偏用负值,右偏用正值,不偏为0)

Public Function SenFe_Cut(sContent, sStart, iStartNo, bIncStart, iStartCusor, sOver, iOverNo, bIncOver, iOverCusor)
    If sContent<>"" Then
        Dim iStartLen, iOverLen, iStart, iOver, iStartCount, iOverCount, I
        iStartLen = Len(sStart)    '首字符串长度
        iOverLen  = Len(sOver)    '尾字符串长度
        '首字符串第一次出现的位置
        iStart = InStr(sContent, sStart)
        '尾字符串在首字符串的右边第一次出现的位置
        iOver = InStr(iStart + iStartLen, sContent, sOver)
        If iStart>0 And iOver>0 Then
            If iStartNo < 1 or IsNumeric(iStartNo)=False Then iStartNo = 1
            If iOverNo < 1 or IsNumeric(iOverNo)=False Then iOverNo  = 1
            '取得首字符串出现的次数
            iStartCount = UBound(Split(sContent, sStart))
            If iStartNo>1 And iStartCount>0 Then
                If iStartNo>iStartCount Then iStartNo = iStartCount
                For I = 1 To iStartNo
                    iStart = InStr(iStart, sContent, sStart) + iStartLen
                Next
                iOver = InStr(iStart, sContent, sOver)
                iStart = iStart - iStartLen    '还原默认状态：包含首字符串
            End If
            '取得尾字符串出现的次数
            iOverCount = UBound(Split(Mid(sContent, iStart + iStartLen), sOver))
            If iOverNo>1 And iOverCount>0 Then
                If iOverNo>iOverCount Then iOverNo = iOverCount
                For I=1 To iOverNo
                    iOver = InStr(iOver, sContent, sOver) + iOverLen
                Next
                iOver = iOver - iOverLen    '还原默认状态：不包含尾字符串
            End If
            If CBool(bIncStart)=False Then iStart = iStart + iStartLen    '不包含首字符串
            If CBool(bIncOver)  Then iOver = iOver + iOverLen        '包含尾字符串
            iStart = iStart + iStartCusor    '加上首偏移值
            iOver  = iOver + iOverCusor    '加上尾偏移值
            If iStart<1 Then iStart = 1
            If iOver<=iStart Then iOver = iStart + 1
            '按指定的开始和结束位置截取内容
            SenFe_Cut = Mid(sContent, iStart, iOver - iStart)
        Else
            'SenFe_Cut = sContent
            SenFe_Cut = "没有找到您想要的内容，可能您设定的首尾字符串不存在！"
        End If
    Else
        SenFe_Cut = "没有内容！"
    End If
End Function

使用示例：

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "<a href="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" target="_blank">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd</a>"><html xmlns="<a href="http://www.w3.org/1999/xhtml" target="_blank">http://www.w3.org/1999/xhtml</a>" lang="zh-CN"><head><title>盛飞字符串截取函数（按指定首尾字符串截取内容）</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><meta http-equiv="Content-Language" content="zh-CN" /><meta content="all" name="robots" /><meta name="author" content="盛飞, SenFe" /><meta name="Copyright" content="" /><meta name="description" content="" /><meta content="" name="keywords" /><style type="text/css"></style><script language="vbscript"></script><script language="javascript"></script></head><body><table id="test" cellspacing="0" cellpadding="0" align="center"><tr><th>盛飞字符串截取函数</th></tr><tr><td>待截取的内容：</td></tr><tr><td><textarea name="content" id="content" rows="10" cols="80"></textarea></td></tr><tr><td>首字符串：</td></tr><tr><td><textarea name="sStart" id="sStart" rows="2" cols="80"></textarea></td></tr><tr><td>取第<input type="text" name="iStartNo" id="iStartNo" value="1" size="2" />个 <input type="checkbox" name="bIncStart" id="bIncStart" value="1" />包含首字符串？偏移值：<input type="text" name="iStartCusor" id="iStartCusor" value="0" size="2" /></td></tr><tr><td>尾字符串：</td></tr><tr><td><textarea name="sOver" id="sOver" rows="2" cols="80"></textarea></td></tr><tr><td>取第<input type="text" name="iOverNo" id="iOverNo" value="1" size="2" />个 <input type="checkbox" name="bIncOver" id="bIncOver" value="1" />包含首字符串？偏移值：<input type="text" name="iOverCusor" id="iOverCusor" value="0" size="2" /></td></tr><tr><td><input type="button" name="submit" value="　测　试　" onclick="Test()" /></td></tr><tr><td>返回结果：</td></tr><tr><td><textarea name="results" id="results" rows="10" cols="80"></textarea></td></tr><tr><td>调用示例：</td></tr><tr><td><textarea name="example" id="example" rows="2" cols="80"></textarea></td></tr></table></body></html>

另外发一个稍简单的截取函数

'    Function（公有）
'    名称：    盛飞字符串截取函数
'    作用：    按指定首尾字符串截取内容(本函数为从左向右截取)
'    参数：    sContent ---- 被截取的内容
'        sStart ------ 首字符串
'        sOver ------- 尾字符串
'        iType ------- 类型（1：不包含首尾字符串；2：包含首尾字符串；3：包含首、不包含尾；4：不包含首、包含尾）

Function SenFe_Cut(sContent, sStart, sOver, iType)
    Dim iStart, iOver
    iStart = InStr(sContent,sStart)
    iOver  = InStr(iStart+Len(sStar),sContent,sOver)
    If iStart>0 And iOver>0 Then
        Select Case iType
            Case 1 iStart = iStart+Len(sStart)
            Case 2 iOver  = iOver+Len(sOver)
            Case 4 iStart = iStart+Len(sStart):iOver = iOver+Len(sOver)
        End Select
        SenFe_Cut = Mid(sContent,iStart,iOver-iStart)
    Else
        SenFe_Cut = "没有找到您想要的内容，可能您设定的首尾字符串不存在！"
    End If
End Function另外也可以用正则截取，代码更简单，就不用贴了。

投稿

一个较复杂的字符串截取函数

猜你喜欢