¿Cómo genera VB un archivo de texto TXT ingresando caracteres en el cuadro de entrada?

Opción explícita

Cantidad pública como entero 'Define una variable global para guardar el recuento de palabras

'Esta obtiene el cuadro de texto Para el proceso de recuento medio de palabras, también puede simplificar este proceso al proceso de detección de pulsaciones de teclas, escribir un proceso más y aprender más cosas básicas

Private Sub Text1_Change()

Cantidad = Len (Text1.Text)

End Sub

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

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

'Nota: Para verificar si el archivo existe durante este proceso, debe hacer referencia al archivo en el proyecto: Microsft Scripting runtime

'Es decir, haga clic en Referencia en el menú Proyecto y, en la ventana emergente, haga clic en Microsft Scripting runtime en el menú Proyecto y en la ventana emergente , haga clic en Microsft Scripting runtime Es decir, haga clic en el menú del proyecto Para citar, haga clic en Microsft Scripting runtime en el menú del proyecto en la ventana emergente y haga clic en Microsft Scripting runtime en la ventana emergente.

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

Subtexto privado1_KeyPress(KeyAscii como entero)

Atenuar archivo como nuevo FileSystemObject

Si KeyAscii = 13 Entonces 'Si es la tecla Intro

Si no File.fileexists("d:\\ 123.txt") Entonces ' Si no es file.fileexists("d：\123.txt") Entonces 'Si no es file.123.txt") Entonces 'Compruebe si el archivo guardado existe

File.CreateTextFile ("d：\123 .txt") 'Si el archivo no existe, cree un archivo. Las comillas dobles en el nombre del archivo se pueden modificar, pero las tres rutas de archivo y los nombres de archivo en el proceso deben ser consistentes

Fin Si

Si Cantidad gt; 5 Entonces 'Verifique el recuento de palabras, este número 5 se puede modificar a su propio número personalizado

Abra "d:\123.txt" para Agregar como. #1 'Abre el archivo y agrega texto al final

Imprime #1, ahora & " " & Text1.SetFocus 'Vuelve el foco al cuadro de texto y espera para continuar escribiendo

End If

End If

End Sub

'El cuadro de texto estará vacío cuando el programa se esté ejecutando y el foco se colocará en el texto. cuadro esperando entrada El control del temporizador se utiliza porque LOAD La operación SetFocus del cuadro de texto no es compatible

Private Sub Timer1_Timer()

Text1.Text = "" 'El texto. el cuadro está vacío

Text1.SetFocus 'establece el foco Colócalo en el cuadro de texto

Timer1.Enabled = False 'Detiene el control del temporizador para lograr un efecto único

End Sub

Soy vago con el código anterior. He omitido la selección de directorios y la cantidad de palabras en las indicaciones. Estas son algunas cosas básicas. de VB6 Le recomiendo una copia del Tutorial de programación de Visual Basic versión 6.0 del Tutorial de conceptos básicos de VB, que tiene todo lo anterior.