Zeichenketten - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:40 Uhr

2023-01-28T00:40:28Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:40 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	== Zeichenketten aneinanderknüpfen ==		== Zeichenketten aneinanderknüpfen ==

Pwania: /* Beispiele */

2019-06-21T17:15:23Z

Beispiele

Änderungen zeigen

Pwania: /* Zeichenkette erzeugen */

2019-06-21T17:07:01Z

Zeichenkette erzeugen

← Nächstältere Version		Version vom 21. Juni 2019, 17:07 Uhr
Zeile 756:		Zeile 756:
	== Zeichenkette erzeugen ==		== Zeichenkette erzeugen ==

	Mithilfe der String-Funktion können Sie eine Zeichenkette erzeugen, die eine angegebene Anzahl von Wiederholungen des gleichen Buchstaben enthält: Debug.Print String(3, "A") ' Ergibt 'AAA' In einem 'Like'-Vergleich können wir dies wie folgt einsetzen: Public Function IsNumber(ByVal strNumber As String) As Boolean IsNumber = True If strNumber Like String(Len(strNumber), "#") Then Exit Function End If IsNumber = False End Function Die Anweisung 'String(Len(strNumber), "#")' erzeugt einen Vergleichs-Text, der aus so vielen '#' besteht, wie Zeichen im übergebenen String sind. Hiermit wird also festgestellt, ob strNumber ausschließlich aus Ziffern besteht, also eine Ganzzahl ist.		Mithilfe der String-Funktion können Sie eine Zeichenkette erzeugen, die eine angegebene Anzahl von Wiederholungen des gleichen Buchstaben enthält:

			Debug<span style="Color:gray">.</span>Print String<span style="Color:gray">(3,</span> <span style="Color:gray">"A")</span> <span style="Color:green">' Ergibt 'AAA' </span>

			In einem 'Like'-Vergleich können wir dies wie folgt einsetzen:
			<span style="Color:blue">Public Function </span>IsNumber<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strNumber<span style="Color:blue"> As String</span><span style="Color:gray">)</span><span style="Color:blue"> As Boolean</span>

			IsNumber <span style="Color:gray">=</span><span style="Color:blue"> True</span>
			<span style="Color:blue"> If </span>strNumber<span style="Color:blue"> Like </span>String<span style="Color:gray">(</span>Len<span style="Color:gray">(</span>strNumber<span style="Color:gray">),</span> <span style="Color:gray">"#")</span><span style="Color:blue"> Then</span>
			<span style="Color:blue"> Exit Function</span>
			<span style="Color:blue"> End If</span>
			IsNumber <span style="Color:gray">=</span><span style="Color:blue"> False
			End Function</span>

			Die Anweisung 'String(Len(strNumber), "#")' erzeugt einen Vergleichs-Text, der aus so vielen '#' besteht, wie Zeichen im übergebenen String sind. Hiermit wird also festgestellt, ob strNumber ausschließlich aus Ziffern besteht, also eine Ganzzahl ist.

	== Beispiele ==		== Beispiele ==

	Public Function LastWord(ByVal strText As String) As String Dim strWord As String Dim lngPosition As Long lngPosition = InStrRev(strText, " ") strWord = Right(strText, Len(strText) - lngPosition) LastWord = strWord End Function Private Function LastWordMid(ByVal strText As String) As String Dim strWord As String Dim lngPosition As Long lngPosition = InStrRev(strText, " ") strWord = Mid(strText, lngPosition + 1) LastWordMid = strWord End Function Public Function FirstWord(ByVal strText As String) As String Dim strWord As String Dim lngPosition As Long lngPosition = InStr(strText, " ") If lngPosition <= 0 Then strWord = strText Else strWord = Left(strText, lngPosition - 1) End If FirstWord = strWord End Function Public Function AnyWord(ByVal strText As String, ByVal lngIndex As Long) As String Dim strWord As String Dim lngPos1 As Long, lngPos2 As Long, lngWord As Long Dim blnLastItem As Boolean lngPos1 = 1 For lngWord = 1 To lngIndex If blnLastItem = True Then strWord = "" Exit For End If lngPos2 = InStr(lngPos1, strText, " ") If lngPos2 <= 0 Then If lngPos1 <= 1 Then strWord = strText blnLastItem = True Else strWord = Mid(strText, lngPos1) blnLastItem = True End If Else strWord = Mid(strText, lngPos1, lngPos2 - lngPos1) End If lngPos1 = lngPos2 + 1 Next lngWord AnyWord = strWord End Function Public Function ListItem(ByVal strList As String, ByVal lngItem As Long, Optional ByVal strSeparator As String = ",") As String Dim strWord As String Dim lngPos1 As Long, lngPos2 As Long, lngWord As Long, lngOffset As Long Dim blnLastItem As Boolean lngPos1 = 1 For lngWord = 1 To lngItem If blnLastItem = True Then strWord = "" Exit For End If If lngWord > 1 Then lngOffset = Len(strSeparator) - 1 End If lngPos2 = InStr(lngPos1, strList, strSeparator) If lngPos2 <= 0 Then If lngPos1 <= 1 Then strWord = strList blnLastItem = True Else strWord = Mid(strList, lngPos1 + lngOffset) blnLastItem = True End If Else strWord = Mid(strList, lngPos1 + lngOffset, lngPos2 - lngPos1 - lngOffset) End If lngPos1 = lngPos2 + 1 Next lngWord ListItem = strWord End Function		Public Function LastWord(ByVal strText As String) As String Dim strWord As String Dim lngPosition As Long lngPosition = InStrRev(strText, " ") strWord = Right(strText, Len(strText) - lngPosition) LastWord = strWord End Function Private Function LastWordMid(ByVal strText As String) As String Dim strWord As String Dim lngPosition As Long lngPosition = InStrRev(strText, " ") strWord = Mid(strText, lngPosition + 1) LastWordMid = strWord End Function Public Function FirstWord(ByVal strText As String) As String Dim strWord As String Dim lngPosition As Long lngPosition = InStr(strText, " ") If lngPosition <= 0 Then strWord = strText Else strWord = Left(strText, lngPosition - 1) End If FirstWord = strWord End Function Public Function AnyWord(ByVal strText As String, ByVal lngIndex As Long) As String Dim strWord As String Dim lngPos1 As Long, lngPos2 As Long, lngWord As Long Dim blnLastItem As Boolean lngPos1 = 1 For lngWord = 1 To lngIndex If blnLastItem = True Then strWord = "" Exit For End If lngPos2 = InStr(lngPos1, strText, " ") If lngPos2 <= 0 Then If lngPos1 <= 1 Then strWord = strText blnLastItem = True Else strWord = Mid(strText, lngPos1) blnLastItem = True End If Else strWord = Mid(strText, lngPos1, lngPos2 - lngPos1) End If lngPos1 = lngPos2 + 1 Next lngWord AnyWord = strWord End Function Public Function ListItem(ByVal strList As String, ByVal lngItem As Long, Optional ByVal strSeparator As String = ",") As String Dim strWord As String Dim lngPos1 As Long, lngPos2 As Long, lngWord As Long, lngOffset As Long Dim blnLastItem As Boolean lngPos1 = 1 For lngWord = 1 To lngItem If blnLastItem = True Then strWord = "" Exit For End If If lngWord > 1 Then lngOffset = Len(strSeparator) - 1 End If lngPos2 = InStr(lngPos1, strList, strSeparator) If lngPos2 <= 0 Then If lngPos1 <= 1 Then strWord = strList blnLastItem = True Else strWord = Mid(strList, lngPos1 + lngOffset) blnLastItem = True End If Else strWord = Mid(strList, lngPos1 + lngOffset, lngPos2 - lngPos1 - lngOffset) End If lngPos1 = lngPos2 + 1 Next lngWord ListItem = strWord End Function

