textbox auslesen=> jeden 2. wert ändern=>wieder zusammenfügen

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 40 Antworten in diesem Thema. Der letzte Beitrag () ist von Gottric.

    Hab es geschafft.

    VB.NET-Quellcode

    1. If ComboBoxEbenen.Text = "Ebene 1" Then
    2. Dim textboxen() As RichTextBox = {txt1, txt2, txt3, txt4, txt5, txt6}
    3. For Each textbox In textboxen
    4. Try
    5. If textbox.Text.Contains("Set") Then
    6. Dim txtneu = textbox
    7. Dim lines() = txtneu.Lines, PartsOfTheLine As String() = Nothing, PartToModify As String = Nothing
    8. For i = 0 To lines.Count - 1
    9. If Not String.IsNullOrEmpty(lines(i).Trim) Then
    10. If Not lines(i).StartsWith("Set") Then Continue For
    11. While lines(i).Contains(" ") Or lines(i).Contains(vbTab + vbTab)
    12. lines(i) = lines(i).Replace(" ", " ").Replace(vbTab, " ")
    13. End While
    14. PartsOfTheLine = lines(i).Split({" "}, StringSplitOptions.RemoveEmptyEntries)
    15. PartToModify = PartsOfTheLine(3)
    16. Dim Wert = Replace(PartsOfTheLine(3), ".", ",")
    17. Dim percent As Integer = CInt(txtPercent.Text)
    18. Dim grundwert As Integer = CInt(Wert)
    19. Dim ergebnis As Integer = CInt(grundwert * (percent / 100))
    20. Dim offset As Integer = ergebnis + grundwert
    21. Dim Ergebniswert As Integer = (offset)
    22. Dim betrag As Integer = Ergebniswert
    23. Dim fertiggerundet = CType(10 * Math.Round(betrag / 10, 0), String)
    24. Dim mitoffset As Integer = CInt((fertiggerundet))
    25. fertiggerundet = String.Format("{0:F1}", mitoffset)
    26. fertiggerundet = Replace(fertiggerundet, ",", ".")
    27. PartsOfTheLine(3) = fertiggerundet
    28. lines(i) = String.Join(" ", PartsOfTheLine)
    29. lines(i) = lines(i).Replace(" ", " ")
    30. End If
    31. Next
    32. textbox.Lines = lines
    33. textbox.Text = textbox.Text.TrimEnd
    34. Else
    35. Dim txtalt = textbox
    36. Dim linesalt() = txtalt.Lines, PartsOfTheLinealt As String() = Nothing, PartToModifyalt As String = Nothing
    37. For i = 0 To linesalt.Count - 1
    38. If Not String.IsNullOrEmpty(linesalt(i).Trim) Then
    39. PartsOfTheLinealt = linesalt(i).Split({" "}, StringSplitOptions.RemoveEmptyEntries)
    40. PartToModifyalt = PartsOfTheLinealt(1)
    41. Dim Wert = Replace(PartsOfTheLinealt(1), ".", ",")
    42. Dim percent As Integer = CInt(txtPercent.Text)
    43. Dim grundwert As Integer = CInt(Wert)
    44. Dim ergebnis As Integer = CInt(grundwert * (percent / 100))
    45. Dim offset As Integer = ergebnis + grundwert
    46. Dim Ergebniswert As Integer = (offset)
    47. Dim betrag As Integer = Ergebniswert
    48. Dim fertiggerundet = CType(10 * Math.Round(betrag / 10, 0), String)
    49. Dim mitoffset As Integer = CInt((fertiggerundet))
    50. fertiggerundet = String.Format("{0:F1}", mitoffset)
    51. fertiggerundet = Replace(fertiggerundet, ",", ".")
    52. PartsOfTheLinealt(1) = fertiggerundet
    53. linesalt(i) = String.Join(" ", PartsOfTheLinealt)
    54. End If
    55. Next
    56. textbox.Lines = linesalt
    57. textbox.Text = textbox.Text.TrimEnd.Replace(" ", " ")
    58. End If
    59. Catch ex As Exception
    60. MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler")
    61. End Try
    62. Next
    63. End If

    Wenn jemand ein Fehler aufällt der mir entgangen sein sollte bin ich dankbar wenn ihr es mir mitteilt.