Colección de citas famosas - Mensajes de felicitación - El sistema de segmentación de palabras chinas encontró un problema, un experto en VB puede ayudar ~~ ¡Gracias! ! !

El sistema de segmentación de palabras chinas encontró un problema, un experto en VB puede ayudar ~~ ¡Gracias! ! !

Subcomando privado 1_Click()

El campo de copia de seguridad tenue es un número entero, el campo vertical es un número entero, I es un número entero

Dim se divide en cuerdas, Guo Jie es la cuerda, r es el acorde, Zhao Dao Wei Xian

Zong Chang = Len(Texto1. Texto)

beifen = Texto1. Texto

Guo Xie = " "

Abre la aplicación. Ruta + "\2.txt "como entrada #1

Entrada de línea #1, r

hazlo a lo largo & gt1

para i = 1 Al campo total

Si InStr(r, Right(beifen, I))<& gt Entonces 0

Zhao Dao=Right(Punto norte, I)

Rama Norte= i

Terminará si...

Siguiente yo

Guo Xie= "/" +Zhao Dao+Guo Xie

Rama Norte = Izquierda (Rama Norte, Campo Principal - Rama Norte)

Zong Chang = Len (Rama Doble)

Anillo

Texto 2 . Texto=Guo Xie

Cerrar #1

Conector final