[.NET] Arrays abspeichern

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Kaptain27, 9. Mai 2009 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 9. Mai 2009
    Arrays abspeichern

    Hallo

    kann mir vielleicht mal wer erklären, wie ich ein array speichern und beim nächsten Programmstart wieder einlesen kan. Beispielsweise mit einer txt oder so.

    Hab schon bei VB Archiv geguckt aber irgendwie ist mir das zu hoch.

    Gruß Kaptain27
     
  3. 9. Mai 2009
    AW: Arrays abspeichern

    Google -> vb.net save array -> irgendwo auf der ersten seite: VB 5/6-Tipp 0474: Beliebiges Array in eine Datei speichern und einlesen - ActiveVB
    sollte auch unter .net funktionieren, musste halt weng umschreiben. Habs allerdings nicht getestet.
    //edit: Was mir einfallen würde wär bei 0 Dimensionalen String/Int arrays einfach jedes objekt einlesen und mit einem Trennzeichen welches im eigentlichen array text nicht vorkommt in einen string zu konvertieren. Den string kannst du dann ohne probleme speichern. Einlesen dann einfach per Split und deinem Trennzeichen
     
  4. 9. Mai 2009
    AW: Arrays abspeichern

    Hier mal ein vb.net link
    VB - Textdatei lesen und schreiben (String, StringArray, etc...)
     
  5. 9. Mai 2009
    AW: Arrays abspeichern

    Hey

    erstmal THX für eure Hilfe. Ich hab mir das wie folgt gedacht:

    Code:
    Private Sub cmd_einheitspeichern_Click()
Dim trainingswerte(5) As String

trainingswerte(0) = txt_datum.Text
trainingswerte(1) = txt_dauer.Text
trainingswerte(2) = cbo_sportart.Text
trainingswerte(3) = txt_durchschnittspuls.Text
trainingswerte(4) = txt_km.Text
trainingswerte(5) = txt_kmh.Text

 ' wird im "CommonDialog" auf "Abbrechen" geklickt,
 ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
 Dim F As Integer
 
 On Error Resume Next
 With CommonDialog1

 '
 ' Es soll geprüft werden, ob die Datei exestiert
 ' und ob sie überschrieben werden soll
 .Flags = cdlOFNOverwritePrompt
 
 ' Mit diesem Filter wird festgelegt, unter welchem
 ' Format eine Datei gespeichert wird.
 .Filter = "Textdateien (*.txt)|*.txt"
 
 ' Dialogfeld Speichern anzeigen
 .ShowSave
 If .FileName <> "" Then
 F = FreeFile
 Open .FileName For Output As #F
 Print #F, trainingswerte(0) & ";"
 Close #F
 End If
 End With

End Sub
    Problem ist jetzt nur wie bekomm ich die anderren Werte in die txt. Diese müssen dann auch mit einem ";" getrennt werden.

    Mfg Kaptain27
     
  6. 9. Mai 2009
    AW: Arrays abspeichern

    hab dir mal schnell 2 Funktionen gebastelt. Die Save ist getestet, die Load nicht, müsste aber klappen:
    Code:
     Private Sub SaveArray(ByVal Array As Array, ByVal File As String)
 Dim Text As String = ""
 For i As Integer = 0 To Array.GetUpperBound(0)
 If Not Text = "" Then
 Text = Text & ";" & Array(i)
 Else
 Text = Array(i)
 End If
 Next
 System.IO.File.WriteAllText(File, Text)
 End Sub
 Private Function LoadArray(ByVal File As String) As Array
 Dim Array As String()
 Dim Text As String = System.IO.File.ReadAllText(File)
 Array = Split(Text, ";")
 Return Array
 End Function
     
  7. 9. Mai 2009
    AW: Arrays abspeichern

    Hey MasterJulian

    hat mir sehr eholfen.

    BWs sind raus

    Mfg Kaptain27
     
  8. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.