VBA el número de apariciones de una cadena de caracteres en otra cadena de caracteres
Proporciona un método general para obtener el número de veces que aparece una subcadena en una cadena principal: '?####################### ######################
'?[Descripción de la función]?Obtiene el número de veces que aparece una subcadena en la cadena principal <. /p>
'?[Lista de parámetros]?1.?strCadena principal principal;
'2.?strSubcadena secundaria.
'?[Tipo de retorno]?Long.
'?#################################### ##### ####
¿Función?Pública?GetRepeatedTimes(ByVal?strParent?As?String,?_ ByVal?strChild?As?String)?As?Long
Dim?lngLenOfChild? As?Long
lngLenOfChild?=?Len(strChild)
Si?lngLenOfChild?Then
GetRepeatedTimes?=?(Len(strParent )?-?Len (Replace(strParent,?strChild,?vbNullString)))?/?lngLenOfChild
End?If
End?Function
Llamar a demostración: Sub?Demo ()
MsgBox?"Substring?""56""?El número de apariciones en la cadena principal?""1325659568""?"amp;?_
CStr(GetRepeatedTimes ("1325659568",?"56")),?vbOKOnly,?"Demo"
End?Sub