Bestimmte Zeile der TXT lesen und in Labels anzeigen

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von Kasi.

    Bestimmte Zeile der TXT lesen und in Labels anzeigen

    Hey zusammen

    Habe da mal wieder ein Frage.

    Ich habe eine *.txt in der zeilenweise eine Nummer steht und daneben ein Name sowie eine Anschrift, getrennt durch ein Leerzeichen
    Über Eingabe in einer Textbox wird geprüft ob diese Nummer in der *.txt vorhanden ist, dies mache ich so.

    Quellcode

    1. Dim txtdatei As String = IO.File.ReadAllText("DATEI.txt")
    2. If txtdatei.Contains(TextBox1.Text) Then


    Nun möchte ich das die Zeile, welche übereinstimmt mit der Eingabe in der Textbox auf drei Labels aufgeteilt wird, sprich Nummer, Name, Anschrift.

    Wer kann mir helfen? Habe da leichte Anlaufschwierigkeiten.

    Danke Vorab

    Otti schrieb:

    VB.NET-Quellcode

    1. Dim txtdatei As String = IO.File.ReadAllText("DATEI.txt")
    Wenn Du den Text zeilenweise einliest, sollte es klappen. allerdings musst Du da durch die Zeilen iterieren:

    VB.NET-Quellcode

    1. Dim lines As String() = IO.File.ReadAllLines("DATEI.txt")

    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

    Hey, kann dir glaub ich nicht richtig folgen.
    Habe es nun mal so versucht

    Quellcode

    1. ​For Each Zeile As String In System.IO.File.ReadAllLines("DATEI.txt")
    2. Dim Data() As String = Zeile.Split(" ")
    3. Dim Nummer As String = Data(0)
    4. Dim Name As String = Data(1)
    5. kartenummer.Text = Nummer
    6. Vorname.Text = Name
    7. Next


    allerdings wird mir immer die letzte Zeile aus der *.txt angezeigt.

    Was mach ich falsch?

    Ja sicher, Deine Bedingung aus Post#1 fehlt. Außerdem gehst Du nun alle Zeilen durch. Ohne Schleifenabbruch. Dadurch werden mit jedem Schleifendurchgang die Label-Inhalte überschrieben. Und am Ende ist eben der letzte Dateieintrag, der überig bleibt, weil dessen Daten in die Labels geschrieben werden und nicht mehr von anderen Daten quasi überschrieben wird.
    Was ist jetzt Dein Auffindkriterium? Schließlich können mehrere Personen den gleichen Namen haben (Hans Meier)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Otti schrieb:

    Was mach ich falsch?
    Du weißt nicht, was Dein Code macht, und Du bist nicht bereit, den Fehler selbst zu finden.
    Fang an, Deinen Code zu debuggen:
    Debuggen, Fehler finden und beseitigen
    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!

    Nochemal:

    VaporiZed schrieb:

    Deine Bedingung aus Post#1 fehlt. Außerdem gehst Du nun alle Zeilen durch. Ohne Schleifenabbruch.
    In Post#3 ist keinerlei Abbruchbedingung (If ... Then Exit For) -> Code macht nicht, was Du willst.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Otti Offensichtlich bist Du zu faul, Deine Fehler selbst zu finden und lässt die Mitglieder vom Forum Deine Arbeit machen. :thumbdown:
    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!

    ch habe eine *.txt in der zeilenweise eine Nummer steht und daneben ein Name sowie eine Anschrift, getrennt durch ein Leerzeichen
    Über Eingabe in einer Textbox wird geprüft ob diese Nummer in der *.txt vorhanden ist, dies mache ich so.


    das hast du nicht zu ende gedacht
    zum Beispiel du suchst nach der Zahl 63 die am Anfang steht
    was machst du aber wenn in einer anderen Zeile innerhalb der Anschrift
    zum Beispiel.... Am Donnerweg 63 ...steht

    weil du Contains verwendest..

    VB.NET-Quellcode

    1. If txtdatei.Contains(TextBox1.Text) Then

    wird das nicht funktionieren

    Hallo zusammen

    Habe es nun so und funktioniert.

    Quellcode

    1. ​Dim Zeile As String = 0
    2. For Each Line As String In IO.File.ReadAllLines("DATEI.txt")
    3. If Line.Contains(TextBox1.Text) Then
    4. Dim parts() As String = Line.Split(" "c)
    5. Label1.Text = parts(0)
    6. Label2.Text = parts(1)
    7. Label3.Text = Zeile 'steht in Zeile
    8. End If
    9. Zeile += 1
    10. Next

    Kapier ich 3fach nicht.
    Statt wieder alle Zeilen durchzugehen, wäre es effizienter, vor dem End If zu schreiben: Exit For
    Warum verwendest Du ein For Each, wenn Du die Zeilen mitzählst? Dafür gibt es die normale For-Schleife.
    Warum zählst Du die Zeilen überhaupt mit? Laut Deiner Beschreibung ist die Zeilennummer am Anfang einer Zeile bereits in der Datei vorhanden.

    btw: bitte korrekte VB.NET-CodeTags verwenden!
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Otti schrieb:

    If Line.Contains(TextBox1.Text) Then


    Du prüfst hier auch ob das was in der Textbox steht auch nur darin enthalten ist was nicht heißt das es der ANFANG der Zeile ist.
    Du schreibst du gibst dort eine Nummer ein und checkst dann ob die in der Datei ist WAS aber wenn du 6 eingibst für die 6.Zeile
    aber in der Anschrift der Zeile 3 die Hausnummer 26 steht dann würde er dir hier TRUE zurück geben obwohl die Zeile 6 gar nicht vorhanden ist.

    Was passiert denn dann?
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    Otti schrieb:

    Dim Zeile As String = 0
    Das tut richtig weh.
    Option Strict On!

    VB.NET-Quellcode

    1. Dim Zeile As Integer = 0
    2. For Each Line As String In IO.File.ReadAllLines("DATEI.txt")
    3. Zeile += 1
    4. If Line.StartsWith(TextBox1.Text & " ") Then
    5. Dim parts() As String = Line.Split(" "c)
    6. Label1.Text = parts(0)
    7. Label2.Text = parts(1)
    8. Label3.Text = Zeile.ToString() 'steht in Zeile
    9. Exit For
    10. End If
    11. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    petaod schrieb:

    Das tut richtig weh.
    Ja.
    Der @Otti hat ja erst 270 Posts im Forum, da isser bei Strict On noch nicht vorbeigekommen. :D
    Visual Studio - Empfohlene Einstellungen
    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!

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

    Hi Otti,

    (jetzt ist es doch eher eine "fertige" Lösung geworden und kein reiner Hinweis // ich denke Du kannst von meinem Beitrag etwas mit nehmen wenn Du dich etwas damit auseinandersetzt)

    Ich hab den Thread nicht wirklich durchgelesen, aber im Moment beschäftige ich mich auch damit Dateien in mein Programm einzulesen und hab dein Post als mein Training gesehen ;)
    Die Ausgangslage mit "Nummer Name Adresse" hab ich in "Nummer;Name;Adresse" umgeändert, ich weiß nicht wie das sonst gehen soll, da bei einer echten Adresse ja auch Leerzeichen drin sind??

    Auf der einen Seite ist mein Ansatz Overkill auf der anderen Seite noch viel zu wenig strikt was Fehlererkennung anbelangt. Auch der Einsatz von einem KlassenModel ist natürlich nicht nötig, aber auf der anderen Seite ist das ja gerade das was VB / C# etc. ausmacht.
    Ich hoffe, dass so zu sagen der Denkanstoß ist in die Objektorientierung einzusteigen.

    Winforms Project mit 1x Txtbx 1xButton 1xRichTextbx 3xLable (Code in Forms und eine Klasse MitgliedModel)


    Form Code (Achtung C#):
    Spoiler anzeigen
    ​

    C#-Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.ComponentModel;
    4. using System.Data;
    5. using System.Drawing;
    6. using System.IO;
    7. using System.Linq;
    8. using System.Text;
    9. using System.Threading.Tasks;
    10. using System.Windows.Forms;
    12. namespace WinForms_DeserializeTxTFile
    13. {
    14. public partial class Form1 : Form
    15. {
    16. readonly string[] Lines;
    17. List<MitgliedModel> LstMitglieder = new List<MitgliedModel>();
    19. public Form1()
    20. {
    21. InitializeComponent();
    23. ResetLables();
    25. //versuch die Datei VBParadis.txt zu laden // im selben Verzeichnis wie das Programm
    26. try
    27. {
    28. Lines = File.ReadAllLines(@"VBParadis.txt");
    29. foreach (var line in Lines)
    30. {
    31. //hier Separator eintragen im Moment "1;Meier;LangeStr. 45"
    32. var lineSingleWord = line.Split(';');
    33. MitgliedModel mitgliedModel = new MitgliedModel();
    35. if (lineSingleWord.Length == 3)
    36. {
    37. //Achtung falls keine Zahl als an erster Stelle steht -> Exception
    38. mitgliedModel.Nr = Int32.Parse(lineSingleWord[0]);
    39. mitgliedModel.Name = lineSingleWord[1];
    40. mitgliedModel.Adresse = lineSingleWord[2];
    41. LstMitglieder.Add(mitgliedModel);
    42. }
    43. else
    44. {
    45. MessageBox.Show("Zeile beinhaltet fehlerhafte Einträge!");
    46. }
    47. }
    48. }
    49. catch (Exception)
    50. {
    51. MessageBox.Show("Fehler beim Laden der Txt Datei!");
    52. }
    54. foreach (var mitglied in LstMitglieder)
    55. {
    56. RtxbsShowTxt.Text += $"{mitglied.Nr}\t{mitglied.Name}\n\t{mitglied.Adresse}\n\n";
    57. }
    58. }
    60. private void BtnStartSuche_Click(object sender, EventArgs e)
    61. {
    62. ResetLables();
    64. try
    65. {
    66. Int32.Parse(TxbxEingabe.Text);
    67. }
    68. catch (Exception)
    69. {
    70. MessageBox.Show("Keine Zahl eingetippt?");
    71. TxbxEingabe.Clear();
    72. return;
    73. }
    75. foreach (var mitglied in LstMitglieder)
    76. {
    77. if (mitglied.Nr == Int32.Parse(TxbxEingabe.Text))
    78. {
    79. LbNr.Text = mitglied.Nr.ToString();
    80. LbName.Text = mitglied.Name;
    81. LbAdresse.Text = mitglied.Adresse;
    82. }
    83. }
    84. }
    86. private void ResetLables()
    87. {
    88. //setz die Lables auf Ausgangsstellung --
    89. LbNr.Text = "--";
    90. LbName.Text = "--";
    91. LbAdresse.Text = "--";
    92. }
    93. }
    94. }​


    Code der Klasse (C#):
    Spoiler anzeigen
    ​

    C#-Quellcode

    1. ​using System;
    2. using System.Collections.Generic;
    3. using System.Linq;
    4. using System.Text;
    5. using System.Threading.Tasks;
    7. namespace WinForms_DeserializeTxTFile
    8. {
    9. public class MitgliedModel
    10. {
    11. public int Nr { get; set; }
    12. public string Name { get; set; }
    13. public string Adresse { get; set; }
    14. }
    15. }



    Jetzt nochmal als VB Code ist jedoch nur mit converter.telerik.com konvertiert.

    Code Forms in VB:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.ComponentModel
    4. Imports System.Data
    5. Imports System.Drawing
    6. Imports System.IO
    7. Imports System.Linq
    8. Imports System.Text
    9. Imports System.Threading.Tasks
    10. Imports System.Windows.Forms
    12. Namespace WinForms_DeserializeTxTFile
    13. Public Partial Class Form1
    14. Inherits Form
    16. ReadOnly Lines As String()
    17. Private LstMitglieder As List(Of MitgliedModel) = New List(Of MitgliedModel)()
    19. Public Sub New()
    20. InitializeComponent()
    21. ResetLables()
    23. Try
    24. Lines = File.ReadAllLines("VBParadis.txt")
    26. For Each line In Lines
    27. Dim lineSingleWord = line.Split(";"c)
    28. Dim mitgliedModel As MitgliedModel = New MitgliedModel()
    30. If lineSingleWord.Length = 3 Then
    31. mitgliedModel.Nr = Int32.Parse(lineSingleWord(0))
    32. mitgliedModel.Name = lineSingleWord(1)
    33. mitgliedModel.Adresse = lineSingleWord(2)
    34. LstMitglieder.Add(mitgliedModel)
    35. Else
    36. MessageBox.Show("Zeile beinhaltet fehlerhafte Einträge!")
    37. End If
    38. Next
    40. Catch __unusedException1__ As Exception
    41. MessageBox.Show("Fehler beim Laden der Txt Datei!")
    42. End Try
    44. For Each mitglied In LstMitglieder
    45. RtxbsShowTxt.Text += $"{mitglied.Nr}\t{mitglied.Name}\n\t{mitglied.Adresse}\n\n"
    46. Next
    47. End Sub
    49. Private Sub BtnStartSuche_Click(ByVal sender As Object, ByVal e As EventArgs)
    50. ResetLables()
    52. Try
    53. Int32.Parse(TxbxEingabe.Text)
    54. Catch __unusedException1__ As Exception
    55. MessageBox.Show("Keine Zahl eingetippt?")
    56. TxbxEingabe.Clear()
    57. Return
    58. End Try
    60. For Each mitglied In LstMitglieder
    62. If mitglied.Nr = Int32.Parse(TxbxEingabe.Text) Then
    63. LbNr.Text = mitglied.Nr.ToString()
    64. LbName.Text = mitglied.Name
    65. LbAdresse.Text = mitglied.Adresse
    66. End If
    67. Next
    68. End Sub
    70. Private Sub ResetLables()
    71. LbNr.Text = "--"
    72. LbName.Text = "--"
    73. LbAdresse.Text = "--"
    74. End Sub
    75. End Class
    76. End Namespace​


    Code der Klasse mit Namen MitgliedModel in VB:

    VB.NET-Quellcode

    1. ​Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Linq
    4. Imports System.Text
    5. Imports System.Threading.Tasks
    7. Namespace WinForms_DeserializeTxTFile
    8. Public Class MitgliedModel
    9. Public Property Nr As Integer
    10. Public Property Name As String
    11. Public Property Adresse As String
    12. End Class
    13. End Namespace



    Sieht ja jetzt doch nach "Wall of Text" aus ;) ist aber einfachste Kost :P LG Nogood
    Bilder

    • VB.jpg

      26,97 kB, 477×544, 66 mal angesehen
    codewars.com Rank: 4 kyu

    hier noch eine variante

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim Elements() As String = IO.File.ReadAllLines("E:\Searchnumbers.txt")
    3. Dim UserAddress As String = Elements.First(Function(line As String) line.StartsWith("667"))
    4. Label1.Text = UserAddress.Split(" "c)(0)
    5. Label2.Text = UserAddress.Split(" "c)(1)
    6. Label3.Text = UserAddress.Split(" "c)(2)
    7. End Sub


    aber wie prüfst du ob eine Nummer schon vorhanden ist, User die neue Datensätze
    eingeben sollten eine Meldung bekommen das Nummer '667' schon angelegt ist.

    selbst mit EXIT FOR oder mit meiner Anwesiung oben wird ja immer nur der 'erste Fund' gemeldet

    @Kasi Hier noch eine Variante mit nur einem Split:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim Elements() As String = IO.File.ReadAllLines("E:\Searchnumbers.txt")
    3. Dim UserAddress As String = Elements.First(Function(line As String) line.StartsWith("667"))
    4. Dim parts As String() = UserAddress.Split(" "c)
    5. Label1.Text = parts(0)
    6. Label2.Text = parts(1)
    7. Label3.Text = parts(2)
    8. End Sub
    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!

    Ich glaube, wir sollten uns nicht länger um saubere oder elegante Lösungen bemühen.
    Der TE schrieb letzten Sonntag

    Otti schrieb:

    Habe es nun so und funktioniert.
    und dabei scheint er es wohl belassen zu wollen.
    Ich für meinen Teil kann damit leben.
    Er programmiert ja nicht für mich.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Kasi schrieb:

    aber auch die Variante prüft nicht
    Hat sie auch nicht vor.
    Ich gab Dir lediglich einen Clean-Code-Tipp.
    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!