VB取中间字符

Private Sub Command1_Click()

aa = "abcdA123456Bdff"

asite = InStr(aa, "A")

bsite = InStrRev(aa, "B")

Text1.Text = (Mid(aa, asite + 1, bsite - asite - 1))

End Sub

本文链接：http://lxkj.vip/?id=63