Sonntag, 12. Januar 2014

TM-SmartString: ToUpperCase, ToLowerCase, ToProperCase

Ein Vorteil bei der Verwendung einer eigenen Klasse ist, dass man die Namen der Eigenschaften und Methoden an die eigenen Wünsche anpassen kann. So braucht sich künftig keiner mehr mit den eher kryptischen Befehlen UCase oder LCase abmühen. Statt dessen stellt die Klassen TM-SmartString künftig die Eigenschaften ToUpperCase und ToLowerCase bereit. Im Rahmen dieser Erweiterung wurde dann auch gleich die
Methode ToProperCase implementiert.

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

Implementierung
Die Implementierung erfolgt mit folgendem Code:
1:  Public Property Get ToLowerCase() As String  
2:    ToLowerCase = StrConv(m_String, vbLowerCase)  
3:  End Property  
In der zweiten Zeile wird die Funktion StrConv verwendet, um das Ergebnis zu ermitteln. Als Parameter werden der enthaltene Text und das Schlüsselwort 'vbLowerCase' übergeben.

Bisheriger Code
Bisher wurde folgender Code für die Umwandlung eines Textes in Kleinbuchstaben verwendet:
1:  Dim myString As String  
2:  myString = "HELLO WORLD"  
3:  MsgBox StrConv(myString, vbLowerCase)  
In der dritten Zeile wird die Funktion StrConv aufgerufen. Dieser werden der Name der String-Variable und vbLowerCase als Parameter ü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.ToLowerCase  
In der vierten Zeile wird die Eigenschaft ToLowerCase abgerufen.

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

Implementierung
Die Implementierung erfolgt mit folgendem Code:
1:  Public Property Get ToUpperCase() As String  
2:    ToUpperCase = StrConv(m_String, vbUpperCase)  
3:  End Property  
In der zweiten Zeile wird die Funktion StrConv verwendet, um das Ergebnis zu ermitteln. Als Parameter werden der enthaltene Text und das Schlüsselwort 'vbUpperCase' übergeben.

Bisheriger Code
Bisher wurde folgender Code für die Umwandlung eines Textes in Großbuchstaben verwendet:
1:  Dim myString As String  
2:  myString = "hello world"  
3:  MsgBox StrConv(myString, vbUpperCase)  
In der dritten Zeile wird die Funktion StrConv aufgerufen. Dieser werden der Name der String-Variable und vbUpperCase als Parameter ü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.ToUpperCase  
In der vierten Zeile wird die Eigenschaft ToUpperCase abgerufen.

Eigenschaft: ToProperCase
Diese Eigenschaft gibt den enthaltenen Text zurück. Dabei wird der erste Buchstaben jedes Wortes in Großbuchstaben formatiert. Alle weiteren Zeichen werden in Kleinbuchstaben zurückgegeben.

Implementierung
Die Implementierung erfolgt mit folgendem Code:
1:  Public Property Get ToProperCase() As String  
2:    ToProperCase = StrConv(m_String, vbProperCase)  
3:  End Property  
In der zweiten Zeile wird die Funktion StrConv verwendet, um das Ergebnis zu ermitteln. Als Parameter werden der enthaltene Text und das Schlüsselwort 'vbProperCase' übergeben.

Bisheriger Code
Bisher wurde folgender Code für die Umwandlung eines Textes verwendet, um jedes Wort mit einem Großbuchstaben beginnen zu lassen:
1:  Dim myString As String  
2:  myString = "heLLo woRLd"  
3:  MsgBox StrConv(myString, vbProperCase)  
In der dritten Zeile wird die Funktion StrConv aufgerufen. Dieser werden der Name der String-Variable und vbProperCase als Parameter ü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.ToProperCase  
In der vierten Zeile wird die Eigenschaft ToProperCase abgerufen.


Nach dem in der Klasse TM-SmartString viele der Basisfunktionen implementiert sind, konnte mit dieser Erweiterung der Vorteil einer eigenen Klasse mit selbst erstellten, intuitiven bezeichneten Methoden voll ausgespielt werden.

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

Keine Kommentare: