Hab es geschafft.
Wenn jemand ein Fehler aufällt der mir entgangen sein sollte bin ich dankbar wenn ihr es mir mitteilt.
VB.NET-Quellcode
- If ComboBoxEbenen.Text = "Ebene 1" Then
- Dim textboxen() As RichTextBox = {txt1, txt2, txt3, txt4, txt5, txt6}
- For Each textbox In textboxen
- Try
- If textbox.Text.Contains("Set") Then
- Dim txtneu = textbox
- Dim lines() = txtneu.Lines, PartsOfTheLine As String() = Nothing, PartToModify As String = Nothing
- For i = 0 To lines.Count - 1
- If Not String.IsNullOrEmpty(lines(i).Trim) Then
- If Not lines(i).StartsWith("Set") Then Continue For
- While lines(i).Contains(" ") Or lines(i).Contains(vbTab + vbTab)
- lines(i) = lines(i).Replace(" ", " ").Replace(vbTab, " ")
- End While
- PartsOfTheLine = lines(i).Split({" "}, StringSplitOptions.RemoveEmptyEntries)
- PartToModify = PartsOfTheLine(3)
- Dim Wert = Replace(PartsOfTheLine(3), ".", ",")
- Dim percent As Integer = CInt(txtPercent.Text)
- Dim grundwert As Integer = CInt(Wert)
- Dim ergebnis As Integer = CInt(grundwert * (percent / 100))
- Dim offset As Integer = ergebnis + grundwert
- Dim Ergebniswert As Integer = (offset)
- Dim betrag As Integer = Ergebniswert
- Dim fertiggerundet = CType(10 * Math.Round(betrag / 10, 0), String)
- Dim mitoffset As Integer = CInt((fertiggerundet))
- fertiggerundet = String.Format("{0:F1}", mitoffset)
- fertiggerundet = Replace(fertiggerundet, ",", ".")
- PartsOfTheLine(3) = fertiggerundet
- lines(i) = String.Join(" ", PartsOfTheLine)
- lines(i) = lines(i).Replace(" ", " ")
- End If
- Next
- textbox.Lines = lines
- textbox.Text = textbox.Text.TrimEnd
- Else
- Dim txtalt = textbox
- Dim linesalt() = txtalt.Lines, PartsOfTheLinealt As String() = Nothing, PartToModifyalt As String = Nothing
- For i = 0 To linesalt.Count - 1
- If Not String.IsNullOrEmpty(linesalt(i).Trim) Then
- PartsOfTheLinealt = linesalt(i).Split({" "}, StringSplitOptions.RemoveEmptyEntries)
- PartToModifyalt = PartsOfTheLinealt(1)
- Dim Wert = Replace(PartsOfTheLinealt(1), ".", ",")
- Dim percent As Integer = CInt(txtPercent.Text)
- Dim grundwert As Integer = CInt(Wert)
- Dim ergebnis As Integer = CInt(grundwert * (percent / 100))
- Dim offset As Integer = ergebnis + grundwert
- Dim Ergebniswert As Integer = (offset)
- Dim betrag As Integer = Ergebniswert
- Dim fertiggerundet = CType(10 * Math.Round(betrag / 10, 0), String)
- Dim mitoffset As Integer = CInt((fertiggerundet))
- fertiggerundet = String.Format("{0:F1}", mitoffset)
- fertiggerundet = Replace(fertiggerundet, ",", ".")
- PartsOfTheLinealt(1) = fertiggerundet
- linesalt(i) = String.Join(" ", PartsOfTheLinealt)
- End If
- Next
- textbox.Lines = linesalt
- textbox.Text = textbox.Text.TrimEnd.Replace(" ", " ")
- End If
- Catch ex As Exception
- MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler")
- End Try
- Next
- End If
Wenn jemand ein Fehler aufällt der mir entgangen sein sollte bin ich dankbar wenn ihr es mir mitteilt.