Hi
Ich hab folgenden Code geschreiebn der aber nicht richtig funktioniert:
So wenn ich nun "SplitTextInToParts(4)" schreibe möchte ich auch das der Text in der angegebenen Textbox in 4 Teile gesplittet wird. Geht aber nicht! Entweder sind es mehr oder weniger Teile oder die Teile sind unterschiedlich lang?
Was ist falsch?
MFG
PhoenixBlaster?
Ich hab folgenden Code geschreiebn der aber nicht richtig funktioniert:
VB.NET-Quellcode
- Private Sub SplitTextInToParts(ByVal parts As Integer)
- 'Teilen
- Dim part As Integer = TextBox1.TextLength / parts
- Dim partTemp As Integer = part
- TextBox1.Text = TextBox1.Text.Insert(parts, "@")
- Do Until parts > TextBox1.TextLength
- parts += partTemp
- Try
- TextBox1.Text = TextBox1.Text.Insert(parts, "@")
- Catch ex As Exception
- Exit Do
- End Try
- Loop
- 'Auflisten
- Dim splitter As String() = TextBox1.Text.Split({"@"}, StringSplitOptions.RemoveEmptyEntries)
- For i = 0 To splitter.Count - 1
- RichTextBox1.Text += splitter(i).ToString() & vbCrlf
- Next
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- SplitTextInToParts(4)
- End Sub
So wenn ich nun "SplitTextInToParts(4)" schreibe möchte ich auch das der Text in der angegebenen Textbox in 4 Teile gesplittet wird. Geht aber nicht! Entweder sind es mehr oder weniger Teile oder die Teile sind unterschiedlich lang?
Was ist falsch?
MFG
PhoenixBlaster?