VB.NET RICHTEXTBOX Formatierung (mit Leerzeichen auffüllen)

jnpanzer · 15. Dezember 2020, 22:21

Hallo.

Ich habe ien kleines Problem wo ich nicht wirklich weiter komme.
In der RICHTEXTBOX möcht ich den Text pro Zeile zentrieren.
Leider setzt der Befehl keine Leerzeichen.

VB.NET-Quellcode

RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

Deshalb müsste ich da was selbst basteln.
Ich müsste Leerzeichen Links vom Text einfügen.

Beispiel (Sternchen Symbolisiert die Leerzeichen)

**********HELLO WORLD
******DAS MUSS JETZT ABER
************KLAPPEN

VB.NET-Quellcode

Dim xy As Integer = 0
Dim xy1 As Integer = 0
Dim EINLESE_TXT As String ""
Dim INSERT_TXT As String =""
Dim WS As String = ""
' Anzahl Zeichen in der ersten Zeile
xy = rt_nachricht.Lines(1).Length
'Anzahl der Leerzeichen berechnen Länge des Text- Zeilenlänge geteilt durch zwei
xy1 = CInt((29 - xy) / 2)
'Schleife um die Leerzeichen einzufügen
For xy1 = 1 To xy1
WS = WS & " "
Next
' Text der Zeile 1 auslesen
EINLESE_TXT = rt_nachricht.Lines(0)
' Text mit Leerzeichen zusammenfügen
INSERT_TXT = WS & "" & EINLESE_TXT
'löschem der ersten Zeile in der RTCHTEXTBOX
rt_nachricht.Text = rt_nachricht.Text.Remove(0, rt_nachricht.Lines(0).Length)
'Text wieder in die Zeile einfügen
rt_nachricht.Text = rt_nachricht.Text.Insert(0, INSERT_TXT)

Ich bekomme das hin für Zeile1 aber für die Zeile2 usw. nicht hin, oder gibt es eine elegante Lösung?

Wäre für Jede Hilfe Dankbar.

Gruß
Jürgen

VaporiZed · 15. Dezember 2020, 22:29

Nein, das klappt nicht, weil Schriftzeichenbreiten schriftartabhängig sind. Würde man die Schriftart ändern, würde ein schön* zentrierter Text unmöglich aussehen.

* Da ein Stern eine fixe Breite hat, ist auch damit ein sauberes Zentrieren gar nicht möglich.

jnpanzer · 15. Dezember 2020, 23:29

Leider ist das nicht richtig. Ich nutze eine Schriftart (z.B. Courier New) wo jede Zeichen gleich groß ist, sei es ein Komma oder ein Buchstabe.
Es hat einen Grund das ich das machen will.
Der Kassendrucker hat eine feste Breite von 29 Zeichen. Das ist leider nicht mein Problem,
ich will jede Zeile in der Richtextbox mittig setzen. Dazu benötige ich auch die Leerzeichen.
Es hat schon einen Grund warum ich das so umsetzen möchte.

ErfinderDesRades · 16. Dezember 2020, 00:10

Verstehe ich das Problem richtig?: Bei allen Zeilen soll das mittlere Zeichen auf dieselbe Position zu liegen kommen?
Kann doch nicht so schwer sein.
Schreib dir eine Methode die das tut: Input ist die Position, an die ausgerichtet werden soll, sowie der auszurichtende Text.
Rückgabewert ist der ausgerichtete Text.

So verlorene Zeilen wie in post#1, ohne Anfang und Ende - so kann man nix brauchbares entwickeln.

PadreSperanza · 16. Dezember 2020, 02:33

ich hätte es auch so gemacht, wie du es beschrieben hast. Aber hast du eine WPF oder eine WinForms RTB?

RodFromGermany · 16. Dezember 2020, 05:35

jnpanzer schrieb:

Leider setzt der Befehl keine Leerzeichen.

Was sollen die Leerzeichen in diesem Kontext?

VaporiZed · 16. Dezember 2020, 05:54

Ach, Du benutzt ne Monospace-Font. Gut zu wissen.
Dein Code kommt mir an einer Stelle auf Anhieb komisch vor:

VB.NET-Quellcode

For xy1 = 1 To xy1
WS = WS & " "
Next

Doppeltes xy1? Kann nicht sein. Das ergäbe immer einen Schleifendurchlauf, wenn xy1 = 1, sonst gar keinen. ~~Außerdem setzt Du die Leerzeichen hinten dran. Wolltest Du die nicht vorne haben?~~ Man möge auch in Morgenstunden bitte aufmerksam lesen

. Deine Leerstring-Stringerstellung ist etwas holprig. Dafür gäbe es Dim WS = New String(" "c, Anzahl)

