| Text-Befehle
→ ohne
Beispiele |
|
Befehl / Beispiele |
Beschreibung |
|
<Textvariable> = <Textvariable> & <Textvariable>
|
Textverknüpfung |
Beispiel:
Vorname = "Helmut"
Nachname = "Schmidt"
Name = Vorname & " " & Nachname |
|
Asc(<Text>) |
Gibt vom 1. Zeichen eines Textes den Ascii-Code wieder |
Beispiel: MsgBox Asc("A")
--> 65
|
|
Choose(<Nr>,<Eintrag 1>,<Eintrag
2>,...,<Eintrag n>) |
Wählt einen Eintrag aus einer Liste aus |
Beispiel:
Sub StadtAuswahl_Zufaellig()
Dim Nr As Integer
Nr = Int(Rnd() * 8) + 1
MsgBox Choose(Nr, "Hamburg", "Kiel", "Bremen", "Hannover",
"Düsseldorf", "Wiesbaden", "Stuttgart", "München")
End Sub |
|
Chr(<Zahl>) |
Gibt das Zeichen eines Ansi-Codes wieder ( Ansi-Code = 0 ... 255 ) |
|
Beispiel: MsgBox Chr(65)
' --> A |
|
ChrW(<Zahl>) |
Gibt das Zeichen eines Uni-Codes wieder ( Uni-Code 0 ... 65535 ) |
|
Beispiel: MsgBox ChrW(34456) '
--> 蚘 |
|
Format(<Zahl>,<Format>) |
Gibt eine Zahl formatiert aus. |
Beispiel:
MsgBox Format(39881, "dddd") ' --> Montag |
|
Instr(<StartPos>,<Text>,<Suchtext>) |
Suchen einer Zeichenkette in einem Text von links nach rechts, ab einer
Startposition |
Beispiel:
Pfad = "D:\Daten\Word\2009"
MsgBox InStr(1, Pfad, "\")
' --> 3
MsgBox InStr(5, Pfad, "\")
' --> 9 |
|
InstrRev(<Text>,<Suchtext>,<Startposition>) |
Suchen einer Zeichenkette in einem Text von rechts nach links, ab einer
Startposition. |
Beispiel:
Pfad = "D:\Daten\Word\2009"
MsgBox InStrRev(Pfad, "\")
' --> 14
MsgBox InStrRev(Pfad, "\", 5)
' --> 3 |
|
LCase(<Text>) |
Wandelt einen Text in Kleinbuchstaben um. |
Beispiel:
MsgBox LCase("Hallo Leute")
' --> "hallo leute" |
|
Left(<Text>,<AnzahlZeichen>) |
Schneidet die angegebenen Anzahl Zeichen von links ab. |
Beispiel:
Text = "Hallo Leute"
MsgBox Left(Text, 5)
' --> "Hallo" |
|
Len(<Text>) |
Bestimmt die Anzahl der Zeichen in einem Text. |
Beispiel:
Text = "Hallo Leute"
MsgBox Len(Text)
' --> 11 |
|
LTrim(<Text>) |
Löscht alle Leerzeichen links vom Text. |
Beispiel:
Text = LTrim(" Ein Text ")
' --> "Ein Text " |
|
Mid(<Text>, <Ab Zeichen>, <Anzahl Zeichen> ) |
Schneidet innerhalb eines Textes eine Textpassage aus. |
Beispiel 1: Variante 1
Text = "Soweit ich mich noch erinnern kann"
MsgBox Mid(Text, 12, 9)
' --> "mich noch" |
Beispiel 2: Variante 2
Text = "Soweit ich mich noch erinnern kann"
Mid(Text, 22, 8) = "besinnen"
MsgBox Text
' --> "Soweit ich mich noch besinnen kann" |
|
Replace(<Text>,<Suchtext>,<Austauschtext>) |
Tauscht einen Text gegen einen anderen aus. |
Beispiel:
Text = "Hallo Leute"
Text = Replace(Text, "Hallo", "Hi") ' --> "Hi Leute" |
|
Right(<Text>,<AnzahlZeichen>) |
Schneidet eine Anzahl Zeichen von rechts aus einem Text aus. |
Beispiel:
Text = "Hallo Leute"
Text = Right(Text, 5)
' --> "Leute" |
|
RTrim(<Text>) |
Löscht alle Leerzeichen rechts von einem Text |
Beispiel:
Text = RTrim(" Ein Text ")
' --> " Ein Text" |
|
Space(<Anzahl Leerzeichen>) |
Füllt einen Text mit der angegebenen Anzahl an Leerzeichen. |
Beispiel:
Text = Space(10)
' --> " " |
|
Strg(<Zahl>) |
Umwandlung einer zahl in einen Text |
Beispiel:
Dim Zahl As Double
Dim Text As String
Zahl = 123
Text = Str(Zahl)
MsgBox Text
' --> " 123" bei positiven Zahlen befindet sich
'
vor der Zahl ein
Leerzeichen !! |
|
StrReverse(<Text>) |
Gibt einen Text in umgekehrter Reihenfolge aus |
Beispiel:
Text = "Dies ist ein Test"
MsgBox StrReverse(Text)
' --> "tseT nie tsi sieD" |
|
String(<Anzahl Zeichen>,<Ansi-Code>) |
Gibt eine angegebene Anzahl von einem Zeichen wieder |
Beispiel:
MsgBox String(10, 65) ' --> "AAAAAAAAAA"
MsgBox String(5, 216) ' --> "ØØØØØ" |
|
Trim |
Löscht alle Leerzeichen vor und nach dem Text. |
Beispiel:
Text = Trim(" Ein Text ")
--> "Ein Text" |
|
UCase |
Wandelt einen Text in Großbuchstaben um. |
Beispiel:
MsgBox UCase("Hallo Leute") ' -->
"HALLO LEUTE" |
|
Val(<Text>) |
Wandelt einen Text in eine Zahl um. |
Beispiel:
MsgBox Val("12.123") ' --> 12,123
MsgBox Val("12,123") ' --> 12
MsgBox Val("a12.123a") ' --> 0
MsgBox Val("12.123a") ' --> 12,123
MsgBox Val("12.1a23a") ' --> 12,1 |