El ejemplo de este artículo describe el método de VB para leer archivos de texto línea por línea. Compártelo con todos para tu referencia. Los detalles son los siguientes:
'(declaración general)Dim nFileNum como entero, sText como cadena, sNextLine como cadena, lLineCount como largo'============================== ======Private Sub Command1_Click()' Obtener un número de archivo gratuito nFileNum = FreeFile' Abrir un archivo de texto para ingresar. El cuadro de entrada devuelve la ruta para leer el archivo Abrir "C:/Documentos y configuraciones/Sudeep/My Documents/3.txt" Para entrada como nFileNumlLineCount = 1' Lea el contenido del archivo. Haga mientras no EOF(nFileNum) Entrada de línea #nFileNum, sNextLine 'haga algo con él' ¡agregue números de línea, en este caso! sNextLine = sNextLine & vbCrLf sText = sTexto & sNextLineLoopText1.Text = sText' Cerrar el archivoCerrar nFileNumEnd Sub
Espero que este artículo sea útil para la programación VB de todos.