##########

Ok, ich sehe, da gab's was zum Dazulernen: Der Name einer äußeren Variable kann auch als Schleifenvariablenname verwendet werden und der Compiler kann trotzdem unterscheiden. Im Debugger tut man sich dann zwar schwer und für das Codeverständnis ist es auch nicht förderlich, aber bitte. Ich sehe ein, dass dieser Post hier damit größtenteils Unsinn ist.

jnpanzer · 16. Dezember 2020, 07:28

PadreSperanza schrieb:

ich hätte es auch so gemacht, wie du es beschrieben hast. Aber hast du eine WPF oder eine WinForms RTB?

Ich nutze WinForm

RodFromGermany schrieb:

jnpanzer schrieb:

Leider setzt der Befehl keine Leerzeichen.

Was sollen die Leerzeichen in diesem Kontext?

Ich meinte dieser Befehl setzt den Text auf mittig aber ohne Leerzeichen

VB.NET-Quellcode

RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

Kasi · 16. Dezember 2020, 08:19

Hi panzer hilft das....
Schriftart ist Courier New

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim frm As String = "Sitz: {0} Preis: {1} Euro"
Dim myDate As Date
myDate = Date.Today
With RichTextBox1
.SelectionStart = 0
.SelectionAlignment = HorizontalAlignment.Center
.AppendText("Kino 2" & System.Environment.NewLine)
.AppendText("Ice Age 2" & System.Environment.NewLine)
.AppendText("Abend Vorstellung 22:00" & System.Environment.NewLine)
.AppendText("Datum: " & myDate & System.Environment.NewLine)
.AppendText("---------------------------------" & System.Environment.NewLine)
.AppendText(String.Format(frm, ("2a").ToString.PadLeft(1), (4.0).ToString.PadLeft(2)) & System.Environment.NewLine)
.AppendText(String.Format(frm, ("3a").ToString.PadLeft(1), (4.0).ToString.PadLeft(2)) & System.Environment.NewLine)
.AppendText(String.Format(frm, ("4a").ToString.PadLeft(1), (5.0).ToString.PadLeft(2)) & System.Environment.NewLine)
End With
End Sub

sieht so dann aus

RodFromGermany · 16. Dezember 2020, 09:01

jnpanzer schrieb:

Ich meinte dieser Befehl setzt den Text auf mittig aber ohne Leerzeichen

Korrekt.
Frage nicht beantwortet:

RodFromGermany schrieb:

Was also sollen die Leerzeichen in diesem Kontext?

