字串插入 (非API方式)

---
此為簡易型,若要大量運用;可再加強並寫成函數型 function
此例:是要在"&42 TX"內的空白(space)插入 "-" 符號
CODE:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "統一鮮乳 &42 TX"
Dim b As String = ""
TextBox1.Text += a.Length.ToString + vbCrLf
Dim a_insert As Integer = InStr(a, "TX") - 2
TextBox1.Text += a_insert.ToString + vbCrLf
b = Mid(a, 1, a_insert) + "-" + Mid(a, InStr(a, "TX"), a.Length - InStr(a, "TX") + 1)
TextBox1.Text += b
End Sub
End Class