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:
Kommentar veröffentlichen