|  
    
 Visual Basic (VB ) est un langage de programmation informatique créé par Microsoft . VB fait des ajouts importants à l' ensemble de primitives disponibles dans le langage de programmation BASIC original, comme la récursivité et manipulations de cordes sophistiqués. Comma - Separated Values ( CSV ) est une forme répandue de stocker des informations sous forme de tableau dans des fichiers informatiques . Dans un fichier CSV , chaque ligne correspond à une ligne dans le tableau codé ; chaque rangée se compose , à son tour, des valeurs correspondant aux entrées de la colonne séparées par des virgules . Vous pouvez écrire du code VB qui lit l'entrée CSV dans un tableau en mémoire pour d'autres manipulations . Instructions   1  Ouvrez le fichier CSV en mode lecture et de lire tout son contenu , comme dans cet exemple de code :     poignée As Integer     wholeContents Dim As String Photos   poignée = FreeFile     ouverte " input.csv » pour l'entrée en guise de poignée     wholeContents = Entrée $ ( LOF (manche ), # poignée)     Fermez la poignée     Remplacer " input.csv " par le nom du fichier CSV que vous devez analyser .   2 lignes de l' fichiers séparés   en différents éléments d'une variante VB en utilisant le saut de ligne caractères comme des séparateurs , comme dans cet exemple de code : Trouvez   lineContents As Variant     lineContents = split ( wholeContents , vbCrLf )   3   affecter le bon nombre de lignes et de colonnes au tableau qui contiendra les valeurs dans le fichier CSV original, comme dans cet exemple de code :     sampleLine As Variant     nRows As Integer     ncols As Integer     Dim Array () comme corde     nRows = Ubound ( lineContents )     sampleLine = split ( lineContents (0) , ",") < br >   ncols = Ubound ( sampleLine )   tableau ReDim   ( nRows , ncols )   4   copier les valeurs de la variante contenant toutes les valeurs séparées par des virgules dans le tableau VB, comme dans cet exemple de code :     Dim i as Integer     j As Integer     For i = 0 To nRows     sampleLine = split ( lineContents ( i) , ",")     Pour j = 0 To Ubound ( sampleLine )     array ( i , j) = sampleLine ( j)     Ensuite j     Next i     Après l'exécution des deux imbriqué «Pour» boucles , array "array" contiendra les mêmes valeurs que le fichier CSV d'origine.   < br >
 
 |