.txt Datei auslesen - Problem

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    .txt Datei auslesen - Problem

    Nabend!

    Ich bin heute mal in den Visual Basic Express 2010 Editor eingestiegen und habe schon mein erstes Problem!
    Und zwar will ich ganz simpel eine .txt Datei auslesen: Die Idee war, ein Profil zu erstellen ( Die Namen werden in der besagten .txt Datei gespeichert ), welches bei jedem Start des Programmes übernommen werden kann.

    Der Code sieht bisher wie folgt aus:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Dim Profil(5) As String
    4. Dim i As Integer
    6. FileOpen(1, "Profile.txt", OpenMode.Random)
    8. If File.Exists("Profile.txt") Then
    9. For i = 1 To 5
    10. Do
    11. Try
    12. FileGetObject(1, Profil(i), i)
    13. MsgBox(Profil(i))
    14. Exit Try
    15. Catch
    16. MsgBox("Profile.txt beschädigt")
    17. Exit Do
    18. End Try
    19. Loop
    20. Next
    21. FileClose(1)
    22. Else
    23. MsgBox("Profile.txt existiert nicht")
    24. End If
    25. FileClose(1)
    26. If Profil(1) = "" Then
    27. Bt_Profil1.Text = "Neues Profil anlegen"
    28. Else
    29. Bt_Profil1.Text = Profil(1)
    30. End If
    31. End Sub


    Die Fehlermeldungen:
    Eine Ausnahme (erste Chance) des Typs "System.Exception" ist in Microsoft.VisualBasic.dll aufgetreten.
    Eine Ausnahme (erste Chance) des Typs "System.IO.EndOfStreamException" ist in Microsoft.VisualBasic.dll aufgetreten.
    Eine Ausnahme (erste Chance) des Typs "System.IO.EndOfStreamException" ist in Microsoft.VisualBasic.dll aufgetreten.
    Eine Ausnahme (erste Chance) des Typs "System.IO.EndOfStreamException" ist in Microsoft.VisualBasic.dll aufgetreten.
    Eine Ausnahme (erste Chance) des Typs "System.IO.EndOfStreamException" ist in Microsoft.VisualBasic.dll aufgetreten.



    Was ist nun mein Fehler? Das Programm scheint wohl einen Bereich auszulesen, der in der Profile.txt nicht existiert - tut er aber! Ich habe die .txt mit 5 Zeilen gefüllt.
    Oder ist es überhaupt sinnvoll, dieses Vorhaben mit .txt Dateien durchzuführen? ( Access besitze ich leider nicht )
    Das Programm soll im Endeffekt ein kleines Kartenspiel, angelegt an Yu-Gi-Oh, sein. Von daher müsste ich im weiteren Verlaufen mehrere weitere .txt Datein / Datenbanken erstellen, bearbeiten und auslesen.

    Ich möchte Euch schon jetzt für Eure Antworten danken :thumbsup:


    Edit by Manschula: Thema verschoben

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

    Hi,

    wenn ich das richtig verstehe, willst du ganz einfach eine Textdatei auslesen.

    Ich würde das so machen:

    VB.NET-Quellcode

    1. Dim filereader As New System.IO.StreamReader("Profile.txt")
    2. Dim inhalt As String = filereader.ReadToEnd()
    3. filereader.Close()


    Damit hast du den Inhalt in der Variablen inhalt.

    Du kannst statt dem

    VB.NET-Quellcode

    1. filereader.ReadToEnd()

    auch mit

    VB.NET-Quellcode

    1. filereader.ReadLine()

    arbeiten. Dann musst du das aber in einer Schleife machen.

    Ich hoffe, ich konnte dir helfen! :)

    Viele Grüße,
    teha

    oder typisiertes Dataset.
    Das kann laden, speichern, zufügen, löschen, editieren, jeweils mit einer CodeZeile.

    Auch sind die Datensätze typisiert. Um etwa eine Option "AnzahlZuletztGeoeffneterDateien" zu implementieren mußt du nicht diesen Wert in Ini oder Xml suchen und von String nach Integer parsen (und beim Speichern zurück), sondern dein Optionen-Datensatz enthält einfach eine Property AnzahlZuletztGeoeffneterDateien As Integer.
    Die kannste lesen und schreiben, unds Dataset kannste laden und speichern als ganzes.

    Ich hab das ganze jetzt mal mit dem Tipp von teha geregelt, klappt super!

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. Dim Profil(5) As String
    4. Dim filereader As New System.IO.StreamReader("Profile.txt")
    6. Profil(1) = filereader.ReadLine()
    7. Profil(2) = filereader.ReadLine()
    8. Profil(3) = filereader.ReadLine()
    9. Profil(4) = filereader.ReadLine()
    10. Profil(5) = filereader.ReadLine()
    12. filereader.Close()
    14. Bt_Profil1.Text = Profil(1)
    15. Bt_Profil2.Text = Profil(2)
    16. Bt_Profil3.Text = Profil(3)
    17. Bt_Profil4.Text = Profil(4)
    18. Bt_Profil5.Text = Profil(5)
    20. If Bt_Profil1.Text = "" Then
    21. Bt_Profil1.Text = "Neues Profil anlegen"
    22. End If
    23. If Bt_Profil2.Text = "" Then
    24. Bt_Profil2.Text = "Neues Profil anlegen"
    25. End If
    26. If Bt_Profil3.Text = "" Then
    27. Bt_Profil3.Text = "Neues Profil anlegen"
    28. End If
    29. If Bt_Profil4.Text = "" Then
    30. Bt_Profil4.Text = "Neues Profil anlegen"
    31. End If
    32. If Bt_Profil5.Text = "" Then
    33. Bt_Profil5.Text = "Neues Profil anlegen"
    34. End If
    36. End Sub


    Da ich nun aber eine größere "Datenbank" anlegen muss, werde ich wohl auf den Tipp der anderen zurückgreifen, auch wenn ich auf diesen Gebieten garkeine Ahnung habe :D

    Aber ein dickes Danke an alle für die schnellen Antworten! :thumbsup:

    Es nützt nicht viel, wenn Du nachsiehst, ob die Datei da ist.
    Wenn sie leer ist, knallt es beim Einlesen.
    Bei einer INI-Datei (leider veraltet) gibst Du einfach den Wert vor, den Du zurückbekommen möchtest, wenn der Eintrag nicht da ist.
    Bei allen anderen musst Du etwas mehr Schmalz investieren, wenn Einträge und Inhalte fehlen.
    Vielleicht geht noch

    VB.NET-Quellcode

    1. Dim lines() As String = System.IO.File.ReadAllLines(DEINE_DATEI)
    da hast Du den gesamten Dateiinhalt zeilenweise im Feld lines.
    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