Comma Separated Value (CSV) é um formato de arquivo de texto simples que é comumente usado para armazenar dados. A linha representa cada registro neste formato, e dentro de cada linha, uma vírgula separa cada valor. Córregos 6 de arquivo de entrada e saída do Visual Basic ou o acesso a dados de objeto pode ser usado para carregar e ler um arquivo CSV. Coisas que você precisa
Visual Basic 6
Show Mais instruções
1
Crie um novo projeto no Visual Basic. Se você deseja adicionar a funcionalidade para ler um arquivo CSV para um projeto existente , você pode pular esta etapa.
2
Adicione uma classe ao projeto clicando com o botão direito sobre o nome do projeto no Projeto explorer e , em seguida, selecionando " Adicionar módulo de classe . "
3
Defina a propriedade nome da classe para " CFileReader " ou um nome usando seus padrões de codificação .
4
Adicione uma referência para os Active Data Objects biblioteca (ADO) , selecionando o menu " Project> Referências" e selecionando o
"Microsoft ActiveX Data Objects 2.5 Library " ou " Microsoft ActiveX Data Objects 2.6 library. "
5
Digite o seguinte código na classe :
ReadCSV Private Function (ByVal fileName as String) As ADODB.Recordset
Dim conexão as ADODB.Connection
< fileRecords p> ADODB.Recordset Dim Dim
fileQuery As String Dim
numCampo As Integer
texto "este drive suporta Properties = prolongado '; FMT = delimitado ' "
" Há também um argumento adicional , HDR com sim ou não os valores que indica se o arquivo tem um cabeçalho
' connOpen " Provider = Microsoft.Jet "_
' & " . OLEDB.4.0 ; Data Source = " & App.Path _
" &"; prolongado Properties = 'text ; HDR = NO ; "_
" & " FMT = delimitado "
Set conexão = New ADODB.Connection
connection.ConnectionString = _
" Driver = { Microsoft Text Driver (* txt; . *. csv) }; "& _
" DBQ = "& App.Path &"; "," "," "
Connection.Open
fileQuery =" SELECT * FROM "& fileName
Set fileRecords = Connection.Execute ( fileQuery )
Definir ReadCSV = fileRecords
End Function
Este código se conecta a um arquivo de texto usando o Microsoft motorista texto e seleciona todas as linhas em um conjunto de registros ADO.
6
Chame a função a partir do evento desejado ou aplicativo de console.
