Wie lese ich Daten aus einer CSV-Datei und speichern Sie die Infos In ein array?

Ich habe zwei Spalten in einer CSV-Datei, und ich brauche, um zu speichern, die jede Spalte in ein separates array.

Name,AvalibilityAsBoolean
---------------------------
Vagarth Gaurav,True
Dhananjay Menon,False

Ich würde gerne einen array für die Namen, und ein weiteres array für die Verfügbarkeit, der als boolescher Wert gespeichert, ähnlich wie unten.

Name(0) = "Vagarth Gaurav"
Name(1) = "Dhananjay Menon"
Available(0) = True
Available(1) = False

Das problem ist nur das Lesen der CSV ein und speichern Sie die Zeichenfolgen und Boolesche Werte in die entsprechenden arrays.

Bitte helfen, ich bin neu in VB. Ich benutze Visual Basic 2010

InformationsquelleAutor Gaurav | 2013-02-08
  1. 2

    Ich bin mir sicher, dass diese Frage gestellt wurde, bevor, aber dieses sollte helfen. Die Nutzung der TextFieldParser-Klasse zu tun, die Analyse für Sie macht es einfach. Code für die Verwaltung der beiden arrays wird angezeigt, in diesem code-Beispiel zu.

        Dim arrName() As String
    Dim arrValue() As String

    Using ioReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\test\test.csv")

        ioReader.TextFieldType = FileIO.FieldType.Delimited
        ioReader.SetDelimiters(",")

        While Not ioReader.EndOfData

            Dim arrCurrentRow As String() = ioReader.ReadFields()

            If arrName Is Nothing Then

                ReDim Preserve arrName(0)
                ReDim Preserve arrValue(0)

                arrName(0) = arrCurrentRow(0)
                arrValue(0) = arrCurrentRow(1)

            Else

                ReDim Preserve arrName(arrName.Length)
                ReDim Preserve arrValue(arrValue.Length)

                arrName((arrName.Length - 1)) = arrCurrentRow(0)
                arrValue((arrValue.Length - 1)) = arrCurrentRow(1)

            End If

        End While
    • danke viel ver @NoAlias. es funktioniert perfekt!
    InformationsquelleAutor N0Alias
  2. 1
    Dim sData() As String
Dim arrName, arrValue as New List(Of String)()

Using sr As New StreamReader(sFile)
    While Not sr.EndOfStream
        sData = sr.ReadLine().Split(","c)

        arrName.Add(sData(0).Trim())
        arrValue.Add(sData(1).Trim())
    End While
End Using

    Du vielleicht speichern möchten, Ihren Wert als Boolean (available, notAvailable). Sie können etwas tun:

    Dim arrValue As New List(Of Boolean)()
...

    arrValue.Add(Not sData(1).Trim().ToUpper().StartsWith("NOT"))
    • ich danke Ihnen sehr!
    InformationsquelleAutor SysDragon
Schreibe einen Kommentar