Kann mir jemand folgender Delphi Code nach VB übersetzen?
var
NewStr: String;
Insert(’ ', NewStr, Pos(Edit1.Text, NewStr) + Length(Edit1.Text));
Bitte nicht nach dem Sinn fragen, dieses auf den ersten Blick unsinnig erscheinenen Codes 
Es macht schon sinn in dieser speziellen Situation, ich teste ein COM-Objekt.
Eigentlich brauche ich ein VB6-Funktion wie Delphi’s Insert um einen Char in ein String an einer bestimmen Position einzufügen:
„RogerBieri“ -> „Roger Bieri“
thx,Roger
Hi Roger,
ich verstehe zwar den Delphi-Code nicht, aber ich glaube das ist es was du brauchst:
sei s die string-variable, l die länge des strings (wird eigentlich nicht gebraucht), x die einfüge-position und ch das einzufügende zeichen, wobei gilt x s=„Roger Bieri“
i = Instr(MyStr, NewStr) + Len(NewStr)
MyStr = Mid(MyStr,1,i-1) & " " & Mid(MyStr,i)
bzw. etwas allgemeiner:
Public Function strInsert(strInput As String, strSearch As String, strIns As String, Optional Offset = 0) As String
Dim I As Long
I = InStr(strInput, strSearch)
If I \> 0 Then
I = I + Offset
strInsert = Mid(strInput, 1, I - 1) & strIns & Mid(strInput, I)
Else
strInsert = strInput
End If
End Function
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]