Red de conocimiento informático - Aprendizaje de programación - Excel, por favor ayúdame, cómo usar VBA para obtener el contenido de lt;headgt;

Excel, por favor ayúdame, cómo usar VBA para obtener el contenido de lt;headgt;

El contenido entre lt; headgt; se puede extraer utilizando expresiones regulares de VBA.

Función findFiveLetter(sentence)

Atenuar expresiones regulares como nuevo VBScript_RegExp_55.RegExp

Atenuar coincidencias, s

regEx.Pattern = "lt ;headgt;.*?lt;/headgt;"

regEx.IgnoreCase = True 'True para ignorar mayúsculas y minúsculas

regEx.Global = True 'True coincide con todas las ocurrencias, False coincide con las primera aparición

s = ""

Si regEx.Test(sentencia) Entonces

Establecer coincidencias = regEx.Execute(sentencia)

Para cada coincidencia en coincidencias

s = s amp " Posición: " amp Match.FirstIndex

s = s amp " Palabra: " Match.Value amp; " "

s = s amp Chr(10)

findFiveLetter = s

Más

findFiveLetter = ""

Finalizar si

Finalizar función