Código fuente de búsqueda de contenido de texto

Subcomando privado 1_Click()

texto 1 = " aaaabccccbsssbjjjjb "

s = "b "

MsgBox "one * * *"; ) "piece"; s

Conector final

La función SearchCount(ss, s) es un número entero

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

Ejecutar mientras p gt0

recuento de búsquedas = recuento de búsquedas 1

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

Timbre

Finalizar función

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

Texto1 contiene dos AA. Si Len(s) se modifica a 1, contendrá cuatro AA.

Integrar en el proceso, es decir, no utilizar la función:

Subcomando privado 2_Click()

Marcar I como un número entero

text 1 = " aaaabccccbsssbjjjjb "

s = "b "

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

Ejecutar mientras p gt0

i = i 1

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

Anillo

MsgBox "one * * *";i&"一";s

Conector final