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