Extraer texto en superlistbox con texto alineado

.Biblioteca compatible RegEx

.Subrutina regular_match_batch, entero

.Parámetros source_text, text, , el texto que debe coincidir

.Variable local local_regular, expresión regular

. Variable local local_search_results, resultados de búsqueda, estática, "0"

. Variable local Bureau_match_count, número entero, número de coincidencias

. Variable local local_count, número entero

. si es verdadero(local_regular.Create ("([\u4e00-\u9fa5]{2,3}).*?([1-9][0-9]{8,15})#", False) = False )

Cuadro de mensaje ("Error en la creación regular, ¡compruebe si hay errores en la declaración de expresión regular!", icono #Error, )

Devolver (0)

. Fin si es verdadero

Expresión regular_de Bureau. multilinemode = false

Bureau_search_results = oficina_regular. Buscar todo (texto fuente)

Bureau_Match_Count = Obtener miembros de la matriz (bureau_search_results)

. Si es verdadero (bureau_match_count = 0)

Cuadro de mensaje ("Error de coincidencia, Compruebe si hay errores en la expresión regular, número: 0", #icono de error, )

Devolver (0)

. Si es verdadero, finalice

. Contar el bucle primero (bureau_match_count, Bureau_count)

Texto de depuración de salida ("texto coincidente" + con texto (bureau_count) + "texto subcoincidente 1:" + resultado de búsqueda_bureau [bureau_count]. Obtener texto subcoincidente ( texto fuente, 1, ))

.Fin del bucle de conteo ()

Retorno (recuento de Bureau_match).