Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<const>
    version=1.0.0
    vdate=20.10.2015
    fname=udf_wordwrap.bas
    ns=%NAMESPACE%
    fpath=/vba/functions
</const>
====== [VBA] wordwrap() ======
//Mittels wordwrap() können längere Texte umgebrochen werden, ohne dass die Wörter zerstückelt werden//

==Version %%version%% - %%vdate%%==

{{%%fname%%|Download %%fname%% (V-%%version%%)}}

===== Definition ===== 
''string = wordwrap(string, long [,eWrapParams [,long]])''
<code vb>Public Function wordwrap( _
        ByVal iText As String, _
        ByVal iMaxLen As Long, _
        Optional ByVal iParams As eWrapParams = ewwDefault, _
        Optional ByVal iBreak As String = vbCrLf _
) As Variant</code>
  ***iText** Der Text, der zerlegt werden soll
  ***iMaxLen** Maxiale Zeilenlänge
  ***iParams** Settings zur Funktion. Siehe Enum [[#enumerator_ewrapparams|eWrapParams]]. Die Parameter sind komulierbar
  ***iBreak** Trennzeichen. Normalerweise ein Zeilenumbruch (vbCrLf)

==== Return ====
EIn String oder ein Stringarray. Je nach eWrapParams.

==== Enumerator eWrapParams ====
<code vb>
Public Enum eWrapParams
    ewwDefault = 0
    ewwReturnArray = 2 ^ 0  'Gibt ein Array anstelle eiens Strings zurück. Der Parameter iBreak wird ignoriert
    ewwCutLongWords = 2 ^ 1 'Zerschneidet überlange Wörter
    ewwRemoveBreaks = 2 ^ 2 'Bestehende Zeilnumbrüche im Originaltext werden entfernt
End Enum</code>

===== Beispiele =====
{{section>:snippets#vba_print_r&noheader&firstseconly}}

==== Standartanwendung ====
<code vb>    text = "Seit heute wird der Fahrplan im Bahnhof Zürich auf einem 19 Meter breiten LED-Bildschirm angezeigt. Je 15 Quadratmeter aber sind für Werbung reserviert."
    Debug.Print wordwrap(text, 25)</code>
<code>Seit heute wird der
Fahrplan im Bahnhof
Zürich auf einem 19 Meter
breiten LED-Bildschirm
angezeigt. Je 15
Quadratmeter aber sind
für Werbung reserviert.</code>

==== Rückgabe als Array ====
<code vb>    text = "Seit heute wird der Fahrplan im Bahnhof Zürich auf einem 19 Meter breiten LED-Bildschirm angezeigt. Je 15 Quadratmeter aber sind für Werbung reserviert."
    print_r wordwrap(text, 25, ewwReturnArray)</code>
<code><String()>  (
    [0] => <String> 'Seit heute wird der'
    [1] => <String> 'Fahrplan im Bahnhof'
    [2] => <String> 'Zürich auf einem 19 Meter'
    [3] => <String> 'breiten LED-Bildschirm'
    [4] => <String> 'angezeigt. Je 15'
    [5] => <String> 'Quadratmeter aber sind'
    [6] => <String> 'für Werbung reserviert.'
)</code>

==== Wörter die Länger als die erlabute Zeilenlänge sind ====
Standart. Das zu lange Wort wird nicht zerstückelt
<code vb>    text = "Die Autobahnbrückenspezialbeschilderung ist falsch"
    Debug.Print wordwrap(text, 25)</code>
<code>Die
Autobahnbrückenspezialbeschilderung
ist falsch</code>

Das Wort zerstückeln
<code vb>    text = "Die Autobahnbrückenspezialbeschilderung ist falsch"
    Debug.Print wordwrap(text, 25, ewwCutLongWords)</code>
<code>Die
Autobahnbrückenspezialbes
childerung ist falsch</code>

Und das noch kombiniert mit der Array-Ausgabe
<code vb>    text = "Die Autobahnbrückenspezialbeschilderung ist falsch"
    print_r wordwrap(text, 25, ewwCutLongWords + ewwReturnArray)</code>
<code><String()>  (
    [0] => <String> 'Die'
    [1] => <String> 'Autobahnbrückenspezialbes'
    [2] => <String> 'childerung ist falsch'
)</code>

==== Text mit Zeilenumbruch ====
Nehmen wir mal ein Text, der Bereits Zeilenumbrüche hat. Diese Sollen natürlich erhalten bleiben
<code vb>    text = " Ausgetrocknetes Flussbett." & vbCrLf & "Die Töss führt diesen Oktober so gut wie kein Wasser."
    Debug.Print wordwrap(text, 20)</code>
<code>Ausgetrocknetes
Flussbett.
Die Töss führt
diesen Oktober so
gut wie kein Wasser.</code>

Oder der Zeilenumbruch wird entfernt
<code vb>    text = " Ausgetrocknetes Flussbett." & vbCrLf & "Die Töss führt diesen Oktober so gut wie kein Wasser."
    Debug.Print wordwrap(text, 20, ewwRemoveBreaks)</code>
<code>Ausgetrocknetes
Flussbett. Die Töss
führt diesen Oktober
so gut wie kein
Wasser.</code>

===== Code =====
<source '%%fpath%%/%%fname%%' vb>
Yaslaw.Info

User Tools

Site Tools

Page Tools
