VB: Strings

Computer: Software & Programmierung Programmierung allgemein
1

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 :smile: 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

2

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“

3 
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]