Excel vba encuentra la posición del primer carácter chino en una cadena de texto.

¿Atenuado? oRegExp? ¿Como? Objetivo

¿Atenuado? oPartidos? ¿Como? Objetivo

¿Atenuado? ¿Texto? ¿Como? ¿Línea

sTexto? =?" abc, este es V, un programa de muestra Un código para la expresión regular B. "

¿Configuración? oRegExp? =?CreateObject("vbscript.regexp ")

¿Qué usar? oRegExp

Establece si se deben hacer coincidir todas las coincidencias, True significa coincidir con todas. Falso significa que solo coincide la primera aparición.

. ¿mundial? =?Incorrecto

. ¿patrón? =?"[\u4e00-\u9fa5]" representa un solo carácter chino.

Determina si se pueden encontrar caracteres coincidentes y devuelve True si es así.

¿Y si? . prueba (sText)? Entonces

¿establecer? oPartidos? =?. ejecutar(texto)

Philip. =?oCoincidencias(0). primer índice? Posición del carácter chino

¿Submarino? =?Zuo(sText,Fi)'El contenido antes del carácter chino

Depuración. ¿Imprimir? Submarino

¿Fin? Si

¿Finalizar? ¿Con configuración? oRegExp? =?¿Nada

definido? oPartidos? =?Nada

¿El final? Usando expresiones regulares en Sub