Fortlaufende Nummerierung

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Fortlaufende Nummerierung

    Moin,
    bin ein newbi und komme nicht mehr weiter.
    Ich schreibe gerade ein Prog. (VB-Konsolenanwendung) für eine CD sammlung.
    Möchte gerne das die Nummerierung der CDs automatisch erfolgt, heiß es soll die Datei öffnen die letzte Nummer heraussuchen und um eins inc.

    Die Nr Vergabe soll in Lin 23 erfolgen


    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Console, System.IO
    4. Module Module1
    6. 'Die Dateinamen als Konstanten festlegen:
    7. Const CDsFile As String = "CDs.data"
    8. Const Interpreten As String = "Interpreten.dat"
    11. Structure TCD
    12. Dim Interpret_ID As Integer
    13. Dim Titel As String
    14. Dim Track_Anzahl As Integer
    15. End Structure
    17. Structure TInterpreten
    18. Dim Interpret_ID As Integer
    19. Dim Name As String
    20. End Structure
    22. 'Funktion zur Automatischen vergabe von Interpreten_ID.
    23. Function InterpretIDVergeben() As List(Of TCD)
    24. Dim fs As New IO.FileStream(CDsFile, IO.FileMode.OpenOrCreate)
    25. Dim CDsDatei As New IO.BinaryReader(fs)
    26. Dim StrucTemp As New TCD
    27. Dim ListTemp As New List(Of TCD)
    29. ListTemp.Clear()
    31. While CDsDatei.PeekChar > -1
    32. StrucTemp.Interpret_ID = CDsDatei.Read
    34. WriteLine(StrucTemp.Interpret_ID)
    35. ListTemp.Add(StrucTemp)
    36. End While
    38. CDsDatei.Close()
    39. fs.Close()
    40. fs.Dispose()
    42. 'Return (InterpretID)
    43. End Function
    45. 'Procedure zum Schreiben der CDListe in die Datei
    46. Sub CDListeToFile(ByVal CDListe As List(Of TCD))
    48. Dim fs As New IO.FileStream(CDsFile, IO.FileMode.OpenOrCreate)
    49. Dim CDsDatei As New IO.BinaryWriter(fs)
    50. Dim I As Integer
    52. For I = 0 To CDListe.Count - 1
    53. Try
    54. fs.Seek(0, SeekOrigin.End)
    55. CDsDatei.Write(CDListe(I).Interpret_ID)
    56. CDsDatei.Write(CDListe(I).Titel)
    57. CDsDatei.Write(CDListe(I).Track_Anzahl)
    58. Catch ex As Exception
    59. WriteLine("Fehler: " & ex.Message)
    60. CDsDatei.Close()
    61. End Try
    62. Next
    63. CDsDatei.Close()
    64. fs.Close()
    65. fs.Dispose()
    66. End Sub
    68. 'Procedure, weelche die Datei CDs ausliest und in der Konsole ausgibt
    69. Sub CDsAuslesen()
    70. Dim fs As New IO.FileStream(CDsFile, IO.FileMode.Open)
    71. Dim CDsDatei As New IO.BinaryReader(fs)
    72. Dim TestListe As TCD
    74. While CDsDatei.PeekChar <> -1
    75. TestListe.Interpret_ID = CDsDatei.ReadInt32()
    76. WriteLine(TestListe.Interpret_ID)
    77. TestListe.Titel = CDsDatei.ReadString()
    78. WriteLine(TestListe.Titel)
    79. TestListe.Track_Anzahl = CDsDatei.ReadInt32()
    80. WriteLine(TestListe.Track_Anzahl)
    81. WriteLine()
    82. End While
    83. CDsDatei.Close()
    84. fs.Close()
    85. fs.Dispose()
    86. End Sub
    88. Sub Main()
    89. Dim CDsListe As New List(Of TCD)
    90. Dim StrucCD As TCD
    91. Dim Interpret_ID As Integer
    92. Dim Entscheidung As String
    94. Dim templist As List(Of TCD)
    95. 'Interpret_ID = 0
    97. 'Hier werden die CD Daten eingelesen
    98. Do
    100. templist = InterpretIDVergeben()
    102. WriteLine()
    103. Write("Titel eingeben: ")
    104. StrucCD.Titel = ReadLine()
    106. WriteLine()
    107. Write("Track-Anzahl eingeben: ")
    108. StrucCD.Track_Anzahl = CInt(ReadLine())
    110. WriteLine()
    111. Write("Noch eine CD zur Liste hinzufügen (J/N)? ")
    112. Entscheidung = (ReadLine())
    114. CDsListe.Add(StrucCD)
    116. Loop Until (Entscheidung Like ("N") Or Entscheidung Like ("n"))
    120. CDListeToFile(CDsListe)
    122. CDsAuslesen()
    123. ReadLine()
    125. End Sub
    128. End Module

    Function InterpretIDVergeben() As List(Of TCD)

    Diese Methode soll die aktuelle InterpretID (also die alte + 1) zurückgeben, richtig (Zeile 23)? Dann müsste sie so heißen:

    Function InterpretIDVergeben() As integer

    und zurück gibst du

    return (ListTemp.count+1)

    Das sollte dann funktionieren - sofern das dein einziges Problem war. Für einen newbi aber schon eine beachtliche Leistung! Allerdings wenig OOP programmiert - wenn es nicht mehr werden soll reicht das, aber mit einem Klassendesign (Klasse ungleich Structure) hättest du vieeeeeel mehr Möglichkeiten!

    Edit: Habe mal wieder selbst gefailt. Die List(of TCD) brauchst du sicher für weiteren Programmcode. Also alles so lassen wie es ist und einfach

    VB.NET-Quellcode

    1. dim liste = InterpretIDVergeben()
    2. dim neueID = liste.count + 1


    benutzen. Würde dann in Zeile 101 gehören

    lg

    Oder Du nutzt einfach ein DataSet. Damit schlägst Du fast alle Deine Probleme auf einmal. So eine Aufgabenstellung wie Deine schreit nach DataSet und DataBinding.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @ all, Danke für die Tipps.
    Mir ist bewusst das dass Prog mit OOP "mächtiger" und anschaulicher ist, aber so ist nun mal die Aufgabe.

    Ein paar Fehler habe ich noch.

    VB.NET-Quellcode

    1. Return(ListTemp.Count+1)

    kommt der Fehler
    Der Wert vom Typ "Integer" kann nicht in "System.Collections.Generic.List(Of ConsoleApplication1.Module1.TCD)" konvertiert

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

    Die Funktion soll die Nummer_ID, beim Anlegen einer neuen CD automatisch vergeben.
    Heißt die CDs.data soll durchlaufen werden und die letzte Nummer vom Interpret_ID herausgesucht werden und die dann um eins erhöhen.

    Bsp.
    Anlegen einer neuen CD.
    Interpret_ID wird automatisch beim Start vergeben.
    Titel und Track Anzahl wird eingegeben.

    Wobei, berechnet nicht Count die Anzahl?

    Du liest die Datei aus und erhälst eine Liste (=> List(of TCD) ).

    mit liste.count fragst du ab, wieviele Einträge die Liste hat (=> Anzahl der TCD's).
    Willst du die zuletzt gelesene TCD haben, dann schreibe folgendes:

    dim letzteTCD as TCD = liste.last

    nun willst du eine neue (um eins erhöhte ID erzeugen), also schreibst du:

    dim neueID as integer = letzteTCD.Interpret_ID + 1

    Allerdings wird sich das nicht sofort in dein Programm einbringen lassen, z.B. macht es keinen Sinn wie in Zeile 100 immer wieder die Datei auszulesen während vermutlich schon wieder 20 neue CDs der anderen Liste hinzugefügt wurden. Eine ID wäre so nicht sehr aussagekräftig, da sie immer durch veraltete Informationen erzeugt wird.
    Achso: OOP-Programmieren und Konsolenprogramm stehen nicht auf dem Kriegsfuß. Erstell dir ein anständiges Klassendesign (Klassen, nicht Structures - es sei denn, du weißt genau was du tust) und steuer dieses mit dem Konsolenprogramm an.
    Von DataSets habe ich keine Ahnung aber wenn ich sowas machen müsste wäre es wohl die Wahl Nr. 1 xD