Zeilenumbruch nach 100 Zeichen

Gregor · 2005-06-21T08:11:39+00:00

Hallo zusammen Aus diesem Forum habe ich von Galenzo folgende nützliche Prozedur erhalten. In dieser Schleife wird in einem Text jeweils nach einer bestimmten Anzahl Zeichen (100) ein Zeilenwechseln mit zwei Tabs eingefügt. Das funktioniert auch bestens. Wie kann ich nun noch erreichen, dass der Zeilenwechsel nach ca. 100 Zeichen nur bei einem Leerschlag vorgenommen wird, damit nicht ganze Wörter getrennt werden? (Bemerkung = Text) Const CUT As Integer = 100 Dim i As Integer For i = 1 To (Len(Bemerkung) \ CUT) Bemerkung = Left(Bemerkung, (i - 1) + i * CUT) & vbLf & vbTab & vbTab & vbTab & Right(Bemerkung, Len(Bemerkung) - ((i - 1) + i * CUT)) Next i Danke für eure Unterstützung. Gregor

Hallo Bernd,
na das war ja knapp, was?
Hier mal ein Vergleich der 3 von uns zur Verfügung gestellten Möglichkeiten:


Galenzo
"Die Schwierigkeit li
egt darin, daß wir a
ls Menschen nicht nu
r Probleme lösen, so
ndern auch Probleme
schaffen. (Edward Te
ller)"
bst
"Die Schwierigkeit
liegt darin, daß wir
als Menschen nicht
nur Probleme lösen,
sondern auch
Probleme schaffen.
(Edward
Teller)"
MichaV- trennen davor
"Die Schwierigkeit
liegt darin, daß wir
als Menschen nicht
nur Probleme lösen,
sondern auch Probleme
schaffen. (Edward
Teller)"
MichaV- trennen dahinter
"Die Schwierigkeit liegt
darin, daß wir als Menschen
nicht nur Probleme lösen,
sondern auch Probleme
schaffen. (Edward Teller)"

Deine Variante funzt ja nun wieder ganz anders, das Ergebnis sieht auch etwas anders aus als meine entsprechende "Trennen davor"- Variante. Insbesondere Deine letzte Zeile gibt mir zu denken. Wie kommt das? (Keine Ahnung von regexp)
Gruss- Micha

Hallo Gregor,
hier 2 Varianten, einmal bleibt das nicht zu trennende Wort in der Zeile stehen, einmal kommt das nicht zu trennende Wort in die nächste Zeile.

Option Explicit
Sub TrennenNachXZeichen()
Dim Wort As String
Dim Cut As Integer
Dim i As Integer
Dim Wörter
Dim Zeile()
Dim a
Cut = 10
Wort = "Die Schwierigkeit liegt darin, daß wir als Menschen nicht nur Probleme lösen, sondern auch Probleme schaffen. (Edward Teller)"
If InStr(Wort, " ") = 0 Then Exit Sub
'trennen danach
ReDim Zeile(0)
Wörter = Split(Wort, " ")
Zeile(0) = Wörter(0)
For i = 1 To UBound(Wörter)
  If Len(Zeile(a)) > Cut Then
    a = a + 1
    ReDim Preserve Zeile(a)
    Zeile(a) = Wörter(i)
  Else
    Zeile(a) = Zeile(a) & " " & Wörter(i)
  End If
Next i
MsgBox Join(Zeile, vbCrLf)
'trennen davor
ReDim Zeile(0)
a = 0
Wörter = Split(Wort, " ")
Zeile(0) = Wörter(0)
For i = 0 To UBound(Wörter) - 1
  If Len(Zeile(a)) + Len(Wörter(i + 1)) > Cut Then
    a = a + 1
    ReDim Preserve Zeile(a)
    Zeile(a) = Wörter(i + 1)
  Else
    Zeile(a) = Zeile(a) & " " & Wörter(i + 1)
  End If
Next i
MsgBox Join(Zeile, vbCrLf)
End Sub

Gruss- Micha
PS: Rückmeldung wäre nett.

Forumthread: Zeilenumbruch nach 100 Zeichen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial