截取字符串中任意一段字符的函数_vs怎样取字符串之间的数据-优快云博客

本文链接：https://blog.youkuaiyun.com/liujam_2008/article/details/1062698

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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返回值为“人民”
从“华”开始至“共”结束，返回中间的字符串。

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