Red de conocimiento informático - Aprendizaje de código fuente - Lenguaje sencillo Chino Inglés Número a Número

Lenguaje sencillo Chino Inglés Número a Número

No hay recompensa, lo responderé por ti.

Se utilizan múltiples selecciones y reemplazo de subtexto juntos para procesar por lotes y optimizar el código. Pruebe el código siguiente, ¿cumple con sus requisitos?

'Método 1:

'------------------------------- --- ----------------------------------------------- --- -------

.Versión 1

.Subroutine_Button1_clicked

.Variable local Datos, tipo texto

. Variable local Recuento, número entero

. Variable local Carácter, tipo de texto, carácter a convertir

. Número de variables locales, texto, caracteres que deben convertirse

Datos = editbox1.content

"Cuatro", "Cinco", "Seis", "Siete", ". Ocho", "Nueve", "Cero")

Valor = selección múltiple (cuenta, "1", "2", "3", "4", "5", "6". " 7", "8", "9", "0")

Datos = Reemplazo de subtexto (datos, caracteres, números, falso)

' Inglés a números

Caracteres = Selección múltiple (cuenta, "uno", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "cero ")

Número = selección múltiple (cuenta, "1", "2", "3", "4", "5", "6", "7", "8", "9 ". "0")

datos = reemplazo de subtexto (datos, carácter, número, , , falso)

.Fin del bucle de conteo ()

Cuadro de edición 1. contenido = datos

<'

'Método 2:

'------------------ -------- ------------------------------------------ -------- -------- ----------

.Versión 2

.Subrutina_Botón2_clic

.Datos de variables locales, tipo texto

. Variable local Recuento, número entero

. Variable local Carácter (carácter), tipo de texto, , carácter a convertir

Número de variable local, texto, carácter a convertir

Datos = editbox1.content

.Contar bucle primero (20, Contar)

Caracteres = Selección múltiple (Contar, "Uno", "Dos", "Tres", "Cuatro", "cinco", "seis" , "siete", "ocho".Nueve, "cero", "uno", "dos", "tres", "cuatro", "cinco", "seis", "siete".", "ocho", " nueve", "cero")

Número = opción múltiple (cuenta, "1", "2", "3", "4", "5", "6", "7", " 8", "9".

"0", "1", "2", "3", "4".", "5", "6", "7", "8"."9", "0")

Datos = sustitución de subtexto (datos, carácter, número, , , falso)

.Count Loop Tail()

Cuadro de edición 1.Contenido = Datos.

上篇: Recomiende algunos buenos sitios web para comprar libros. 下篇: ¿Qué tan útil es el barómetro de la construcción para las unidades de construcción? ¿Por qué todo el mundo lo usa?

Artículos populares