string型中间插入string

Question

Dim text As String
text = "asdfgh"
要在asd和fgh中间插入mmm，用什么呀 ？
text.后，什么也点不出来 ，刚从java过来，什么都不适应 。痛苦的转变

Answer 1

Private Sub Command1_Click()
    Dim strTxt As String
    strTxt = "asdfgh"
    strTxt = Left(strTxt, 3) & "mmm" & Right(strTxt, 3)
    Text1.Text = strTxt
End Sub

Answer 2

只能先截取再连接 ，没有什么 insert() 方法直接来呀？

Answer 3

一样的，insert也是得拆开再接上，只是封装起来了而已

Answer 4

Private Sub Command1_Click()
    Dim strTxt As String
    strTxt = "asdfgh"
    strTxt = Left(strTxt, 3) & "mmm" & Right(strTxt, 3)
    Text1.Text = strTxt
End Sub

Answer 5

如果不习惯,自己作个function也行啊

Answer 6

不知道为什么一看到&连接字符串就觉得不爽，不自觉的就会想用join，所以喜欢如下方式：
Function AddString(s As String, r As String, n As Long) As String
    Dim a(1) As String
    a(0) = Left(s, n - 1)
    a(1) = Mid(s, n)
    AddString = Join(a, r)
End FunctionPrivate Sub Command1_Click()
    Text1 = AddString(Text1, "mmm", 4)  '从第四个字符处插入mmm
End Sub

Answer 7

replace版：　
Function AddString(s As String, r As String, n As Long) As String
    Dim tmp As String
    tmp = Left(s, n - 1)
    AddString = Replace(s, tmp, tmp & r, 1, 1)
End Function

Answer 8

楼主的"."真强大，我倒是希望这个"."能把xxx把成事实