|
Comma Separated Value (CSV) est un simple format de fichier texte qui est couramment utilisé pour stocker des données . Une ligne représente chaque enregistrement dans ce format, et dans chaque ligne, une virgule sépare chaque valeur. Flux Visual Basic 6 entrées-sorties fichiers ou objets d'accès aux données peuvent être utilisées pour charger et lire un fichier CSV. Choses que vous devez
Visual Basic 6
Voir Plus Instructions
1 créer un nouveau projet dans Visual Basic. Si vous souhaitez ajouter la fonctionnalité de lire un fichier CSV à un projet existant , vous pouvez sauter cette étape .
2 Ajouter une classe au projet par un clic droit sur le nom du projet dans le projet explorer, puis en sélectionnant " Module Ajouter une classe . "
3 Définissez la propriété nom de la classe à " CFileReader " ou un nom en utilisant vos normes de codage .
4 < p> Ajouter une référence à l' active Data Objects ( ADO) de la bibliothèque en sélectionnant le "Projet> Références " dans le menu , puis en sélectionnant le " Microsoft ActiveX Data Objects 2.5 Library " ou la " ActiveX Data Objects 2.6 Library Microsoft . "
5 Entrez le code suivant dans la classe :
privé Fonction ReadCSV ( fileName ByVal As String) As ADODB.Recordset
connexion As ADODB.Connection
< p> fileRecords As ADODB.Recordset
fileQuery Dim As String
fieldNum As Integer
' Ce lecteur prend en charge les propriétés étendues = ' text ; fmt = délimité »
« Il ya aussi un argument supplémentaire , HDR par oui ou non les valeurs qui indique si le fichier a une tête
' " Provider = Microsoft.Jet " connOpen _
' & " OLEDB.4.0 ; . Data Source = " & App.Path _
" &" Extended Properties = 'text ; HDR = NO ; "_
" & " fmt = délimité » Photos connexion Set = 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 )
Set ReadCSV = fileRecords
Fin de Fonction: Ce code se connecte à un fichier texte en utilisant le Microsoft pilote de texte et sélectionne toutes les lignes dans un jeu d'enregistrements ADO.
6 appeler la fonction à partir de l'événement souhaité ou l'application de la console.
|
