Особенности работы со строковыми переменными в VB. Часть 2

Листинг 1. Реализация комбинации функций Split, Filter и Join традиционными средствами Basic

Public Function Test2$(Source$, Delim1$, Search$, vbComp%, Delim2$)
    ' Вариант 2 
    ' Используя традиционные (известные еще 15 лет назад) функции
   Dim Word$, Result$, i%, i1%, Source1$
   i1% = 1
   Source1$ = Source$ + Delim1$ 
   Do
       i% = InStr(i1%, Source$, Delim1$)
       If i% = 0 Then Exit 
       Do 
          ' выделяем очередное поле
          Word$ = Mid$(Source1$, i1, i% - i1%)
          If, InStr(1, Word$, Search$, vbСоmp%)  > О Then 
              ' поле отвечает критерию поиска
              Result$ = Result$ + Delim2$ + Word$
         End If
         i1% = i% + Len(Delim1$) 
      Loop
      If Result$ > "" Then
         Test2$ = Mid$(Result$, Len(Delim2$) + 1) 
      Else: Test2$ = Result$ 
      End If 
End Function

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует