CopyAndDelete

Top  Previous  Next

function CopyAndDelete(ByRef sSource, iStart, iLength) As String

 

CopyAndDelete ist eine Kombination der Funktionen Mid und Delete.

 

CopyAndDelete liefert einen Substring mit iLength Zeichen beginnend ab Position iStartPos, während der zurückgegebene String aus sSource gelöscht wird. Das erste Zeichen in sSource hat den Index 1.

 

Falls iStartPos größer als die Länge von sSource ist, gibt CopyAndDelete einen leeren String zurück und nichts wird von sSource gelöscht.

 

Falls iLength mehr Zeichen (als in sSource verfügbar) angibt, werden alle Zeichen ab Position iStartPos bis zum Ende von sSource zurückgegeben und gelöscht.

 

Parameter

 

sSource ... String-Ausdruck, aus dem Zeichen zurückgegeben und gelöscht werden.
iStartPos ... Integer-Ausdruck. Anfangsposition der zurückzugebenden und zu löschenden Zeichen.
iLength ... Integer-Ausdruck. Anzahl der zurückzugebenden und zu löschenden Zeichen.

 

Beispiel:

Dim s, s2

 

= "This is a text"

s2 = CopyAndDelete(s, 6, 5)

' returns s = "This text" and s2 = "is a "