VB6 Advanced Filter Function

最新推荐文章于 2024-04-18 08:00:00 发布

原创最新推荐文章于 2024-04-18 08:00:00 发布 · 658 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#filter #函数 #vb6.0

本文介绍了一个增强版的Filter函数，该函数允许用户指定匹配起始位置（左侧、右侧或任意位置），并支持包含或排除指定文本的过滤操作。通过这个自定义函数，可以更灵活地对数组中的字符串进行筛选。

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

'增强版Filter函数，添加匹配起始位置参数StartPos
'StartPos=0，从数组元素左侧起匹配
'StartPos=1，从数组元素右侧起匹配
'StartPos=2，不限定匹配的起始位置
Public Function TArr(OArr() As String, InputTXT As String, Optional CTF As Boolean = True, Optional StartPos As Integer = 0) As String()
Dim i As Long
Dim j As Long
Dim l As Integer
Dim aBuff() As String

l = Len(InputTXT)

If (StartPos = 2) Then
   aBuff = Filter(OArr(), InputTXT, CTF)
   
Else

   i = -1
   j = -1
   
   If CTF Then
      If (StartPos = 0) Then
         Do While i <= UBound(OArr) - 1
            i = i + 1
            If InStr(OArr(i), InputTXT) = 1 Then
                j = j + 1
                ReDim Preserve aBuff(j)
                aBuff(j) = OArr(i)
            End If
         Loop
      Else
         Do While i <= UBound(OArr) - 1
            i = i + 1
            If InStrRev(OArr(i), InputTXT) = Len(OArr(i)) - l + 1 Then
                j = j + 1
                ReDim Preserve aBuff(j)
                aBuff(j) = OArr(i)
            End If
         Loop
      End If
   Else
      If (StartPos = 0) Then
         Do While i <= UBound(OArr) - 1
            i = i + 1
            If InStr(OArr(i), InputTXT) <> 1 Then
                j = j + 1
                ReDim Preserve aBuff(j)
                aBuff(j) = OArr(i)
            End If
         Loop
      Else
         Do While i <= UBound(OArr) - 1
            i = i + 1
            If InStrRev(OArr(i), InputTXT) <> Len(OArr(i)) - l + 1 Then
                j = j + 1
                ReDim Preserve aBuff(j)
                aBuff(j) = OArr(i)
            End If
         Loop
      End If
   End If
End If

TArr = aBuff

End Function