VB.NET RICHTEXTBOX Zeilenumbruch

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Kasi.

    VB.NET RICHTEXTBOX Zeilenumbruch

    Meine RTB hat eine feste breite von 39.
    Wenn ich die Box Fülle macht diese einen Zeilenumbruch (ohne LF).
    Dies ist alles so gewollt. (Siehe Bild)

    Bei der Weiterverarbeitung darf man aber pro Zeile die 39 Zeichen nicht überschreiten, deshalb muss ich einen LF noch einfügen.
    Ich habe einen harten LF schon gebaut (Siehe unten). Das Problem ist das ich mitten im Wort trenne nach 39 Zeichen und nicht das ganze Wort so wie in RTB Box behält. Ich möchte das so wie in der RTB haben."

    VB.NET-Quellcode

    1. Dim zeile0 As String = rt_nachricht.Lines(0)
    2. MsgBox(zeile0)



    LF nach 39 Zeichen

    VB.NET-Quellcode

    1. Dim txt As String = rt_nachricht.Text
    2. Dim zeichenanzahl As Integer = txt.Length - 1
    3. Dim y As Integer = 39
    5. 'nach 39 Zeichen LF setzten
    8. For i = 0 To zeichenanzahl
    9. If i = y Then
    10. txt = txt.Insert(y, Environment.NewLine)
    11. y += 39
    12. End If
    13. Next
    14. rt_nachricht.Text = txt


    Ich bekomme es nicht hin und würde Hilfe benötigen, wie man so etwas bewerkstelligt.
    Bilder

    • 26122020.PNG

      8,39 kB, 424×409, 53 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „jnpanzer“ ()

    Ich verstehe nicht. Ich habe mir eine RTB auf's Form gehauen, den Text etwas erweitert und dann den gezeigten Code ausgeführt. Er schneidet nach genau 39 Zeichen. Auch mit dem Originaltext schneidet er nach genau 39 Zeichen.

    btw: Was genau heißt:

    jnpanzer schrieb:

    Das Problem ist das er mitten im Wort trennt nicht nach 39 Zeichen.
    Wenn nun am Ende ein sehr langes Wort auftritt, was soll dann nicht geschehen? Dass das Wort zerrissen wird oder dass die 39 Zeichen pro Zeile nicht eingehalten werden? Das geht nicht aus der von mir zitierten Problembeschreibung hervor.
    Bilder

    • RTB1 davor.png

      1,01 kB, 354×90, 54 mal angesehen

    • RTB1 danach.png

      1,38 kB, 365×96, 51 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    @jnpanzer Welche Properties hast Du Deiner RTB im Designer gegeben?
    Poste Deine Form und den Designer-Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @VaprioZed
    Ich hate das verkehrt formuliert danke für den Hinweis.
    Es soll natürlich heissen, "-..das er mitten im Wort Trennt nach 39 Zeichen und nicht das ganze Wort so wie in RTB Box behält. Ich möchte das so wie in der RTB haben."

    @VRodFromGermany
    Habe schon viele Variationen probiert ...

    VB.NET-Quellcode

    1. rt_nachricht.Multiline = True
    2. rt_nachricht.WordWrap = True
    3. 'rt_nachricht.RightMargin = 300
    4. rt_nachricht.AutoWordSelection = False

    Bilder

    • rt1t.PNG

      29,83 kB, 403×801, 50 mal angesehen

    • rt2PNG.PNG

      22,58 kB, 386×716, 46 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „jnpanzer“ ()

    @jnpanzer Was genau willst Du erreichen?
    Was soll dabei nicht passieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Beispieltext von bavaria-ipsum.de/ 8-)

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim TXT As String = "Bavaria ipsum dolor sit amet gscheit da Resi Obazda hawadere midananda trihöleridi dijidiholleri um Godds wujn, ma. Di i moan scho aa jo mei is des schee, Gaudi! Schmankal Brezn Schneid, sodala. Nia Freibia gar nia need obacht und Jodler eana mogsd a Bussal i moan oiwei di is. Da i hob di narrisch gean obacht do Obazda, Maibam wea nia ausgähd, kummt nia hoam i sog ja nix, i red ja bloß Freibia Milli wea nia ausgähd, kummt nia hoam."
    6. Dim zeichenanzahl As Integer = TXT.Length
    7. Dim y As Integer = 39
    8. Dim zulang As Boolean
    9. Dim p As Integer, T2 As String = ""
    11. 'nach 39 Zeichen LF setzten
    12. zulang = (zeichenanzahl > y)
    14. While zulang
    15. p = TXT.LastIndexOf(" ", y - 1)
    16. If p = 0 Then p = y
    17. T2 = T2 & TXT.Substring(0, p) & Environment.NewLine
    18. TXT = TXT.Substring(p + 1)
    19. zulang = (TXT.Length > y)
    20. End While
    22. TXT = T2 & TXT : T2 = ""
    24. Debug.Print(TXT)
    26. MsgBox(TXT)
    27. End Sub
    29. End Module

    Ich möchte eine Nachricht verfassen mit der maximalen Zeilenlänge 39.
    Die line 0 z. bricht sich nach der 39 Stelle um. Aber ohne LF. Erst mit der Enter Taste habe ich einen LF, dann beginnt die line 1 usw.

    Es soll das Wort wie in der RTB wenn das Wort länger ist umgebrochen werden in die neue Zeile und dies als Line 1 erkannt werden.
    Ich setzte jetzt an der 39 Stelle in der Zeile einen LF.
    Leider mache ich auch das mitten im Text. Das gefällt mir nicht, deshalb möchte ich das ändern, so das der user seinen Text einfach schreiben kann.

    Meine idee war das ich herausbekomme wann die RTB der Line 0 umgebrochen wird und dort ein LF setze.

    Dieser Punkt läuft schon. (Ich will das auch beibehalten)
    Ich übergebe den Text Zeilenweise in eine XML Datei wo eine Zeile der RTB ein xml Tag ist.
    Es darf der Tag aber nicht länger wie 39 Zeichen sein.
    Ich lese das Zeilenweise aus der RTB Box aus.

    Da
    ich nun seit 1 Woche da dran bin und es nicht hinbekommen, mein Wissen
    reicht hier hinten und vorne nicht aus, wäre Super, wenn mir jemand
    helfen kann.

    Das VB.NET (basteln) ist eher als Hobby von mir das macht mir Spaß was zu schreiben, aber die RTB bringt mich an meine Grenzen.

    @jnpanzer Hier meine Lösung (Achtung C#; im zweiten Fenster dann die konvertierte Version nach Vb.net via telerik OnlineKonverter ohne Haftung ;))

    Ich hab meine Lösung hier "mal eben" aus Lust und Spaß erstellt. Keine Frage, dass geht bestimmt noch besser, sicherer etc.! Bitte nur als Gedankenanstoß sehen.

    Eine Anmerkung, Du sagst das Du das aus Hobby Gründen machst. Okay, ich hoffe das stimmt, da irgendwo das Wort Kassennachricht auftaucht und dazu noch der Drucker ein TM88 Bondrucker zu sein scheint (InternetSherlock Ende). Überdenk das nochmal siehe auch den TSE Thread hier im Forum oder google TSE etc. Im Bereich Kassenführung ist Schluss mit Hobby (ich meine das freundlich :thumbup: ).

    C#
    Spoiler anzeigen

    C#-Quellcode

    1. using System;
    2. using System.Text.RegularExpressions;
    3. using System.Windows.Forms;
    5. namespace WF_LineBreakAfter39Char
    6. {
    7. public partial class Form1 : Form
    8. {
    9. string InputText = "Dies ist ein Test, in der Rtxbx wird der Text eingegeben " +
    10. "und später in der Msgbx soll die Formatierung weiterhin bestehen bleiben. " +
    11. "Regeln max 39 Char pro Zeile und kein Wortumbruch!";
    12. string FormattedOutputText = "";
    14. public Form1()
    15. {
    16. InitializeComponent();
    17. CenterToParent();
    19. RtxbxShow.Text = InputText;
    20. }
    22. private void BtnMsgbx_Click(object sender, EventArgs e)
    23. {
    24. //Regex Matches findet alle Worte inkl. der Satzzeichen Sonderumlaute etc.
    25. //wie angegeben und erstellt eine Liste der Worte
    26. //Achtung! Anpassen auf Deine Bedürfnisse siehe https://regexr.com
    27. var WordList = Regex.Matches(InputText, @"[\wäöüÄÖÜß,\.;!\?@€%&\(\)]+");
    29. string ZeileMax39 = "";
    31. int i = 0;
    32. while (i < WordList.Count)
    33. {
    34. //so lange die Zeichenanzahl pro Zeile plus das "neue" Wort unter 40 Z. lang
    35. //sind addiere ein Wort dazu
    36. while (i < WordList.Count && (ZeileMax39.Length + WordList[i].Length) < 40)
    37. {
    38. //addiere Wort und füge immer ein Leerzeichen nach dem Wort an
    39. ZeileMax39 += WordList[i] + " ";
    40. i += 1;
    41. }
    42. //lösche letztes/finales Leerzeichen in der Zeile
    43. ZeileMax39 = Regex.Replace(ZeileMax39, @"\s+$", "");
    44. //füge das NewLine Zeichen hinzu
    45. FormattedOutputText += ZeileMax39 + "\n";
    46. FormattedOutputText += $"#{ZeileMax39.Length}\n";
    47. //reset auf leeren String
    48. ZeileMax39 = "";
    49. }
    51. RtxbxResult.Text += FormattedOutputText ;
    52. MessageBox.Show(FormattedOutputText);
    53. }
    54. }
    55. }


    VB.Net
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Text.RegularExpressions
    3. Imports System.Windows.Forms
    5. Namespace WF_LineBreakAfter39Char
    6. Public Partial Class Form1
    7. Inherits Form
    9. Private InputText As String = "Dies ist ein Test, in der Rtxbx wird der Text eingegeben und später in der Msgbx soll die Formatierung weiterhin bestehen bleiben. Regeln max 39 Char pro Zeile und kein Wortumbruch!"
    10. Private FormattedOutputText As String = ""
    12. Public Sub New()
    13. InitializeComponent()
    14. CenterToParent()
    15. RtxbxShow.Text = InputText
    16. End Sub
    18. Private Sub BtnMsgbx_Click(ByVal sender As Object, ByVal e As EventArgs)
    19. Dim WordList = Regex.Matches(InputText, "[\wäöüÄÖÜß,\.;!\?@€%&\(\)]+")
    20. Dim ZeileMax39 As String = ""
    21. Dim i As Integer = 0
    23. While i < WordList.Count
    25. While i < WordList.Count AndAlso (ZeileMax39.Length + WordList(i).Length) < 40
    26. ZeileMax39 += WordList(i) & " "
    27. i += 1
    28. End While
    30. ZeileMax39 = Regex.Replace(ZeileMax39, "\s+$", "")
    31. FormattedOutputText += ZeileMax39 & vbLf
    32. FormattedOutputText += $"#{ZeileMax39.Length}\n"
    33. ZeileMax39 = ""
    34. End While
    36. RtxbxResult.Text += FormattedOutputText
    37. MessageBox.Show(FormattedOutputText)
    38. End Sub
    39. End Class
    40. End Namespace


    Für Kommentare des Codes siehe bitte im C# Listing nach, die Online-Konvertierung hat die Kommentare im Vb.net Code gelöscht.

    Bilder

    • Bild_2020-12-27_111107.png

      31,27 kB, 597×441, 47 mal angesehen
    codewars.com Rank: 4 kyu

    @jnpanzer
    ich hab mal probiert die Chars mit Regex in Groups zu packen,
    wie zuverlässig das ganze ist musst du Testen

    denn Beispiel text habe ich von nogood übernommen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim txt As String = "Dies ist ein Test, in der Rtxbx wird der Text eingegeben und später in der Msgbx soll die Formatierung weiterhin bestehen bleiben. Regeln max 39 Char pro Zeile und kein Wortumbruch!"
    3. Dim groups As List(Of String) = (
    4. From m As Match In Regex.Matches(txt, "(.{0,39})(?: |$)")
    5. Select m.Value).ToList()
    6. For Each i In groups
    7. RichTextBox1.AppendText(i & vbNewLine)
    8. Next
    9. End Sub

Facebook
Telefonspende