MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Studio .NET (alle Produkte: C#, VB.NET etc.)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 02.02.2018, 08:49   #1
Progi
Neuer Benutzer
Neuer Benutzer
Frage VB - Auslesen von Texten aus einer Datei

Hallo zusammen

Habe vor einer Ewigkeit einmal folgender Code geschrieben. Mit diesem Code lese ich Texte aus einer Datei aus und schreibe diese in Textboxen.

Die Textdatei ist folgend aufgebaut:
(Immer ein Titel und darunter ein Text)

[Titel 1]
Text 1

[Titel 2]
Text 2

Hier mein Code:

Code:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim objStreamReader As StreamReader

        Dim sZeile As String
        Dim sName As String
        Dim sWert As String

        objStreamReader = New StreamReader("Texte.ini")

        sName = ""
        sWert = ""

        Do While objStreamReader.EndOfStream() = False

            'Lese der nächsten Zeile.
            sZeile = objStreamReader.ReadLine
            'Überspringe Leerzeilen
            If sZeile.Length() <> 0 Then
                'Name
                If sZeile.StartsWith("[") = True And sZeile.EndsWith("]") = True Then
                    sName = sZeile
                Else
                    sWert = sZeile
                End If
                'Ist Name und Wert komplet -> Wert in Form abfüllen
                If sName.Length() <> 0 And sWert.Length() <> 0 Then
                    If sName = "[Titel 1]" Then
                        TextBox1.Text = sWert
                    End If
                    If sName = "[Titel 2]" Then
                        TextBox2.Text = sWert
                    End If
                    sName = ""
                    sWert = ""
                End If
            End If
        Loop
        'Close the file.
        objStreamReader.Close()
    End Sub
Nun zu meiner Frage:

Neu möchte ich das Texte.ini File folgend erweitern:

[Titel 1]
Text 1
Text Neu 1

[Titel 2]
Text 2
Text Neu 2

Ich möchte also einen weiteren Text auslesen und dies beim Teil "If sName = "[Titel 1]" Then" dann in eine weiter Textbox einlesen (also Text Neu 1 z.B. in eine TextBox3).
Wie baue ich dies nun ein? Da komme ich nicht dahinter.
Vielen Dank für die Hilfestellung.
Progi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.02.2018, 20:21   #2
stendate
MOF User
MOF User
Standard

Hallo,

das geht ganz gut mit einer Zählervariablen:

Code:

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim objStreamReader As StreamReader

        Dim sZeile As String = ""
        Dim sName As String = ""
        Dim sWert1 As String = ""
        Dim sWert2 As String = ""

        objStreamReader = New StreamReader("Texte.ini")

        Dim nPos As Integer = 0
        Do While objStreamReader.EndOfStream() = False

            sZeile = objStreamReader.ReadLine

            If sZeile.Length() <> 0 Then
                'Name
                If sZeile.StartsWith("[") And sZeile.EndsWith("]") Then
                    nPos = 0
                    sName = ""
                    sWert1 = ""
                    sWert2 = ""
                    sName = sZeile

                Else

                    nPos += 1

                    If nPos = 1 Then
                        sWert1 = sZeile
                    End If

                    If nPos = 2 Then
                        sWert2 = sZeile
                    End If
                End If

                If nPos = 2 Then
                    If sName = "[Titel 1]" Then
                        TextBox1.Text = sWert1
                        TextBox11.Text = sWert2
                    End If
                    If sName = "[Titel 2]" Then
                        TextBox2.Text = sWert1
                        TextBox22.Text = sWert2
                    End If

                End If
            End If
        Loop
        'Close the file.
        objStreamReader.Close()
    End Sub
stendate ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:59 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.