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

 

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

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