如何在Visual Basic中使用Mid和Len函数向字符串开头、中间、末尾添加字符

现有代码核心问题 #

• 变量逻辑混乱：NewString 变量被重复赋值为长度、子串等不同类型的值，最终拼接的结果没有赋值给展示标签
• 没有持久化已生成的魔法单词：每次操作都只使用当前输入框的内容，没有基于之前已经拼接好的字符串做修改，所以只能添加一次
• 插入位置逻辑错误：现有代码的Insert、Mid用法不符合向已有字符串插入内容的需求

预设控件对应关系：TextBox1 为输入字符的文本框，Button1 对应插入开头功能，Button2对应插入中间功能，Button3对应插入末尾功能，Label3 为展示最终魔法单词的标签

完整实现代码 #

' 全局变量存储当前已生成的魔法单词
Dim CurrentMagicWord As String = ""

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    ' 可选限制：仅允许输入单个字符，符合魔法单词拼接的常规需求
    If TextBox1.Text.Length > 1 Then
        TextBox1.Text = TextBox1.Text.Substring(0, 1)
        TextBox1.SelectionStart = 1
    End If
End Sub

' 插入到开头按钮
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If String.IsNullOrEmpty(TextBox1.Text) Then Exit Sub
    ' 把输入的字符加到当前魔法单词的最前面
    CurrentMagicWord = TextBox1.Text & CurrentMagicWord
    ' 更新标签显示
    Label3.Text = "Magic Word: " & CurrentMagicWord
    ' 清空输入框方便下次输入
    TextBox1.Clear()
End Sub

' 插入到末尾按钮
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    If String.IsNullOrEmpty(TextBox1.Text) Then Exit Sub
    ' 把输入的字符加到当前魔法单词的最后面
    CurrentMagicWord = CurrentMagicWord & TextBox1.Text
    Label3.Text = "Magic Word: " & CurrentMagicWord
    TextBox1.Clear()
End Sub

' 插入到中间按钮
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    If String.IsNullOrEmpty(TextBox1.Text) Then Exit Sub
    Dim insertPosition As Integer
    ' 计算中间位置：字符串长度为偶数插在正中间，奇数插在中间字符的后方
    insertPosition = CurrentMagicWord.Length \ 2
    ' 执行插入操作
    CurrentMagicWord = CurrentMagicWord.Insert(insertPosition, TextBox1.Text)
    Label3.Text = "Magic Word: " & CurrentMagicWord
    TextBox1.Clear()
End Sub

关键逻辑说明 #

• 用全局变量CurrentMagicWord存储已经拼接好的魔法单词，每次操作都基于这个变量修改，解决只能添加一次的问题
• 插入开头直接用字符串拼接，输入内容在前、原有内容在后即可
• 插入末尾直接用字符串拼接，原有内容在前、输入内容在后即可
• 插入中间先用整数除法\计算当前字符串的中间位置，调用Insert方法把输入内容插到对应位置即可

内容的提问来源于stack exchange，提问作者luke lopez