Mehrdimensionales Array mit Txt Daten befüllen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Petersilie.

    Mehrdimensionales Array mit Txt Daten befüllen

    Hallo Leute,

    ich habe eine Textdatei mit 10 Zeilen.
    In jeder Zeile stehen Werte (Strings) die durch ein Semikolon getrennt sind.

    Mein Ziel ist es ein Array zu erstellen welches in der ersten Dimensionen die Zeilennummer speichert
    und in der zweiten Dimension die Daten der Zeile.

    Kennt ihr da einen guten weg das zumachen?

    Ich komme da momentan nicht wirklich weiter... bekomme nur die gesamte Zeile in eine Dimension
    aber eben nicht alle Daten getrennt in der Zweiten Dimension.

    @Petersilie Warum muss es ein mehrdimensionales Array sein?
    Mach Dir eine Klasse, die alle Daten einer Zeile enthält und dann eine List(Of DIESE_KLASSE).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany das muss es gar nicht, es kam mir nur als erstes in den Kopf :)
    Gar keine schlechte Idee, Danke.

    Habe es jetzt wie folgt gemacht:

    VB.NET-Quellcode

    1. Imports System
    3. Imports System.IO
    5. Imports System.Collections
    7. Module Verfasser_Daten
    9. Private Function counter(ByVal file As String) As Integer
    11. Dim fs As New IO.StreamReader(file)
    13. Dim counting As Integer
    15. While Not fs.EndOfStream
    17. fs.ReadLine()
    19. counting += 1
    21. End While
    23. fs.Close()
    25. Return counting
    27. End Function
    29. Sub verfasser()
    31. Const datei As String = "C:\Users\max.bader\Desktop\Verfasser.txt"
    33. Dim lineReader As New IO.StreamReader(datei)
    35. Dim lines As Integer = counter(datei)
    37. Dim i As Integer
    39. Dim j As Integer
    41. Dim arr() As String
    43. Dim arr_2(lines, 8) As String
    45. Dim inhalte As String
    47. Do While Not lineReader.EndOfStream
    49. inhalte = lineReader.ReadLine()
    51. arr = inhalte.Split(";")
    53. For j = 0 To UBound(arr)
    55. arr_2(i, j) = arr(j)
    57. Console.WriteLine(arr_2(i, j))
    59. Next j
    61. i += 1
    63. Loop
    65. lineReader.Close()
    67. End Sub
    69. End Module

    Petersilie schrieb:

    Habe es jetzt wie folgt gemacht:
    Da passiert doch gar nix. :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany Ja der Code war nicht so Bombe, habe es nochmal etwas abgeändert.
    Der unten stehende Code funzt, die erste Dimension erhält eine feste Größe da es eine klare Grenze für die Spalten gibt.

    Ist weder eine schöne noch eine gute Lösung aber es erfüllt den Zweck.

    VB.NET-Quellcode

    1. Private Function counter(ByVal file As String) As Integer
    2. Dim fs As New IO.StreamReader(file)
    3. Dim counting As Integer
    5. While Not fs.EndOfStream
    6. fs.ReadLine()
    7. counting += 1
    8. End While
    10. fs.Close()
    11. Return counting
    13. End Function
    15. Sub verfasser()
    16. Const datei As String = "C:\Users\ich\Desktop\Verfasser.txt"
    18. Dim fs As New IO.StreamReader(datei)
    19. Dim lines As Integer = counter(datei)
    20. Dim getUserData() As String
    21. Dim i As Integer = 0
    22. Dim j As Integer = 0
    23. Dim arr() As String 'Array für Split Funktion
    24. Dim inhalte As String 'Zeilen Inhalte die gesplittet werden
    26. ReDim getUserData(9, lines)
    28. Do While Not fs.EndOfStream
    29. inhalte = fs.ReadLine()
    30. arr = inhalte.Split(";")
    31. For j = 0 To UBound(arr)
    32. getUserData(j, i) = arr(j)
    33. Next j
    35. i += 1
    36. Loop
    38. fs.Close()
    40. End Sub

    @Petersilie Sieh Dir mal dies an:

    VB.NET-Quellcode

    1. Dim lines() = IO.File.ReadAllLines(DEIN_PFAD)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende