Разбор полетов: как связана эффективность кода и время разработки программы

Листинг 4. Варианты реализация функции Replace традиционными средствами Basic

Function ReplaceMy$(Source$, LookFor$, ReplaceWith$)  
'
'  Контекстная замена кода строки
'===================================  
  Dim strTemp$, iStart%, iStrLen%  
  strTemp$ = Source$  
  If Len(strTemp$) > 0 Then  
    iStart% = 1  
    iStrLen% = Len(ReplaceWith$)  
    Do  
      iStart% = InStr(iStart%, strTemp$, LookFor$)  
      If iStart% = 0 Then Exit Do  
      strTemp$ = Left$(strTemp$, iStart% - 1)  +  _  
        ReplaceWith$ + Mid$(strTemp$, iStart% + Len(LookFor$))  
      iStart% = iStart% + iStrLen%  
    Loop  
  End If  
  ReplaceMy$ = strTemp$  
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
Популярные статьи
КомпьютерПресс использует