Mehrdimensionales String Array speichern und lesen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Elephant.

    schau mal hier ^^

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim MeinArray As Char(,) = {{"a"c, "b"c}, {"c"c, "d"c}, {"e"c, "f"c}} ' 3×2 Array
    4. For i As Integer = 0 To 2 Step 1
    5. For j As Integer = 0 To 1 Step 1
    6. Debug.WriteLine(MeinArray(i, j))
    7. Next
    8. Next
    10. End Sub


    \begin{bmatrix} a & b \\ c & d \\ e & f \end{bmatrix}

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bartosz“ ()

    Da gibt es viele Ansätze. Daher kommt es drauf an was für eine Array das es ist, und wie sie gespeichert werden soll.

    Sofern es immer der gleiche Array-Typ ist, und es auf die HD gespeichert werden soll, so kann man das schon mit einer Serialisierung machen.

    Wenn es Arrays sind, unter Umstände sogar verschiedene Datentypen dann würde ich mit StreamReader, Streamwriter , BinaryReader oder BinaryWriter arbeiten.

    Aber wie gesagt. Wir müssten wissen, was du genau vor hast und was für Array das es sind.

    Freundliche Grüsse

    exc-jdbi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „exc-jdbi“ ()

    exc-jdbi schrieb:

    Da gibt es viele Ansätze.

    Hier mal die Dimensionierung
    Dim InfoText(100, 2)

    Mal so nebenbei, ein eindimensionales Array kann ich Dimensionieren ohne zu wissen wie viele Elemente es werden. Würde das auch hier gehen und wenn ja wie?

    Aber nun wieder zum Thema.
    In dem String werden zwei Infos gespeichert und auch angezeigt, das dritte wird nur vom Programm verwendet.

    Das mit den vielen Ansätzen hört sich so an als muss man sich was basteln.

    Mein erste Gedanke wäre:

    VB.NET-Quellcode

    1. Dim Speichern As String
    2. For i = 0 To Anzahl
    3. Speichern = Speichern & InfoText(i, 0) & Environment.NewLine
    4. Next
    6. My.Computer.FileSystem.WriteAllText("C:\Speicherort\Infotext1.txt", Speichern, False)
    8. 'Zum lesen
    9. Dim filelesen As String = My.Computer.FileSystem.ReadAllText("C:\Speicherort\Infottext1.txt")
    11. Dim LesenString() As String = filelesen.Split(Environment.NewLine)

    und das halt 3-mal.

    Wobei wenn man sich eh was basteln muss, könnte ich es auch so Regeln das ich 3 String Arrays nehme.
    Wobei ich da auch nicht wüsste wie man ein eindimensionales String Array speichert und liest.

    Also du baust dir ein txt-File? Was direkt auffällt an dem Split ist, dass du File.ReadAllLines nicht kennst. Das würde dir direkt den LesenString() ausgeben, den du dir mit Split "bastelst"

    genauso kannst auch mit .WriteAllLines Arbeit sparen.

    Ich muss allerdings zugeben ich hab noch nicht ganz verstanden wie die Txt am Ende aussehen soll.

    Was du mit Array speichern meinst ist auch nicht klar, vermutlich willst du den Inhalt des Arrays in einer Txt speichern, danach sieht dein Code aus.

    So pack ich drei Worte nach Zeilen geteilt in ne txt:

    VB.NET-Quellcode

    1. Dim dreiworte as String() = {"Hallo","I","bims"}
    2. File.WriteAllLines("C:\Speicherort\dreiworte.txt", dreiworte)

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

    @'Elephant' Haudruferzappeltnoch war etwas schneller, was ReadAllLines etc angeht, aber ich möchte dir meine Antwort nicht vorenthalten ^^

    Du bist dir nicht sicher, wie viele Zeilen eingelesen werden werden? Kein Problem: StringArray = (New String(RAL1.Length - 1, 2) {})

    speichern und laden

    VB.NET-Quellcode

    1. Imports Microsoft.VisualBasic.ControlChars
    2. Imports Microsoft.WindowsAPICodePack.Dialogs
    3. Public Class FormMain
    4. Private ReadOnly Deu As New System.Globalization.CultureInfo("de-DE")
    5. Private StringArray As String(,)
    6. Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Label_loadingstate.Text = ""
    8. End Sub
    10. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button_load.Click
    11. Dim file_path As String = ""
    12. Using OFD As New CommonOpenFileDialog
    13. OFD.Title = "Ordner, in dem die Datensätze-Textdateien sind, auswählen"
    14. Dim di As New IO.DirectoryInfo(Application.StartupPath)
    15. If di.Parent.Name = "bin" Then
    16. di = di.Parent.Parent.Parent ' AnyCPU
    17. ElseIf di.Parent.Parent.Name = "bin" Then
    18. di = di.Parent.Parent.Parent.Parent ' x64, x86
    19. End If
    20. If System.IO.Directory.Exists(di.FullName) Then
    21. OFD.InitialDirectory = di.FullName
    22. Else
    23. OFD.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    24. End If
    25. OFD.Filters.Add(New CommonFileDialogFilter("Textdateien", ".txt"))
    26. If OFD.ShowDialog() = CommonFileDialogResult.Ok Then
    27. file_path = OFD.FileName
    28. Else
    29. Return
    30. End If
    31. End Using
    33. If (Await Read_data(file_path)) Then
    34. Label_loadingstate.Text = "Daten vollständig geladen"
    35. Else
    36. Label_loadingstate.Text = "Daten nicht vollständig geladen"
    37. End If
    38. End Sub
    40. Private Async Function Read_data(ByVal file_path As String) As Task(Of Boolean)
    41. Return Await Task.Run(Function() ReadData(file_path))
    42. End Function
    44. Private Function ReadData(ByVal file_path As String) As Boolean
    46. Dim RAL1 As String() = System.IO.File.ReadAllLines(file_path, System.Text.Encoding.UTF8)
    48. StringArray = (New String(RAL1.Length - 1, 2) {})
    50. For i As Integer = 0 To RAL1.Length - 1 Step 1
    51. Dim parts As String() = RAL1(i).Split({Tab})
    52. For j As Integer = 0 To 2 Step 1
    53. StringArray(i, j) = parts(j)
    54. Next
    55. Next
    57. Return True
    58. End Function
    60. Private Sub Button_save_Click(sender As Object, e As EventArgs) Handles Button_save.Click
    61. Dim file_path As String
    62. Using SFD1 As New CommonSaveFileDialog
    63. SFD1.Title = "Daten speichern"
    64. SFD1.Filters.Add(New CommonFileDialogFilter("Textdatei", ".txt"))
    65. Dim di As New IO.DirectoryInfo(Application.StartupPath)
    66. If di.Parent.Name = "bin" Then
    67. di = di.Parent.Parent.Parent ' AnyCPU
    68. ElseIf di.Parent.Parent.Name = "bin" Then
    69. di = di.Parent.Parent.Parent.Parent ' x64, x86
    70. End If
    71. If System.IO.Directory.Exists(di.FullName) Then
    72. SFD1.InitialDirectory = di.FullName
    73. Else
    74. SFD1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    75. End If
    76. If SFD1.ShowDialog() = CommonFileDialogResult.Ok Then
    77. file_path = SFD1.FileName & ".txt"
    78. Else
    79. Return
    80. End If
    81. End Using
    83. save_Data(file_path)
    84. End Sub
    86. Private Sub save_Data(ByVal file_path As String)
    87. Using textfile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(file_path, True, System.Text.Encoding.UTF8)
    88. For i As Integer = 0 To 99 Step 1
    89. textfile.WriteLine(i.ToString(Deu).PadLeft(2, "0"c) & Tab & "Hallo" & Tab & "Test") 'Dies ist natürlich nur ein Lückenfüller, TAB-Zeichen-getrennt, um irgendetwas in die Textdatei zu schreiben.
    90. Next
    91. textfile.Close()
    92. End Using
    93. End Sub
    94. End Class



    Wenn du mehrere Dateien hast (du sagtest drei), dann nimmst du den Code drei Mal untereinander.

    Die Einlesen-Prozedur ist asynchron. Ist für 100 Zeilen vielleicht etwas übertrieben, aber wenn über 1000 Zeilen in der Datei stehen, dann macht sich das bemerkbar. Und noch ein Hinweis: Ich habe OpenFileDialoge eingebunden. Hard-gecodete Pfade ("C:\Speicherort\Infotext1.txt") gehen gar nicht.
    Bilder

    • gespeicherte Textdatei.png

      42,59 kB, 788×838, 62 mal angesehen

    • runtime debugging.jpg

      61,75 kB, 520×348, 61 mal angesehen

    @Elephant Bau Dir eine Datenklasse und serialisiere die.
    Binär oder Xml: docs.microsoft.com/de-de/dotne…e/concepts/serialization/
    Feddich.
    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!

    Morgen @Elephant

    Schau dir kurz die Möglichkeiten an.

    Freundliche Grüsse

    exc-jdbi

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Imports System.IO
    4. Imports System.Text
    5. Imports System.Runtime.Serialization.Formatters.Binary
    7. Public Module ElephantSaveArray
    8. Private ReadOnly Rand As Random = New Random
    9. Public Sub Main()
    10. Dim size = 100
    11. Dim length = 3
    12. Dim filema = "datama"
    13. TestMultiArray(filema, 100, 3)
    15. Dim fileja = "dataja"
    16. TestStringArray(fileja, 100, 3)
    17. End Sub
    19. Private Sub TestMultiArray(filename As String, size As Int32, length As Int32)
    20. 'Random MultiArray
    21. Dim rngarray = RngMultiArray(size, length)
    23. 'Speichern und Laden über Serialisierung
    24. SaveSourceSerialize(filename, rngarray)
    25. Dim newsrc = DirectCast(LoadSourceDeserialize(filename), String(,))
    27. 'Speichern und Laden über Streams
    28. SaveSource(filename, rngarray)
    29. Dim newsrc2 = LoadMultiArray(filename)
    30. End Sub
    31. Private Sub TestStringArray(filename As String, size As Int32, length As Int32)
    32. 'Random StringArray
    33. Dim rngarray = RngStringArray(size, length)
    35. 'Speichern und Laden über Serialisierung
    36. SaveSourceSerialize(filename, rngarray)
    37. Dim newsrc = DirectCast(LoadSourceDeserialize(filename), String())
    39. 'Speichern und Laden über Streams
    40. SaveSource(filename, rngarray)
    41. Dim newsrc2 = LoadStringArray(filename)
    42. End Sub
    44. Private Sub SaveSource(filename As String, source As String(,))
    45. Using fs = New FileStream(filename, FileMode.Create)
    46. Using sw = New StreamWriter(fs)
    47. Dim sb = New StringBuilder(source.GetLength(1))
    48. sw.WriteLine(source.GetLength(1))
    49. For i = 0 To source.GetLength(0) - 1
    50. For j = 0 To source.GetLength(1) - 1
    51. sb.Append(source(i, j))
    52. Next
    53. sw.WriteLine(sb.ToString)
    54. sb.Clear()
    55. Next
    56. End Using
    57. End Using
    58. End Sub
    60. Private Function LoadMultiArray(filename As String) As String(,)
    61. Using fs = New FileStream(filename, FileMode.Open)
    62. Using sr = New StreamReader(fs)
    63. Dim sb = New StringBuilder
    64. Dim nl = Environment.NewLine
    65. Dim length = Convert.ToInt32(sr.ReadLine)
    66. While Not sr.EndOfStream
    67. sb.AppendLine(sr.ReadLine)
    68. End While
    69. Dim split = sb.ToString.Split({nl}, StringSplitOptions.RemoveEmptyEntries)
    70. Dim result = New String(split.Length - 1, length - 1) {}
    71. For i = 0 To split.Length - 1
    72. For j = 0 To split(i).Length - 1
    73. result(i, j) = split(i)(j)
    74. Next
    75. Next
    76. Return result
    77. End Using
    78. End Using
    79. End Function
    81. Private Sub SaveSource(filename As String, source As String())
    82. Using fs = New FileStream(filename, FileMode.Create)
    83. Using sw = New StreamWriter(fs)
    84. For Each s In source
    85. sw.WriteLine(s)
    86. Next
    87. End Using
    88. End Using
    89. End Sub
    90. Private Function LoadStringArray(filename As String) As String()
    91. Using fs = New FileStream(filename, FileMode.Open)
    92. Using sr = New StreamReader(fs)
    93. Dim sb = New StringBuilder
    94. Dim nl = Environment.NewLine
    95. While Not sr.EndOfStream
    96. sb.AppendLine(sr.ReadLine)
    97. End While
    98. Return sb.ToString.Split({nl}, StringSplitOptions.RemoveEmptyEntries)
    99. End Using
    100. End Using
    101. End Function
    103. Private Sub SaveSourceSerialize(filename As String, source As Object)
    104. Using fs = New FileStream(filename, FileMode.Create)
    105. Try
    106. Dim formatter = New BinaryFormatter()
    107. formatter.Serialize(fs, source)
    108. Catch ex As Exception
    109. End Try
    110. End Using
    111. End Sub
    113. Private Function LoadSourceDeserialize(filename As String) As Object
    114. Using fs = New FileStream(filename, FileMode.Open)
    115. Try
    116. Dim formatter = New BinaryFormatter()
    117. Return formatter.Deserialize(fs)
    118. Catch ex As Exception
    119. End Try
    120. End Using
    121. Return Nothing
    122. End Function
    124. Private Function RngMultiArray(size As Int32, length As Int32) As String(,)
    125. Dim rngalpha = RngAlphaSource()
    126. Dim result = New String(size - 1, length - 1) {}
    127. For i = 0 To result.GetLength(0) - 1
    128. For j = 0 To result.GetLength(1) - 1
    129. result(i, j) = rngalpha(Rand.Next(rngalpha.Length))
    130. Next
    131. Next
    132. Return result
    133. End Function
    135. Private Function RngStringArray(size As Int32, length As Int32) As String()
    136. Dim sb As StringBuilder
    137. Dim rngalpha = RngAlphaSource()
    138. Dim result = New String(size - 1) {}
    140. For i = 0 To result.Length - 1
    141. sb = New StringBuilder(length)
    142. For j = 0 To length - 1
    143. sb.Append(rngalpha(Rand.Next(rngalpha.Length)))
    144. Next
    145. result(i) = sb.ToString
    146. Next
    147. Return result
    148. End Function
    149. Private Function RngAlphaSource() As String
    150. Return "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789".
    151. OrderBy(Function(str) Rand.Next).ToArray
    152. End Function
    153. End Module


    Natürlich gehts auch so
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Private Sub SaveSource2(filename As String, source As String(,))
    2. Using fs = New FileStream(filename, FileMode.Create)
    3. Using sw = New StreamWriter(fs)
    4. sw.WriteLine(source.GetLength(0))
    5. sw.WriteLine(source.GetLength(1))
    6. Dim sb = New StringBuilder(source.GetLength(1))
    7. For i = 0 To source.GetLength(0) - 1
    8. For j = 0 To source.GetLength(1) - 1
    9. sb.Append(source(i, j))
    10. Next
    11. sw.WriteLine(sb.ToString)
    12. sb.Clear()
    13. Next
    14. End Using
    15. End Using
    16. End Sub
    17. Private Function LoadMultiArray2(filename As String) As String(,)
    18. If Not File.Exists(filename) Then Return Nothing
    19. Using fs = New FileStream(filename, FileMode.Open)
    20. Using sr = New StreamReader(fs)
    21. Dim index = 0
    22. Dim size = Convert.ToInt32(sr.ReadLine)
    23. Dim length = Convert.ToInt32(sr.ReadLine)
    24. Dim result = New String(size - 1, length - 1) {}
    25. While Not sr.EndOfStream
    26. Dim line = sr.ReadLine
    27. For i = 0 To length - 1
    28. result(index, i) = line(i)
    29. Next
    30. index += 1
    31. End While
    32. Return result
    33. End Using
    34. End Using
    35. End Function
    36. Private Sub SaveSource2(filename As String, source As String())
    37. Using fs = New FileStream(filename, FileMode.Create)
    38. Using sw = New StreamWriter(fs)
    39. sw.WriteLine(source.Length)
    40. For Each s In source
    41. sw.WriteLine(s)
    42. Next
    43. End Using
    44. End Using
    45. End Sub
    46. Private Function LoadStringArray2(filename As String) As String()
    47. If Not File.Exists(filename) Then Return Nothing
    48. Using fs = New FileStream(filename, FileMode.Open)
    49. Using sr = New StreamReader(fs)
    50. Dim size = Convert.ToInt32(sr.ReadLine)
    51. Dim result = New String(size - 1) {}
    52. For i = 0 To result.Length - 1
    53. result(i) = sr.ReadLine
    54. Next
    55. Return result
    56. End Using
    57. End Using
    58. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „exc-jdbi“ ()

    Nur kurz zwei Sachen
    Es muss nicht als .txt gespeichert werden. Kann auch ein obskures Format sein.
    Wichtig ist nur das ich die Daten nach dem lesen wieder so im String Array habe wie sie vorher waren.
    Der Pfad war nur auf die schnelle für mein Gedanken.
    In wirklichkeit werden die Daten nie auf C landen und der Dateiname wird auch ein anderer sein und wie der Pfad nacher im Programm steht ist auch noch unbekannt.

    Für alles andere brauche ich etwas Zeit. Jetzt muß ich aber erstmal arbeiten.

    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!