从字符串中获取子字符串，如VBA中的^ abc ^两个特殊字符

Question

我有一个包含2个文本框和命令按钮的表单。我想在VBA中做的是在按下text1按钮时将部分文本从text3复制到cmd。例如，#&!4848484848484 ^totot/euhen^ gjrlsmdkkkd中要复制到text1的字符串text3的一部分是totot/euhen，因此之前没有固定的数字或位置，不知何故必须预测^符号。即text3 = ^和^之间的任何内容。

Answer 1

最简单的方法是使用Split函数，将以下代码添加到用户表单中：

Private Sub CommandButton1_Click()
    Dim aTmp
    aTmp = Split(TextBox1.Value, "^", 3)
    If UBound(aTmp) = 2 Then TextBox3.Value = aTmp(1)
End Sub

该代码按^字符拆分源文本，并将这些部分放在数组中。数组长度限制为3个元素，索引为0..2。因此，示例字符串#&!4848484848484 ^totot/euhen^ gjrlsmdkkkd被拆分为#&!4848484848484，totot/euhen，gjrlsmdkkkd数组。然后检查数组是否有3个元素，这意味着找到了2个^个字符，要捕获的文本位于第2个元素中。