Delete

Top Previous Next

sub Delete(ByRef sSource As String, iStartPos As Integer, iLength As Integer)

Löscht einen Substring mit iLength Zeichen aus sSource, beginnend ab Position iStartPos. Das erste Zeichen in sSource hat den Index 1.

Falls iStartPos größer als die Länge von sSource oder kleiner als 1 ist, dann werden keine Zeichen gelöscht.

Falls iLength mehr als ab iStartPos verfügbare Zeichen angibt, dann werden alle Zeichen ab iStartPos gelöscht. Falls iLength kleiner oder gleich 0 ist, dann werden keine Zeichen gelöscht.

Parameter

•	sSource ... String-Ausdruck, aus dem Zeichen gelöscht werden.

•	iStartPos ... Integer-Ausdruck. Anfangsposition der zu löschenden Zeichen.

•	iLength ... Integer-Ausdruck. Anzahl der zu löschenden Zeichen.

Beispiel:

Dim s

s = "This is a text"

Delete(s, 6, 5)

' returns s = "This text"