sub Insert(sValue As String, ByRef sSource As String, iPosition As Integer)
|
Fügt sValue ab Position iPosition in den String sSource ein. Das erste Zeichen in sSource hat den Index 1.
Diese Funktion ist äquivalent zu:
sSource = Left(sSource, iPosition-1) + sValue + Mid(sSource, iPosition, MaxInt)
Parameter
| • | sValue ... String-Ausdruck, der eingefügt werden soll. |
| • | sSource ... String-Ausdruck, in den eingefügt werden soll. |
| • | iPosition ... Position, ab der sValue eingefügt werden soll. |
Beispiel:
Dim s
s = "This text"
Insert("is a ", s, 6)
' returns s = "This is a text"
|
|