Leerzeichen entfernen bis Buchstabe

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von prophet.

    Leerzeichen entfernen bis Buchstabe

    Hallo alle zusammen,

    Ich bearbeite einen Text nach bestimmten Regex Mustern und gebe den Text dann in einer Textbox aus.

    Mein Vorgehen hierbei:
    Der Text wird als erstes in ein Array geschrieben und dann in einer schleife nach vorgegebenen Mustern bearbeitet.
    Anschließend wird der Text in der Textbox ausgegeben und sieht dann so aus.

    Nun habe ich das Problem das der Text in der Textbox in etwa so aussieht:

    Quellcode

    1. Dies ist ein Test
    3. Heutiges Datum: 04.04.12


    Wie schaffe ich es das es letztenendes so aussieht:

    Quellcode

    1. Dies ist ein Test
    2. Heutiges Datum: 04.04.12


    Entfernt werden müssten die Leerzeichen bis zum ersten Buchstaben und die unnötigen Zeilenumbrüche.

    EDIT: Das mit den leerzeichen hab ich mit Trim gelöst bekommen, aber das mit den Leeren Zeilen noch nicht :/


    Hoffe ihr könnt mir bei meiner Unwissenheit weiterhelfen :)

    Grüße
    prophet

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „prophet“ ()

    Ein einfacher Ansatz wäre:

    VB.NET-Quellcode

    1. Dim str As String = "bla bla" & Environment.NewLine & Environment.NewLine & Environment.NewLine & Environment.NewLine & Environment.NewLine & Environment.NewLine & "!!!"
    2. Dim length As Integer
    3. While length <> str.Length
    4. length = str.Length
    5. str = str.Replace(Environment.NewLine & Environment.NewLine, Environment.NewLine)
    6. End While
    7. Debug.Print(str)
    Das ist meine Signatur und sie wird wunderbar sein!

    Einfacher Ansatz II:

    VB.NET-Quellcode

    1. Dim Linien() As String = TextBox2.Lines
    2. TextBox2.Text = Nothing
    3. For Each Linie As String In Linien
    4. If Not String.IsNullOrEmpty(Linie) Then TextBox2.Text &= Linie.Trim & Environment.NewLine
    5. Next

    Gruß, Manschula