(обращений: 1430 с 28.03.2016)

Разделы:  Строки , Полезные функции

Function КолСимв(строка As String, символ As String) As Integer

Dim TestPos As Integer

КолСимв = 0

TestPos = 1

Do While InStr(TestPos, строка, символ) > 0

КолСимв = КолСимв + 1

TestPos = InStr(TestPos, строка, символ) + Len(символ)

Loop

End Function

Dim s1 As String, s2 As String

Dim Cnt As Integer

s1 = "es"

s2 = "vest is best forest"

Cnt = 0

While InStr(1, s2, s1) > 0

Cnt = Cnt + 1

s2 = Mid(s2, InStr(1, s2, s1) + Len(s1))

Wend

MsgBox "Count = " & Str(Cnt)

Dim s1 As String, s2 As String

Dim PrevPos As Integer, Cnt As Integer

s1 = "es"

s2 = "vest is best forest"

PrevPos = 1

Cnt = 0

While InStr(PrevPos, s2, s1) > 0

Cnt = Cnt + 1

PrevPos = InStr(PrevPos, s2, s1) + 1

Wend

MsgBox "Count = " & Str(Cnt)

Dim s1 As String, s2 As String

Dim i As Integer, Cnt As Integer

s1 = "es"

s2 = "vest is best forest"

i = 1

Cnt = 0

For i = 1 To Len(s2) - Len(s1) + 1

If Mid(s2, i, Len(s1)) = s1 Then Cnt = Cnt + 1

Next i

MsgBox "Count = " & Str(Cnt)

Dim s1 As String, s2 As String

s1 = "es"

s2 = "vest is best forest"

MsgBox "Count = " & UBound(Split(s2, s1))