Hey Leute,
wie schon vorher gesagt kann ich kein Thema erstellen! Deshgalb schreibe ich hier weiter.
Frage:
Also ich möchte aus der RichtextBox1 heraus lesen ob sie eine zahl beinhaltet die im Array "AlleFragen" steht. Ich sontiere heraus welche es gibt und welche nicht!
Am ende des Prozesses lese ich aus welche der Zalen aus der RichtextBox nicht im Array stecken.
Ich habe mich schon mal bemüde den code zuschreibe als könntet ihr mal drüber schauen?
Hier nochmal der ganze Code
Verschoben. MfG gs93
wie schon vorher gesagt kann ich kein Thema erstellen! Deshgalb schreibe ich hier weiter.
Frage:
Also ich möchte aus der RichtextBox1 heraus lesen ob sie eine zahl beinhaltet die im Array "AlleFragen" steht. Ich sontiere heraus welche es gibt und welche nicht!
Am ende des Prozesses lese ich aus welche der Zalen aus der RichtextBox nicht im Array stecken.
Ich habe mich schon mal bemüde den code zuschreibe als könntet ihr mal drüber schauen?
VB.NET-Quellcode
- Dim War As Boolean = False
- Dim Zahl As Integer = 0
- Dim Besteht As String() = Nothing
- Dim Nichtbesteht As String() = Nothing
- Select Case Button1.Text
- Case "Start"
- If My.Settings.automatisch = True Then
- Button1.Text = "Abbruch"
- Fragestellen()
- Else
- Dim Text As String() = RichTextBox1.Text.Split(",")
- Dim erstZahl As Integer = Nothing
- If RichTextBox1.Text = "" Then
- Label1.Text = "Bitte wählen sie erst welche Fragen sie haben möchten. Es stehen " _
- + AlleFragen.Length.ToString + " zu verfügung."
- Else
- While War = False
- For Richzahlen As Integer = 0 To Text.Length 'Die Zahlenanzahl ín der RichTextBox
- For FrageZeilen As Integer = 0 To AlleFragen.Length 'Die Zeilenanzahl der gesamten Fragen
- If Text(Richzahlen) = AlleFragen(FrageZeilen) Then Besteht(Besteht.Length) = Text(Richzahlen) _
- Else If FrageZeilen = AlleFragen.Length Then Nichtbesteht(Nichtbesteht.Length) = Text(Richzahlen)
- Next
- Next
- If Nichtbesteht(0) = "" Then
- War = True
- Button1.Text = "Abbruch"
- Fragestellen()
- Else
- Dim Textlabel As String = ""
- For f As Integer = 0 To Nichtbesteht.Length - 1
- Textlabel = Textlabel + "," + Nichtbesteht(f)
- Next
- Label1.Text = Textlabel
- War = True
- End If
- End While
- End If
- End If
- Radiobutton_off()
- Return
- Case ...
- ...
Hier nochmal der ganze Code
VB.NET-Quellcode
- Dim AlleFragen() As String = IO.File.ReadAllLines("Fragen.txt")
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim War As Boolean = False
- Dim Zahl As Integer = 0
- Dim Besteht As String() = Nothing
- Dim Nichtbesteht As String() = Nothing
- Select Case Button1.Text
- Case "Start"
- If My.Settings.automatisch = True Then
- Button1.Text = "Abbruch"
- Fragestellen()
- Else
- Dim Text As String() = RichTextBox1.Text.Split(",")
- Dim erstZahl As Integer = Nothing
- If RichTextBox1.Text = "" Then
- Label1.Text = "Bitte wählen sie erst welche Fragen sie haben möchten. Es stehen " _
- + AlleFragen.Length.ToString + " zu verfügung."
- Else
- While War = False
- For Richzahlen As Integer = 0 To Text.Length 'Die Zahlenanzahl ín der RichTextBox
- For FrageZeilen As Integer = 0 To AlleFragen.Length 'Die Zeilenanzahl der gesamten Fragen
- If Text(Richzahlen) = AlleFragen(FrageZeilen) Then Besteht(Besteht.Length) = Text(Richzahlen) _
- Else If FrageZeilen = AlleFragen.Length Then Nichtbesteht(Nichtbesteht.Length) = Text(Richzahlen)
- Next
- Next
- If Nichtbesteht(0) = "" Then
- War = True
- Button1.Text = "Abbruch"
- Fragestellen()
- Else
- Dim Textlabel As String = ""
- For f As Integer = 0 To Nichtbesteht.Length - 1
- Textlabel = Textlabel + "," + Nichtbesteht(f)
- Next
- Label1.Text = Textlabel
- War = True
- End If
- End While
- End If
- End If
- Radiobutton_off()
- Return
- Case "Abbruch"
- Button1.Text = "Start"
- Radiobutton_on()
- System_desgin()
- Gesamt += 1
- Return
- Case "Fertig"
- If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False Then
- Label1.Text = "Bitte wählen sie erst eine Antwort zur Frage, bevor sie bestätigen" _
- & vbCrLf & "Die Frage kommt in " + KATakt.ToString + " Sekunden wieder"
- KAZeit = System.DateTime.Now
- KAON = True
- Return
- End If
- Button1.Text = "Weiter"
- Fragebeantworten()
- Radiobutton_on()
- Return
- Case "Weiter"
- Button1.Text = "Fertig"
- Radiobutton_off()
- Fragestellen()
- Return
- End Select
- End Sub
Verschoben. MfG gs93
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gs93“ ()