Wie so häufig ist auch dieser Tipp aus einer Frage im Forum entstanden. Die Anforderung: Alle Anfangsbuchstaben von allen Wörtern sollen groß geschrieben werden.

Die Lösung könnte man z.B. so beschreiben: Text in ein Array per Split wandeln, als Trennzeichen das Leerzeichen verwenden. Leider ist das nicht so einfach. Denn auch ein Zeilenumbruch muss berücksichtigt werden. Somit muss die Umwandlung 2 mal erfolgen, einmal als Leerzeichen als Trennzeichen und einmal mit einem Zeilenumbruch als Trennzeichen. Der Quellcode:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Public Function Capitalize(ByVal sText)
    if len(sText) > 0 and not isNull(sText) then
        dim arrText, index
        arrText = Split(sText, " ")

        for index = 0 to UBound(arrText)
            If Len(arrText(index)) > 0 Then
                arrText(index) = ucase(left(arrText(index), 1)) & right(arrText(index), len(arrText(index)) -1)
            end if
        next

        sText = Join(arrText, " ")

        arrText = Split(sText, vbnewline)

        for index = 0 to UBound(arrText)
            If Len(arrText(index)) > 0 Then
                arrText(index) = ucase(left(arrText(index), 1)) & right(arrText(index), len(arrText(index)) -1)
            end if
        next

        sText = Join(arrText, vbnewline)
    end if
    Capitalize = sText
End Function

<< Zum vorherigen Tipp 93:
Zufälligen Datensatz anzeigen

Zum nächsten Tipp 95 >>
Excel-Datei per Excel-Objekt auslesen

top