TM-SmartString: UCase, LCase

In diesem Beitrag wird das Klassenmodul TM-SmartString um zwei Eigenschaften erweitert, welche die Umwandlung in Groß- bzw. in Kleinbuchstaben ermöglichen: UCase und LCase.

Eigenschaft: UCase
Diese Eigenschaft gibt den enthaltenen Text in Großbuchstaben zurück.

Implementierung
Die Implementierung erfolgt mit folgendem Code:

1:  Public Property Get UCase() As String  
2:    UCase = VBA.UCase(m_String)  
3:  End Property  

In der zweiten Zeile wird die Funktion UCase verwendet, um das Ergebnis zu ermitteln. Der Name der Funktion UCase wird zusätzlich mit dem Namen der zu verwendenden Bibliothek qualifiziert; in diesem Fall "VBA". So wird sichergestellt, dass die Funktion UCase aus der Bibliothek VBA verwendet wird.

Bisheriger Code
Bisher wurde ein Text wie folgt in Großbuchstaben umgewandelt:

1:  Dim myString As String  
2:  myString = "hello world"  
3:  MsgBox UCase(myString)  

In der dritten Zeile wird die Funktion UCase aufgerufen. Als Parameter wird der umzuwandelnde Text übergeben.

Künftiger Code
Bei Verwendung der Klasse TM_SmartString sieht der Code wie folgt aus:

1:  Dim myString As TM_SmartString  
2:  Set myString = New TM_SmartString  
3:  myString = "hello world"  
4:  MsgBox myString.UCase  

In der vierten Zeile wird die Eigenschaft UCase abgerufen.

Eigenschaft: LCase
Diese Eigenschaft gibt den enthaltenen Text in Kleinbuchstaben zurück.

Implementierung
Die Implementierung erfolgt mit folgendem Code:

1:  Public Property Get LCase() As String  
2:    LCase = VBA.LCase(m_String)  
3:  End Property  

In der zweiten Zeile wird die Funktion LCase verwendet, um das Ergebnis zu ermitteln. Der Name der Funktion LCase wird zusätzlich mit dem Namen der zu verwendenden Bibliothek qualifiziert; in diesem Fall "VBA". So wird sichergestellt, dass die Funktion LCase aus der Bibliothek VBA verwendet wird.

Bisheriger Code
Bisher wurde ein Text wie folgt in Kleinbuchstaben umgewandelt:

1:  Dim myString As String  
2:  myString = "HELLO WORLD"  
3:  MsgBox LCase(myString)  

In der dritten Zeile wird die Funktion LCase aufgerufen. Als Parameter wird der umzuwandelnde Text übergeben.

Künftiger Code
Bei Verwendung der Klasse TM_SmartString sieht der Code wie folgt aus:

1:  Dim myString As TM_SmartString  
2:  Set myString = New TM_SmartString  
3:  myString = "HELLO WORLD"  
4:  MsgBox myString.LCase  

In der vierten Zeile wird die Eigenschaft LCase abgerufen.


Die nächsten Schritte sind gemacht. Mit der Implementierung der Eigenschaften UCase und LCase kann er enthaltene Text in Groß- bzw. Kleinbuchstaben zurückgegeben werden. Die nächsten Erweiterungen der Klasse sind bereits im Werden.

Die neue Version 1.16.02 steht (wie immer) auf meiner Webseite zum Download bereit.