| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment charger une table à partir d'un fichier CSV avec Visual Basic
    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
    < p > 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 >

    Previous :

    next :
      articles connexes
    ·Comment utiliser ADODC dans VB6.0 
    ·Comment utiliser Editref en VBA 
    ·Quels sont les bons programmes pour le Visual Basic 
    ·Comment convertir un projet VB6 à EXE 
    ·Comment accéder à une DLL pour Visual Basic 
    ·Comment faire pour supprimer une propriété d'image da…
    ·Comment utiliser une classe de Région à supprimer des…
    ·Liste des onglets dans le classeur 
    ·Comment arrêter un thread dans Visual Basic 2005 
    ·Les tableaux de Visual Basic Tutorial 
      articles en vedette
    ·Comment faire pour convertir un flotteur à une chaîne…
    ·Un tutoriel sur la réinitialisation du tableau en PHP 
    ·Comment faire pour exécuter un processus sur un PC à …
    ·Comment utiliser ActiveX dans C # 
    ·Comment comprendre quelle version de Python Vous avez 
    ·Comment un texte d'ancrage à un article 
    ·Comment rechercher un fichier à l'aide d'une macro 
    ·Comment lire un joystick USB en Visual Basic 
    ·Comment se convertir à matrice dans MATLAB 
    ·Comment faire pour mettre un programme sous Dans Visual…
    Copyright © Connaissances Informatiques http://fr.wingwit.com