Pwania: /* Position innerhalb einer Zeichenkette, Länge ermitteln */

2019-06-21T17:04:57Z

Position innerhalb einer Zeichenkette, Länge ermitteln

@@ Zeile 708: / Zeile 708: @@
 == Position innerhalb einer Zeichenkette, Länge ermitteln ==
-InStr() InStrRev() Len() Private Sub StringMath() Dim strTest As String, strString As String Dim lngPosition As Long, lngLength As Long strString = "Hallo liebe Schulungsteilnehmer und Herr Heß" ' Ermittlung der Länge einer Zeichenkette: lngLength = Len(strString) Debug.Print "Die Zeichenkette enthält " & lngLength & " Zeichen" ' Ermittlung von Zeichenpositionen: lngPosition = InStr(strString, " ") Debug.Print "Erstes Leerzeichen an Position: " & lngPosition ' bei der Suche nach dem nächsten Leerzeichen die letzte Position + 1 als Anfangsposition verwenden! lngPosition = InStr(lngPosition + 1, strString, " ") Debug.Print "Zweites Leerzeichen an Position: " & lngPosition lngPosition = InStr(strString, "y") Debug.Print "'y' an Position: " & lngPosition lngPosition = InStr(strString, "Schul") Debug.Print "'Schul' an Position: " & lngPosition ' InStr und InStrRev achten auf Groß- / Kleinschreibung! lngPosition = InStr(strString, "schul") Debug.Print "'schul' (klein geschrieben!) an Position: " & lngPosition ' Wenn die Groß- / Kleinschreibung nicht berücksichtigt werden soll, ' kann der Parameter 'Compare' auf 'vbTextCompare' geändert werden. ' Dann muss allerdings auch der Anfangspunkt angegeben werden: lngPosition = InStr(1, strString, "SCHul", vbTextCompare) Debug.Print "'SCHul' (Groß-/Kleinschreibung nicht beachten!) an Position: " & lngPosition ' InStrRev findet die letzte Position einer Zeichenkette innerhalb der vorgegebenen Zeichenkette ' Die Position wird weiterhin von links gesehen angegeben lngPosition = InStrRev(strString, " ") Debug.Print "Letztes Leerzeichen an Position: " & lngPosition ' bei der Suche nach dem vorhergehenden Leerzeichen die letzte Position - 1 als Anfangsposition verwenden! lngPosition = InStrRev(strString, " ", 41 - 1) Debug.Print "Vorletztes Leerzeichen an Position: " & lngPosition End Sub
+InStr()
 == Zeichenkette erzeugen ==

Pwania: /* In Zeichenketten ersetzen */

2019-06-21T17:00:37Z

In Zeichenketten ersetzen

@@ Zeile 660: / Zeile 660: @@
 == In Zeichenketten ersetzen ==
-Die Funktion für das Ersetzen von Teilen einer Zeichenkette heißt 'Replace'. Private Sub StringReplace() Dim strString As String ' Suchen und Ersetzen von Zeichenfolgen strString = "Ich werde gesucht und ersetzt" Debug.Print strString Debug.Print Replace(strString, "gesucht", "gefunden") ' Groß- / Kleinschreibung wird beachtet! Debug.Print Replace(strString, "Gesucht", "gefunden") ' vbTextCompare: Groß- / Kleinschreibung wird ignoriert! Debug.Print Replace(strString, "Gesucht", "gefunden", , , vbTextCompare) End Sub Das reine 'Replace' führt die Ersetzung jedoch nur in einem Durchlauf durch, daher können mehrfach hintereinander auftretende Treffer eventuell nicht alle ersetzt werden (zur besseren Darstellung werden '+'-Zeichen statt Leerzeichen verwendet): Debug.Print Replace("++Text+++++mit+++überschüssigen+Leerzeichen+...+", "++", "+") Ergebnis (enthält immer noch doppelte Leerzeichen): '+Text+++mit++überschüssigen+Leerzeichen+...+' Mit der Funktion 'ReplaceRecursively' kann dem abhilfe geschaffen werden:
+Die Funktion für das Ersetzen von Teilen einer Zeichenkette heißt 'Replace'.
 * Der ursprüngliche Text wird in einer Variablen gespeichert.
 * Das Ersetzen mit 'Replace' wird durchgeführt (mit Rücksicht auf die optionale Angabe zur Groß- und Kleinschreibung).
 * Wenn durch das Ersetzen eine Änderung am Text erfolgt ist, wird die Funktion nochmals aufgerufen (siehe [[Rekursionen]]).