Schreib mal ein Word-Dokument und zentriere den Text (*.doc, *.docx"),
Schreib mal ein WordPad-Dokument und zentriere den Text (*.rtf).

jnpanzer · 16. Dezember 2020, 18:51

Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

Hi RodFromGermany,

Ich will aus der RICHTEXTBOX Zeile für Zeile auslesen und eien XML Datei erstellen.
Der Zentrierte Text ist nach den Auslesen wieder Linksbündig, deshalb muss ich dies mit Leerzeichen auffüllen.
Jede Zeile in der RICHTEXTBOX ist eine eigner XML Tag, dieser wird dann über IP an ein Kassenystem geschickt.
Bis dahin läuft alles, es soll auch noch vordefinierte Texte geben aus einer DB die in die RICHTEXTBOX eingetragen werden, das ist abe rmein Hobby über Weihnachten.

Durch deinen Hinweis gestern Nacht, habe ich mir gedacht das ich eigentlich Dumm anstelle.
Ich habe auch schon das soweitgeändert das ich jetzt die Leerzeichen nach den Auslesen der RICHTEXTBOX in die XML einfüge. Nicht wie zuvor in der RICHTEXTBOX.

Das klappt Leider nicht so ganz, da Ich Zeile 1 Zentriere die Zeile 2 und 3 Linksbündig und Zeile 4 wieder Zentriert.
Ich habe es noch nicht geschafft es zu ermitteln ob eine Zeile zentriert ist oder nicht für das Einfügen der Leerzeichen.
Er macht das immer nur für die gesammte RICHTEXTBOX Zentriert oder Linksbünding.

Nun versuche ich den Tipp von Erfinder des Rades mit den Start und Ende zu ermitteln.

Ich muss auch zugesthen ich bin eine Laie in VB und hab noch nie mit einer RICHTEXTBOX gearbeitet.
Es macht mir nur Spass zu tüfteln aber nicht zu verzweifeln.

Danke für eurer Unterstützung.

RodFromGermany · 16. Dezember 2020, 19:13

jnpanzer schrieb:

Der Zentrierte Text ist nach den Auslesen wieder Linksbündig,

Den Code, der das macht, postest Du bitte mal, nachdem Du Dich davon überzeugt hast, dass es so ist.

jnpanzer · 16. Dezember 2020, 20:13

Also mal alles zusammengeschriben

Siehe Unbenannt1.PNG Bild meine Eingabe
Sie KASSENMAIL.XML mit Notepad ++ die Leerzeichen werden auch übertragen an die Kasse ==> alles so wie es haben will

Code mit mit Leerzeichen Auffüllen

VB.NET-Quellcode

Dim xw As XmlTextWriter = New XmlTextWriter("C:\temp\kassenmail_TS.xml", Encoding.GetEncoding("ISO-8859-1"))
Dim xy As Integer = 0
Dim xy1 As Integer = 0
Dim EINLESE_TXT As String = ""
Dim INSERT_TXT As String = ""
Dim ws As String = ""
xw.WriteStartDocument()
xw.WriteStartElement("Root")
Dim x1 As Integer = rt_nachricht.Lines.Length
Dim z1 As Integer = 0
' Schleife für die Textline zu füllen
For x1 = 1 To x1
EINLESE_TXT = ""
INSERT_TXT = ""
xy = 0
xy1 = 0
ws = ""
' Hier will ich prüfen ob die Zeile Mittig ist, Leider gilt das für die ganze RICHTEXTBOX
If (rt_nachricht.SelectionAlignment = HorizontalAlignment.Left) Then
EINLESE_TXT = rt_nachricht.Lines(z1)
INSERT_TXT = EINLESE_TXT
Else
xy = rt_nachricht.Lines(z1).Length ' Anzahl Zeichen
'Anzahl der leerzeichen
xy1 = CInt((39 - xy) / 2)
For xy1 = 1 To xy1
ws &= " "
Next
EINLESE_TXT = rt_nachricht.Lines(z1)
INSERT_TXT = WS & "" & EINLESE_TXT
End If
xw.WriteElementString("TextLine", INSERT_TXT)
z1 += 1
Next
xw.WriteEndElement()
xw.Close()

Mit den Zeile will ich prüfen ob die Zeile Zentriert ist oder LInksbündig

VB.NET-Quellcode

If (rt_nachricht.SelectionAlignment = HorizontalAlignment.Left) Then

Das ist ds Ergebnis wenn man die 1. Zeile Zentriert

Leider werden jedesmal nach den Einfügen uns speicher in diesen Forum die Leer zeichen gelösch also wieder mit Sternchen (als Lerrzeichen)

XML-Quellcode

<?xml version="1.0" encoding="iso-8859-1"?>
<Root>
<TextLine>*****************2345t6z7u8i9o</TextLine>
<TextLine>***************34567u8i9o</TextLine>
<TextLine>****************3456z7u8iop</TextLine>
</Root>

Hier der Codemit den habe ich die TextZeile mittig gesetzt.

VB.NET-Quellcode

rt_nachricht.SelectionAlignment = HorizontalAlignment.Center

Hier ohne Leerzeichen mal der Code den ich zuerst hatte Kann auch die xml schicken

VB.NET-Quellcode

Dim xw As XmlTextWriter = New XmlTextWriter("C:\temp\kassenmail_TS.xml", Encoding.GetEncoding("ISO-8859-1"))
Dim EINLESE_TXT As String = ""
Dim INSERT_TXT As String = ""
Dim ws As String = ""
xw.WriteStartDocument()
xw.WriteStartElement("Root")
Dim x1 As Integer = rt_nachricht.Lines.Length
Dim z1 As Integer = 0
' Schleife für die Textline zu füllen
For x1 = 1 To x1
EINLESE_TXT = ""
EINLESE_TXT = rt_nachricht.Lines(z1)
xw.WriteElementString("TextLine", EINLESE_TXT)
z1 += 1
Next
xw.WriteEndElement()
xw.Close()

Ergebniss ohne Leerzeichen obwohl ich mittlere Zeile Zentriert habe es wird nicht übernommen

XML-Quellcode

<?xml version="1.0" encoding="iso-8859-1"?>
<Root>
<TextLine>2342w345rt6z7u8i9o</TextLine>
<TextLine>w34r5t6zu</TextLine>
<TextLine>56tz7u8i9o0pßü</TextLine>
</Root>

Code-Tags für XML hinzugefügt ~EaranMaleasi

ErfinderDesRades · 16. Dezember 2020, 21:09

Jo, Xml ignoriert Spaces in TextNodes.
Du kannst versuchen, deine Texte stattdessen als XmlAttribut zu persistieren, also dass sowas rauskommt:

XML-Quellcode

<?xml version="1.0" encoding="iso-8859-1"?>
<Root>
<TextLine Text=" 2345t6z7u8i9o"/>
<TextLine Text=" 34567u8i9o"/>
<TextLine Text=" 3456z7u8iop"/>
</Root>

jnpanzer · 16. Dezember 2020, 21:25

(Fast-)Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

Tja wie mache ich das ..

exc-jdbi · 16. Dezember 2020, 21:27

Ich werf mich da auch noch kurz rein.

Ich hätte das so irgendwie gemacht. Das Xml, dient jedoch nur rein Informativ, und es würde nichts bringen das in ein XmlDocument einzufügen. Die Umwandlung in den korrekten Text müsste man programmiertechnisch umsetzen.
Genau gleich auch das Auslesen der RTF zu Xml.

XML-Quellcode

<?xml version="1.0" encoding="iso-8859-1"?>
<Root>
<TextLine>
<Text>LineText1</Text>
<AnzahlLeerzeichen>8</AnzahlLeerzeichen>
</TextLine>
<TextLine>
<Text>LineText2</Text>
<AnzahlLeerzeichen>10</AnzahlLeerzeichen>
</TextLine>
<TextLine>
<Text>LineText3</Text>
<AnzahlLeerzeichen>5</AnzahlLeerzeichen>
</TextLine>
</Root>

Freundliche Grüsse

exc-jdbi

ErfinderDesRades · 16. Dezember 2020, 21:46

jnpanzer schrieb:

Tja wie mache ich das ..

Mittm XmlTextWriter kenn ich mich nicht aus. Ich verwende immer XmlDocument (veraltet) oder XDocument.
Zu XmlDocument habich Tut gemacht: Xml-Tutorial
Da bau ich ja auch Xml mit XmlAttributen.

RodFromGermany · 17. Dezember 2020, 06:39

@jnpanzer Meinst Du nicht auch, dass es besser ist, die Leerzeichen wegzulassen und Dich auf die zentrierte Darstellung zu kümmern?
Hast Du bei Deinem Unbenannt1.PNG der RTB gesagt, dass sie den Text zentriert darstellen soll :?:

Offensichtlich nicht.

jnpanzer · 17. Dezember 2020, 10:03

Hi @RodFromGermany,

Ich habe über den Zeile der RTB gesagt das er es zentrieren soll.
Zeile Markiert und Zentriert Button gedrückt.

Das ist der Code des Button Text Zentrieren, oder mache ich da was verkehrt ?
Ist ja nur eine Kommando.

VB.NET-Quellcode

rt_nachricht.SelectionAlignment = HorizontalAlignment.Center

Aber ...
Ich bin aber jetzt schon weiter, der "ErfinderdesRades" hat mir geschrieben, das bei einem "XML Element" die Zentrierung immer gelöscht wird, und mir geraten auf "XML Attribute" umzustellen.
Das wusste ich nicht, und er hat natürlich recht.
Ich bin dabe gerade dabei auf Attribute im XML Tag umzustellen, wir dauern da ich mich erst da einlesen muss wie es geht.
Sein Tutorial ist aber ziemlich gut Erklärt.

Wenn ich das gemacht habe brauch ich keine Leerzeichen mehr.

Es geht voran mit kleine Schritten ... mit ganz kleine ..
Ich komme erst mal weiter Danke für euere Hilfe
Ich muss erst mal euere Ratschläge und Tipps umsetzten.

Gruß
Jürgen

Nachtrag
XML Attribut geht nicht ...

Vollzitat entfernt ~ EaranMaleasi

jnpanzer · 17. Dezember 2020, 10:38

@ErfinderDesRades
Habe es mir noch mal genau angsehen
das mit den Attributen kappt nicht, Das Übergabeprogramm frisst keine XML Attribute bei der TextLine
Also wieder meine Leerzeichen ....

Hat jemand einen Tipp für mich wie ich pro Zeile in RTB herausbekomme ob die Zeile Zentriert ist?

Vollzitat entfernt ~EaranMaleasi

VB.NET RICHTEXTBOX Formatierung (mit Leerzeichen auffüllen)

VB.NET RICHTEXTBOX Formatierung (mit Leerzeichen auffüllen)

VB.NET-Quellcode

VB.NET-Quellcode

jnpanzer schrieb:

VB.NET-Quellcode

PadreSperanza schrieb:

RodFromGermany schrieb:

jnpanzer schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

jnpanzer schrieb:

RodFromGermany schrieb:

jnpanzer schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

XML-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

XML-Quellcode

XML-Quellcode

XML-Quellcode

jnpanzer schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

8 Benutzer haben hier geschrieben