String und Zeilenumbruch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
ich bin überhaupt nicht über dich hergezogen !!
Es waren lediglich ein paar Ungereimtheiten und Nachfragen.
Wäre es nicht einfacher, die Textbausteine in der Form zu definieren, als mit einem VBA-Programm einen riesigen Aufwand zu betreiben,
Ich stelle nur mal hypothetisch ein paar Fragen in den Raum:
Zeichen 79 ist ein Zeilenumbruch
Also kommt auf das Zeichen 80 ebenfalls ein Zeilenumbruch,... nun hast du 2 hintereinander. Gewollt ?
Zeichen 80 ist ein Punkt
Also kein Wort, kann also duch einen Zeilenumbruch ersetzt werden. Nun hast du den Punkt in einer neuen Zeile. Gewollt ?
Zeichen 80 ist ein Punkt aber Zeichen 81 ist ein Zeilenumbruch.
Siehe oben. Nun hast du den Punkt in einer neuen Zeile stehen und danach nochmals eine neue Zeile, weil alle bisherigen Zeilenumbrüche mitgenommen werden sollen. Gewollt ?
Zeichen 80 steht mitten in einem Wort mit, sagen wir mal, 20 zeichen. Zeilenumbruch vorher. Nun entsteht ein Flattersatz erster Güte. Gewollt ?
Ganz abgesehen davon, dass die Anzahl der Zeilen für einen Textbaustein auf einem Lieferschein mit fixer Schriftart ebenfalls limitiert ist,... erkennst du jetzt wahrscheinlich die Problematik besser.
Daher plädiere ich dafür ;-), definiert eure Textbausteine neu mit festen Regeln.
Das ist einfacher, schneller, und sieht ziemlich sicher auch noch besser aus.
Gruss Rainer

Private Sub test() Dim lZeile As Long Dim txt As String, tmpText As String tmpText = TextBox1.Text 'Text aus Form2 übernehmen TextBox2.Text = "" 'Textbox leeren lZeile = 80 ' Länge einer Zeile auf dem Papier! For i = 0 To Len(tmpText) Step lZeile txt = VBA.Left(tmpText, lZeile) For j = lZeile To 1 Step -1 If VBA.Right(txt, 1) = " " Or InStr(1, txt, " ") <= 0 Then txt = VBA.Left(txt, Len(txt) - 1) If Len(tmpText) - Len(txt) < 0 Then TextBox2.Text = TextBox2.Text & txt & vbCrLf GoTo ende End If tmpText = VBA.Right(tmpText, Len(tmpText) - Len(txt)) Exit For Else txt = VBA.Left(txt, Len(txt) - 1) End If Next TextBox2.Text = TextBox2.Text & txt & vbCrLf Next ende: 'Irgend einen Abschlusscode End Sub

Hallo Martina,
wieso nimmst Du nicht einfach eine Textbox mit MultiLine = True? Ich mein, formatieren musst Du ja anscheinend nichts. Dir geht's ja nur um den Zeilenumbruch.
Wenn ich Dich richtig verstanden habe, hast Du die Inhalte ja bereits in Textboxen. Du musst im Prinzip nur dafür Sorge tragen, dass die Width-Eigenschaft Deiner Textbox so ausgerichtet ist, dass sie maximal eine Eingabe von 80 Zeichen zulässt. Dort machst Du dann Deine Eingaben, umgebrochen wird nach erreichen des rechten Rands der Textbox automatisch. Du kannst auch manuell Trennungen vornehmen. Manuelle Zeilenschaltungen natürlich auch.
Um nun den Zeilenumbruch genauso hinzubekommen, wie angezeigt wird, brauchst Du nur folgenden Code:
"Mit den unten vorgestellten Routinen kann auf den Inhalt der MultiLine-TextBox zeilenweise zugegriffen werden. Dies ist sehr praktisch, um z.B. eine ListBox mit den Zeilen einer TextBox zu füllen, oder um die TextBox genauso auszudrucken, wie sie auf dem Bildschirm erscheint.
Außerdem wird eine Routine vorgestellt, mit der zur aktuellen Cursor-Position gescrollt werden kann (z.B. interessant, wenn die ScrollBars-Eigenschaft nicht den Wert "0 - None" hat).
Beispiele
Der folgende Code füllt bei Klick auf die Schaltfläche "cmdAnalyse" die ListBox "lstZeilen" mit den umgebrochenen Zeilen der mehrzeiligen TextBox "txtInhalt":


Private Sub cmdAnalyse_Click()
Dim i As Long
'ListBox leeren:
lstZeilen.Clear
'ListBox mit allen Zeilen füllen:
For i = 1 To TextBoxLineCount(txtInhalt)
lstZeilen.AddItem TextBoxLine(txtInhalt, i)
Next i
End Sub

Ein zeilenweiser Ausdruck könnte dadurch erreicht werden, dass im obigen Beispiel statt lstZeilen.AddItem einfach Printer.Print geschrieben wird. Jetzt müssen nur noch Probleme wie Seitenwechsel und Positionierung gelöst werden... Das überlasse ich mal als Hausaufgaben!
Wenn die TextBox "txtInhalt" den Fokus erhält, stellt der folgende Code die Sichtbarkeit des Cursors sicher:


Private Sub txtInhalt_GotFocus()
TextBoxScrollToCursor txtInhalt
End Sub

Code
Das größte Problem der Zeilen-Erkennung ist der automatische Umbruch: Dadurch werden "willkürlich" neue Zeilen erzeugt, obwohl der Anwender nicht Return gedrückt hat.
Zum Glück bietet das System einige API-Funktionen (genauer: Windows-Nachrichten), die den automatischen Zeilenumbruch berücksichtigen. Die folgenden Zeilen müssen daher im Deklarationsteil eines Moduls oder Formulars eingefügt werden:
Private Declare Function SendMessageA Lib "user32" ( _
ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Any _
) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_SCROLLCARET = &HB7
Die folgende Funktion bestimmt die Anzahl der Zeilen; es genügt ein einfacher Aufruf einer API-Funktion:
Public Function TextBoxLineCount( _
ByRef txt As TextBox
) As Long
TextBoxLineCount = _
SendMessageA(txt.hwnd, EM_GETLINECOUNT, 0, 0&)
End Function
Eine bestimmte Zeile aus dem Inhalt einer TextBox kann mit folgender Funktion ausgeschnitten werden (die erste Zeile hat übrigens die Nummer 1):
Public Function TextBoxLine( _
ByRef txt As TextBox, _
ByVal LineNr As Long _
) As String
Dim Buffer As String * 1024
Dim Length As Long

'Buffer-Länge initialisieren:
Buffer = Chr$(Len(Buffer) And &HFF) & Chr$(Len(Buffer) \ &H100)

'Buffer mit Zeile füllen:
Length = SendMessageA(txt.hwnd, EM_GETLINE, LineNr - 1, Buffer)

'Überflüssiges abschneiden:
TextBoxLine = Left$(Buffer, Length)
End Function
Die folgende Routine sorgt für das Scrollen zur aktuellen Cursor-Position:
Sub TextBoxScrollToCursor(ByRef txt As TextBox)
SendMessageA txt.hwnd, EM_SCROLLCARET, 0, 0&
End Sub
"
Vielleicht hilft es ja.
Gruß
Marco

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

String und Zeilenumbruch

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread