vb6 busca el contenido especificado en el cuadro de texto y muestra el número total de palabras clave contenidas

Text1 = "AAAAbCCCCbssssbjjjjjjjjb"

s = "b"

MsgBox "one ****" & SearchCount(Text1, s ) & "uno" & s

End Sub

Función SearchCount(ss, s) como entero

p = InStr(1, ss, s, vbTextCompare)

Hacer mientras p > 0

SearchCount = SearchCount + 1

p = InStr(p + Len(s), ss, s, vbTextCompare )

Bucle

Función final

' Si distingue entre mayúsculas y minúsculas, elimine el parámetro vbTextCompare.

'Text1 contiene 2 AA, si cambia Len(s) a 1, contendrá 4 AA

Combinado en un procedimiento, es decir, sin función:

Subcomando privado2_Click()

Atenuar i como entero

Texto1 = "AAAAAbCCCCbssssbjjjjjjb"

s = "b"

p = InStr(1, Text1, s, vbTextCompare)

Hacer mientras p > Len(s ), Text1, s, vbTextCompare)

Bucle

MsgBox "one ****" & i & "one" & s

Fin Sub