vb查找text内容并显示后面的字符

Question

比如text1里的内容是"高手你好ABC[123]".点击按钮搜索ABC是否存在,存在就获取abc后面[]符号内的123到text2,谢谢高手了

Answer 1

Option Explicit

Private Sub Command1_Click()
    Dim temp As String
    temp = "高手你好ABC[123]"
    If InStr(temp, "ABC") > 0 Then
        MsgBox Split(Split(temp, "[")(1), "]")(0)
    End If
End Sub

效果如下图，具体自己改成自己需要的

Answer 2

if instr(text1“,"ABC") then

text2= val(mid(text1,instr("ABC[123]“,"ABC") +2))
endif