-* Hierbei wird das Ergebnis des Ersetzens als neuer Ausgangstext verwendet. Public Function ReplaceRecursively(ByVal strInText As String, ByVal strFind As String, ByVal strReplace As String, Optional ByVal blnMatchCase As Boolean) As String Dim strTemp As String strTemp = strInText If blnMatchCase = True Then ReplaceRecursively = Replace(strInText, strFind, strReplace) Else ReplaceRecursively = Replace(strInText, strFind, strReplace, , , vbTextCompare) End If If strTemp <> ReplaceRecursively Then ReplaceRecursively = ReplaceRecursively(ReplaceRecursively, strFind, strReplace, blnMatchCase) End If End Function Ergebnis: '+Text+mit+überschüssigen+Leerzeichen+...+'
+* Hierbei wird das Ergebnis des Ersetzens als neuer Ausgangstext verwendet.
 == Position innerhalb einer Zeichenkette, Länge ermitteln ==

Pwania: /* Zeichenketten aufteilen und kürzen */

2019-06-21T16:37:11Z

Zeichenketten aufteilen und kürzen

@@ Zeile 625: / Zeile 625: @@
 == Zeichenketten aufteilen und kürzen ==
-Left() Right() Mid() Trim() LTrim() RTrim() Private Sub StringCutters() Dim strTest As String, strString As String strString = "Hallo liebe Schulungsteilnehmer und Herr Heß" ' Hier werden Zeichenfolgen geschnitten: strTest = Left(strString, 2) ' Ha Debug.Print strTest strTest = Right(strString, 2) Debug.Print strTest ' eß strTest = Mid(strString, 7, 25) Debug.Print strTest ' liebe Schulungsteilnehmer ' Die Trim-Funktionen entfernen Leerzeichen (auch mehrere) vom Anfange und/oder Ende des Textes strString = " Trim Me " Debug.Print "'" & strString & "'" ' Trim Me ' strTest = LTrim(strString) Debug.Print "'" & strTest & "'" 'Trim Me ' strTest = RTrim(strString) Debug.Print "'" & strTest & "'" ' Trim Me' strTest = Trim(strString) Debug.Print "'" & strTest & "'" 'Trim Me' End Sub
+ Left()
 == In Zeichenketten ersetzen ==

Pwania: /* Zeichenketten umwandeln */

2019-06-21T16:33:50Z

Zeichenketten umwandeln

@@ Zeile 601: / Zeile 601: @@
 == Zeichenketten umwandeln ==
-UCase() LCase() Debug.Print StrConv("alle anfangsbuchstaben werden groß", vbProperCase) ' Alle Anfangsbuchstaben Werden Groß Debug.Print StrReverse("umgekehrt") ' trhekegmu Private Sub StringManipulation() Dim strTest As String, strAnswer As String strTest = "Hallo liebe Schulungsteilnehmer und Herr Heß" ' Darstellung der Buchstaben oder Zeichen wird geändert, nicht der Inhalt strTest = UCase(strTest) Debug.Print strTest strTest = LCase(strTest) Debug.Print strTest ' Beispiel If-Abfrage: strAnswer = "Yes" If LCase(strAnswer) = "yes" Then MsgBox "Ja" End If End Sub
+ UCase()
 == Zeichenketten aufteilen und kürzen ==

Pwania: /* Asc */

2019-06-21T16:30:43Z

Asc

