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

Листинг 4. Варианты реализация функции Replase традиционными средствами 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
Популярные статьи
КомпьютерПресс использует