O exemplo deste artigo descreve o método VB para ler arquivos de texto linha por linha. Compartilhe com todos para sua referência. Os detalhes são os seguintes:
'(declaração geral)Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long'============================ ======Private Sub Command1_Click()' Obtenha um número de arquivo grátisnFileNum = FreeFile' Abra um arquivo de texto para entrada, retorna o caminho para ler o arquivoOpen "C:/Documents and Settings/Sudeep/My. Documents/3.txt" For Input As nFileNumlLineCount = 1' Leia o conteúdo do arquivoDo While Not EOF(nFileNum) Line Input #nFileNum, sNextLine 'faça algo com ele' adicione números de linha a ele, neste caso! sNextLine = sNextLine & vbCrLf sText = sText & sNextLineLoopText1.Text = sText' Fecha o arquivoFechar nFileNumEnd Sub
Espero que este artigo seja útil para a programação VB de todos.