Nach trennungszeichen auf die danchfolgenden textstücke zugreifen

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Duisburger.

    Nach trennungszeichen auf die danchfolgenden textstücke zugreifen

    Hallo zusammen ich habe ein Problem ich schreibe gerade ein Quiz, dabei greife ich die fragen aus einer txt datein auf ( je 1 datein für die fragen, antwort a,b,c und d) ich trenn diese in der txt datei jeweils mit einem komma. Jetzt möchte ich jedoch bei drücken auf den weiter button die zweite, dritte u.s.w. antwort für a,b,c,d oder frage haben dazu muss ich das erste trennungszeichen überspringen und bis zum nächsten trennungszeichen mir das kopieren lassen wie funktioniert das????

    Viiiiieeeelllleeenn dank im vorraus!!

    Wieso im Offtopic? Das doch normal VB.

    Ansonsten wenn du splittest dann nutzte einfaches Array

    Visual Basic-Quellcode

    1. Dim Zeile As String = "Wann war der 1 Weltkrieg?,1910,1914,1907,1923"
    3. Dim f As String() = Frage.Split(","c)
    5. Dim Frage As String = f(0) ' im ersten Element ist nun die Frage
    6. Dim Antwort1 As String = f(1)
    7. Dim Antwort2 As String = f(2)
    8. Dim Antwort3 As String = f(3)
    9. Dim Antwort4 As String = f(4)

    Danke für deine Mühe aber ich meinte dasss so

    Public Class QuizProjekt
    Dim i As Integer 'Nummer der Frage
    Dim zeilen(0 To 20) As String
    Dim Quizfragen As String = "F:\Fragen.txt"
    Dim AntA As String = "F:\Antworten A.txt"
    Dim AntB As String = "F:\Antworten B.txt"
    Dim AntC As String = "F:\Antworten C.txt"
    Dim AntD As String = "F:\Antworten D.txt"

    Private Function spiel()
    Dim zeile As String
    Dim daten As Microsoft.VisualBasic.FileIO.TextFieldParser

    'fragen
    daten = My.Computer.FileSystem.OpenTextFieldParser(Quizfragen)
    daten.SetDelimiters(",")
    Using FileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("F:\Fragen.txt")
    FileReader.SetDelimiters(vbTab)
    End Using
    zeile = daten.ReadLine()
    lb_frage.Items.Add(zeile)

    'antwort A
    daten = My.Computer.FileSystem.OpenTextFieldParser(AntA)
    daten.SetDelimiters(",")
    Using FileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("F:\Antworten A.txt")
    FileReader.SetDelimiters(vbTab)
    End Using
    zeile = daten.ReadLine()
    lb_a.Items.Add(zeile)

    'Antwort B
    daten = My.Computer.FileSystem.OpenTextFieldParser(AntB)
    daten.SetDelimiters(",")
    Using FileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("F:\Antworten B.txt")
    FileReader.SetDelimiters(vbTab)
    End Using
    i = 1
    zeile = daten.ReadLine()
    lb_b.Items.Add(zeile)

    'Antwort C
    daten = My.Computer.FileSystem.OpenTextFieldParser(AntC)
    daten.SetDelimiters(",")
    Using FileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("F:\Antworten C.txt")
    FileReader.SetDelimiters(vbTab)
    End Using
    i = 1
    zeile = daten.ReadLine()
    lb_c.Items.Add(zeile)

    'Antwort D
    daten = My.Computer.FileSystem.OpenTextFieldParser(AntD)
    daten.SetDelimiters(",")
    Using FileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("F:\Antworten D.txt")
    FileReader.SetDelimiters(vbTab)
    End Using
    i = 1
    zeile = daten.ReadLine()
    lb_d.Items.Add(zeile)
    daten.Close()

    End Function

    Private Sub pb_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_start.Click
    i = 1
    Call spiel()
    End Sub

    Private Sub pb_weiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_weiter.Click
    i = i + 1
    Call spiel()
    End Sub
    End Class


    Ich muss jetzt den weiter button programmieren dazu brauche ich den code( nach dem ersten trenn zeichen) !!!

Facebook
Telefonspende