La Red de Conocimientos Pedagógicos - Currículum vitae - ¿Cómo genera VB los caracteres ingresados ​​en un archivo de texto TXT a través del cuadro de entrada?

¿Cómo genera VB los caracteres ingresados ​​en un archivo de texto TXT a través del cuadro de entrada?

'Lista de control: un cuadro de texto y un control de reloj

Opción explícita

Cantidad pública como entero 'Define una variable global para almacenar el número de palabras

'Este proceso obtiene la cantidad de palabras en el cuadro de texto. También puedes simplificar este proceso al proceso de detección de pulsaciones de teclas. Escribe un proceso más y podrás aprender más cosas básicas.

Private Sub Text1_Change()

Cantidad = Len(Text1.Text)

End Sub

'Detecta si la clave ingresada en el cuadro de texto es la tecla Enter

'** **************************************** *********** **********************

'Nota: Es necesario determinar si existe el archivo de detección en este proceso. para ser referenciado en el proyecto: Microsft Scripting runtime

'Simplemente haga clic en Referencia en el menú del proyecto y marque la opción Microsft Scripting runtime en la ventana emergente

'****************** ********************************** ****************** *******

Subtexto privado1_KeyPress(KeyAscii como entero)

Atenuar archivo como Nuevo FileSystemObject

Si KeyAscii = 13 Entonces 'Si se devuelve la llave del coche

Si no, file.fileexists("d:\123.txt") Luego 'Comprueba si el archivo a ser guardado existe

File.CreateTextFile ("d:\123.txt") txt") 'Si el archivo no existe, créelo. El nombre del archivo entre comillas dobles puede modificarlo usted mismo, pero las tres rutas y nombres de archivos deben ser consistentes durante este proceso

End If

If cantidad gt 5 Then 'Verifique el número de palabras, este número 5 se puede modificar a su gusto; propio número

Abra "d:\123.txt" para agregar como n.° 1 'Abra el archivo y agregue al final el texto

Imprima n.° 1, ahora amp " " amp; ; Text1.Text 'Datos adicionales, aquí está el contenido del cuadro de texto de dos espacios de tiempo

Cerrar #1 'Cerrar el archivo

Text1.Text = "" 'Borrar el cuadro de texto después de guardar el archivo

Text1.SetFocus 'Vuelve a enfocar el cuadro de texto y espera la entrada

Else 'Si el número de palabras no es suficiente

Text1 .SelStart = Len(Text1.Text) 'Los datos no se guardarán, el contenido original del cuadro de texto permanecerá sin cambios y el cursor se colocará nuevamente al final del contenido del cuadro de texto

Text1. SetFocus 'Devuelve el foco al cuadro de texto y espera a que continúe la entrada

End If

End If

End Sub

' El programa se ejecuta Al borrar el cuadro de texto, coloque el foco en el cuadro de texto y espere la entrada. La razón por la que se utiliza el control de tiempo es porque LOAD no admite la operación SetFocus del cuadro de texto

Privado. Sub Timer1_Timer()

Text1.Text = "" 'Texto

Borre este cuadro

Text1.SetFocus 'Centrarse en el cuadro de texto

Timer1.Enabled = False 'Detiene el control de tiempo para lograr un efecto de operación única.

End Sub

Soy vago con el código anterior. He omitido la selección del directorio y las indicaciones porque la cantidad de palabras no es suficiente. Puedes modificarlo tú mismo. Todas son cosas básicas en VB6. Te recomiendo un tutorial de programación en Visual Basic Versión 6.0, un tutorial básico sobre VB, incluye todo lo anterior.