Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo puedo mantener los últimos 10 dígitos en el lado derecho en un lenguaje sencillo?

¿Cómo puedo mantener los últimos 10 dígitos en el lado derecho en un lenguaje sencillo?

.Versión 2

.Soporta biblioteca RegEx

.Subrutina __Launch Window_Created

Cuadro de edición 1. Subrutina _Button1_clicked

.Texto de variable local, tipo de texto

.Recuento de variables locales, entero

. Variable local Regular, expresión regular

. Resultado de variable local, resultado de búsqueda, "0"

. Si es verdadero (editbox1.content = "")

Retorno()

.End si es verdadero

Regular.Create("[0-9" ". " #Newline "]", )

Resultado = Regular. Buscar todo el contenido (cuadro de edición 1. contenido)

. Cuente el primer bucle (obtenga miembros de la matriz (resultados), cuente )

Texto = Resultados de texto [recuento]. Obtener texto coincidente (editbox1.content, )

.Fin del ciclo de conteo ()

Texto de depuración de salida (texto)

------- - -----------------------

Si no puede leer lo anterior, utilice el siguiente procedimiento.

----------------------------------

.Versión 2

.Subroutine__Launch window_created

Cuadro de edición 1. Si se permiten varias líneas = true

.Subroutine_Button1_clicked

Texto de variable local. tipo de texto

Variable local Recuento, entero

. Grupo de texto variable local, tipo de texto, "0"

. Si es verdadero (editbox1.content = "")

Retorno ()

.End if true

Grupo de texto = Texto dividido (editbox1.content, # nueva línea , )

Editbox1.content = ""

.El primer ciclo de conteo (obtener miembros de la matriz (grupo de texto), contar)

.El ciclo de conteo uno ring (obtiene la longitud del texto (grupo de texto [count]), cuenta)

Texto = obtiene el lado derecho del texto (grupo de texto [count], cuenta)

.If verdadero (al valor (texto) = 0)

Cuadro de edición 1. Agregar texto (tome el texto a la derecha (grupo de texto [recuento], recuento - 1) # salto de línea)

Salto fuera del bucle ()

.Fin si es verdadero

.Fin del bucle de conteo ()