Aus CSV.Datei lesen

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von xaverl.

    Aus CSV.Datei lesen

    Hallo,

    Ich habe folgendes Problem ich würde gerne eine CSV.Datei in ein DataGridView einlesen.
    Mein Quelltext lautet wie folgt:

    Dim     fs As New FileStream("123.CSV", FileMode.Append)
    Dim sr As New StreamReader(fs)
    Dim Zeile As String
    Do Until sr.Peek() = -1
    Zeile = sr.ReadLine()
    DataGridView1.Text &= Zeile & vbCrLf
    Loop
    sr.Close()
    Leider funktioniert das nicht, beim Debuggen makiert er mir die 2.Zeile und gibt mir folgende Meldung:
    "Der Stream war nicht lesbar"

    Was kann ich tun?

    Vielen Dank
    xaverl

    auch dann geht das in die Hose.
    Eine DataGridView wird anders bestückt.
    Hier mal eine beispiel wie man eine CSV an ein DataGridView weitergibt.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' DataGridView aus datei lesen und in Grid anzeigen
    2. Private Sub User_Load()
    3. If File.Exists(Datei) Then
    4. Dim lines() As String = Nothing
    5. DataGridView1.Rows.Clear()
    6. Me.Cursor = Cursors.AppStarting
    7. 'DataGridView1.AllowUserToAddRows = True
    8. Try
    9. lines = IO.File.ReadAllLines(Datei)
    10. Catch ex As Exception
    11. Me.Cursor = Cursors.Default
    12. Exit Sub
    13. End Try
    14. Dim Menge As Integer = lines.GetLength(Menge) - 1 ' Anzahl der Zeilen ermitteln
    15. For i = 0 To Menge
    16. Dim Eintrag As String = lines(i)
    17. Dim parts() As String = Split(Eintrag, "#")
    19. Dim RowCount As Integer = DataGridView1.RowCount - 1
    20. DataGridView1.Rows.Add()
    21. DataGridView1.BeginEdit(CBool(RowCount))
    23. Dim SplittCount As Integer = parts.Length - 1 ' Anzahl der Einträge in Splitt
    24. If SplittCount >= 0 Then
    25. For g = 0 To SplittCount
    26. DataGridView1.Rows(RowCount).Cells(g).Value = parts(g)
    27. Next g
    28. End If
    29. Next i
    30. DataGridView1.Update()
    31. DataGridView1.EndEdit()
    32. 'DataGridView1.AllowUserToAddRows = False
    33. Me.Cursor = Cursors.Default
    34. End If
    35. End Sub

    Du brauchst eigentlich nur 2 sachen beachten.

    ich Splitte in der CSV mit "#". also sollten deine auch mit "#" gesplittet sein. oder du änderst den wildcard.
    dann noch die Datei übergeben
    Also

    VB.NET-Quellcode

    1. Dim Datei as String = "Dein Pfad und DateiName"


    Wenn du nun eine DataGridView1 auf der Form hast sollte es laufen.

    Hallo ChaosBernd,

    die wildcard im diesen Fall "#" ist doch ein Platzhalter oder?
    und hat nichts mit dem in der CSV.Datei verwendeten Trennungszeichen Semikolon ";" zu tun oder?

    Wenn ich jetzt mit meiner Annahme richtig liege dann weiß ich nicht wie ich die wildcard ändern kann, wäre super wenn du mir da einen Tipp geben könntest.

    Gruß
    xaverl

    doch das meinte ich damit. Also die Trennzeichen in deiner CSV.
    Wenn du also ; in deiner CSV als Trennzeichen hast dann ändere nur den Code auf ";" ab.

    denk an deine Datei. Die solltest du auch dem Code mitgeben. hatte ich aber schon in dem obigen Post erwänt.

    Dann hab ich ein Problem
    "mein" Quelltext ist jetzt der selbe wie der von dir ;)

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    3. Dim Datei As String = "C:\Users\Stefan\Desktop\123.CSV"
    4. If File.Exists(Datei) Then
    5. Dim lines() As String = Nothing
    6. DataGridView1.Rows.Clear()Me.Cursor = Cursors.AppStarting
    7. 'DataGridView1.AllowUserToAddRows = True
    8. Trylines = IO.File.ReadAllLines(Datei)
    9. Catch ex As ExceptionMe.Cursor = Cursors.Default
    10. Exit Sub
    11. End Try
    12. Dim Menge As Integer = lines.GetLength(Menge) - 1 ' Anzahl der Zeilen ermittelnFor i = 0 To Menge
    13. Dim Eintrag As String = lines(i)Dim parts() As String = Split(Eintrag, ";")Dim RowCount As Integer = DataGridView1.RowCount - 1
    14. DataGridView1.Rows.Add()
    15. DataGridView1.BeginEdit(CBool(RowCount))
    16. Dim SplittCount As Integer = parts.Length - 1 ' Anzahl der Einträge in Splitt
    17. If SplittCount >= 0 ThenFor g = 0 To SplittCount
    18. DataGridView1.Rows(RowCount).Cells(g).Value = parts(g)Next g
    19. End IfNext i
    20. DataGridView1.Update()
    21. DataGridView1.EndEdit()
    22. 'DataGridView1.AllowUserToAddRows = FalseMe.Cursor = Cursors.Default
    23. End If
    25. 'Tabelle beschriften
    26. Me.DataGridView1.Rows(0).Cells(0).Value = "Artikelnummer"
    27. Me.DataGridView1.Rows(0).Cells(1).Value = "Suchbezeichnung"
    28. Me.DataGridView1.Rows(0).Cells(2).Value = "Bezeichnung 2"
    29. Me.DataGridView1.Rows(0).Cells(3).Value = "Bezeichnung 3"
    30. Me.DataGridView1.Rows(0).Cells(4).Value = "EAN"
    31. Me.DataGridView1.Rows(0).Cells(5).Value = "Produkthauptgruppe O-Ringe"
    32. Me.DataGridView1.Rows(0).Cells(6).Value = "Produktuntergruppe"
    33. Me.DataGridView1.Rows(0).Cells(7).Value = "Aufschlag"
    34. Me.DataGridView1.Rows(0).Cells(8).Value = "WEF-Preis"
    35. Me.DataGridView1.Rows(0).Cells(9).Value = "WAF-Preis"
    36. Me.DataGridView1.Rows(0).Cells(10).Value = "Preiseinheit"
    37. Me.DataGridView1.Rows(0).Cells(11).Value = "EK-Liste"
    38. Me.DataGridView1.Rows(0).Cells(12).Value = "Verrechnungs-Preis"
    39. Me.DataGridView1.Rows(0).Cells(13).Value = "VK-Preis"
    40. Me.DataGridView1.Rows(0).Cells(14).Value = "VK-Liste"
    41. Me.DataGridView1.Rows(0).Cells(15).Value = "VK-Preisgruppenpreis"
    42. Me.DataGridView1.Rows(0).Cells(16).Value = "Aufschlagsart"
    43. Me.DataGridView1.Rows(0).Cells(17).Value = "Lagerbestand"
    44. Me.DataGridView1.Rows(0).Cells(18).Value = "Lagerwert"
    45. Me.DataGridView1.Rows(0).Cells(19).Value = "letzter Abgang"
    46. Me.DataGridView1.Rows(0).Cells(20).Value = "letzter Zugang"
    47. Me.DataGridView1.Rows(0).Cells(21).Value = "Mengeneinheit"
    48. Me.DataGridView1.Rows(0).Cells(22).Value = "SET-Artikel"
    49. Me.DataGridView1.Rows(0).Cells(23).Value = "Stücklisten-Artikel"
    50. Me.DataGridView1.Rows(0).Cells(24).Value = "Provision"
    51. Me.DataGridView1.Rows(0).Cells(25).Value = "Bestellartikel"
    52. Me.DataGridView1.Rows(0).Cells(26).Value = "Auslaufartikel"
    53. Me.DataGridView1.Rows(0).Cells(27).Value = "Sperren"
    54. Me.DataGridView1.Rows(0).Cells(28).Value = "Bewerten"
    55. Me.DataGridView1.Rows(0).Cells(29).Value = "Kassenartikel"
    56. Me.DataGridView1.Rows(0).Cells(30).Value = "eShop"
    57. Me.DataGridView1.Rows(0).Cells(31).Value = "eShop-Artikel seit"
    58. Me.DataGridView1.Rows(0).Cells(32).Value = "eShop Bild klein"
    59. Me.DataGridView1.Rows(0).Cells(33).Value = "eShop Bild groß"
    60. Me.DataGridView1.Rows(0).Cells(34).Value = "eShop Text"
    61. Me.DataGridView1.Rows(0).Cells(35).Value = "LKW-Typ"
    62. Me.DataGridView1.Rows(0).Cells(36).Value = "Werkstoff"
    63. Me.DataGridView1.Rows(0).Cells(37).Value = "Innendurchmesser" 'ab hier die Spalten die ich gerne hätte
    64. Me.DataGridView1.Rows(0).Cells(38).Value = "Aussendurchmesser"
    65. Me.DataGridView1.Rows(0).Cells(39).Value = "Schnur"
    66. Me.DataGridView1.Rows(0).Cells(40).Value = "Härte IRHD"
    67. Me.DataGridView1.Rows(0).Cells(41).Value = "Härte Shore"
    68. Me.DataGridView1.Rows(0).Cells(42).Value = "Dichte"
    69. Me.DataGridView1.Rows(0).Cells(43).Value = "Datum"
    70. Me.DataGridView1.Rows(0).Cells(44).Value = "Uhrzeit"
    71. Zeile = 1


    bis auf den Unterschied, dass ich die Spalten des DataGridView1 mit den Angaben aus meiner CSV beschrifte.
    Die Beschriftungen ab Zelle 37 sind dann Extra Beschriftungen, die ich dann Später mal von einer Messmaschine eintragen lassen will.

    Zur erklärung meines Vorhabens:
    Das einlesen der CSV.Datei soll den Sinn haben mir den Produktstamm aufzulisten, den ich dann durch die Artikelnummer anwählen kann.

    beispielsweise: DataGridView1.Colums(0;0).HeaderText = blabla
    Sobald du die Klammer nach Columns öffnest (Du hast Colums geschrieben statt Columns) siehst du die Möglichkeiten
    Bei mir steht keine dabei mit (0;0). Wo haste das denn her?
    Der Rest stimmt. Die Headertexte solltest du dir doch aus deiner CSV raus lesen können, falls dort welche drin sind!

    Hallo,

    ja ich habe die Überschriften in meiner CSV-Datei.
    Ich hab jetzt mal den Teil mit der Spaltenbeschriftung rausgenommen aus dem Quelltext, da dieser das einlesen anscheinend gestört hat. Seit ich den Teil rausgenommen habe fügt mir mein DataGridView die benötigten Zeilen ein, aber befüllt diese nicht. Jetzt wollt ich mal nachfragen ob dies daran liegen kann das ich in mein DataGridView noch weitere Spalten eingefügt habe und das Programm evtl. dadurch blockiert wird.

    Vielen Dank

    Ich hab es ausprobiert auch wenn ich die anderen Spalten rausnehme schreibt es mir keine Werte in die Felder. ?(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xaverl“ ()

Facebook
Telefonspende