← Nächstältere Version		Version vom 21. Juni 2019, 16:30 Uhr
Zeile 54:		Zeile 54:
	Nicht enthalten waren Accents, Umlaute oder gar kyrillische, asiatische, arabische etc. Zeichen. Inzwischen wurden die Zeichensätze erweitert und enthalten theoretisch millionen von Zeichen.		Nicht enthalten waren Accents, Umlaute oder gar kyrillische, asiatische, arabische etc. Zeichen. Inzwischen wurden die Zeichensätze erweitert und enthalten theoretisch millionen von Zeichen.

	Die 'Asc'-Funktion kann trotz ihres Namens auf mehr als die 128 Zeichen zugreifen, nämlich auf den erweiterten ASCII-Zeichensatz bis 255 (siehe [[#Zeichentabellen\|Zeichentabellen]]). Dieser enthält zusätzlich Umlaute, Accents und weitere Zeichen, die im europäischen Raum Verwendung finden und auf dem lateinischen Alphabet basieren. Siehe hierzu auch [[Zeichenketten#AscW\|AscW]].		Die 'Asc'-Funktion kann trotz ihres Namens auf mehr als die 128 Zeichen zugreifen, nämlich auf den erweiterten ASCII-Zeichensatz bis 255 (siehe [[#Zeichentabellen\|Zeichentabellen]]). Dieser enthält zusätzlich Umlaute, Accents und weitere Zeichen, die im europäischen Raum Verwendung finden und auf dem lateinischen Alphabet basieren. Siehe hierzu auch [[Zeichenketten#AscW und ChrW\|AscW und ChrW]].

	==== Chr ====		==== Chr ====

Pwania: /* Asc */

2019-06-21T16:30:22Z

Asc

← Nächstältere Version		Version vom 21. Juni 2019, 16:30 Uhr
Zeile 54:		Zeile 54:
	Nicht enthalten waren Accents, Umlaute oder gar kyrillische, asiatische, arabische etc. Zeichen. Inzwischen wurden die Zeichensätze erweitert und enthalten theoretisch millionen von Zeichen.		Nicht enthalten waren Accents, Umlaute oder gar kyrillische, asiatische, arabische etc. Zeichen. Inzwischen wurden die Zeichensätze erweitert und enthalten theoretisch millionen von Zeichen.

	Die 'Asc'-Funktion kann trotz ihres Namens auf mehr als die 128 Zeichen zugreifen, nämlich auf den erweiterten ASCII-Zeichensatz bis 255 (siehe [[#Zeichentabellen\|Zeichentabellen]]). Dieser enthält zusätzlich Umlaute, Accents und weitere Zeichen, die im europäischen Raum Verwendung finden und auf dem lateinischen Alphabet basieren. Siehe auch [[#AscW]].		Die 'Asc'-Funktion kann trotz ihres Namens auf mehr als die 128 Zeichen zugreifen, nämlich auf den erweiterten ASCII-Zeichensatz bis 255 (siehe [[#Zeichentabellen\|Zeichentabellen]]). Dieser enthält zusätzlich Umlaute, Accents und weitere Zeichen, die im europäischen Raum Verwendung finden und auf dem lateinischen Alphabet basieren. Siehe hierzu auch [[Zeichenketten#AscW\|AscW]].

	==== Chr ====		==== Chr ====

Pwania: /* Asc */

2019-06-21T16:29:26Z

Asc

← Nächstältere Version		Version vom 21. Juni 2019, 16:29 Uhr
Zeile 54:		Zeile 54:
	Nicht enthalten waren Accents, Umlaute oder gar kyrillische, asiatische, arabische etc. Zeichen. Inzwischen wurden die Zeichensätze erweitert und enthalten theoretisch millionen von Zeichen.		Nicht enthalten waren Accents, Umlaute oder gar kyrillische, asiatische, arabische etc. Zeichen. Inzwischen wurden die Zeichensätze erweitert und enthalten theoretisch millionen von Zeichen.

	Die 'Asc'-Funktion kann trotz ihres Namens auf mehr als die 128 Zeichen zugreifen, nämlich auf den erweiterten ASCII-Zeichensatz bis 255 (siehe [[#Zeichentabellen\|Zeichentabellen]]). Dieser enthält zusätzlich Umlaute, Accents und weitere Zeichen, die im europäischen Raum Verwendung finden und auf dem lateinischen Alphabet basieren.		Die 'Asc'-Funktion kann trotz ihres Namens auf mehr als die 128 Zeichen zugreifen, nämlich auf den erweiterten ASCII-Zeichensatz bis 255 (siehe [[#Zeichentabellen\|Zeichentabellen]]). Dieser enthält zusätzlich Umlaute, Accents und weitere Zeichen, die im europäischen Raum Verwendung finden und auf dem lateinischen Alphabet basieren. Siehe auch [[#AscW]].

	==== Chr ====		==== Chr ====