截取字符串中任意一段字符的函数

最新推荐文章于 2024-05-06 21:41:01 发布

原创最新推荐文章于 2024-05-06 21:41:01 发布 · 4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function

asp 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个实用的VBA自定义函数TlContent，该函数能够根据指定的起始和结束标记从字符串中截取出特定的内容。通过不同的参数设置，可以灵活地获取所需的数据片段，适用于网页信息采集等多种场景。

Public Function TlContent(byref str,byref start,byref last,byref n)

If Instr(lcase(str),lcase(start))>0 then
        select case n
        case 0
        TlContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
        TlContent=Left(TlContent,Instr(lcase(TlContent),lcase(last))-1)
        case 1
        TlContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
        TlContent=Left(TlContent,Instr(lcase(TlContent),lcase(last))+Len(last)-1)
        case 2
        TlContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
        case 3
        TlContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
        case 4
        TlContent=Left(str,InstrRev(lcase(str),lcase(start))+Len(start)-1)
        case 5
        TlContent=Left(str,InstrRev(lcase(str),lcase(start))-1)
        case 6
        TlContent=Left(str,Instr(lcase(str),lcase(start))+Len(start)-1)
        case 7
        TlContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start))+1)
        case 8
        TlContent=Left(str,Instr(lcase(str),lcase(start))-1)
        case 9
        TlContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start)))
        end select
    Else
        TlContent=""
    End if
End function

使用方法中下：
str="中华人民共和国"
str=TlContent(str,"华","共",0)

str返回值为“人民”
从“华”开始至“共”结束，返回中间的字符串。

这个函数可方泛用于网页信息采集等场合。