VB判断TEXTBOX中是否存在A和B这两个文字,如果存在则选取A-B这段文字如果TEXTBOX中有很多A和B,我只想判断取出单独一行中包含的A和B之间的文字.比如text中有以下内容：ADDSDSDSDSDSDSDSDSSDSDSDFDFDBSDHFJ

Question

VB 判断TEXTBOX中是否存在A和B这两个文字,如果存在则选取A-B这段文字
如果TEXTBOX中有很多A和B,我只想判断取出单独一行中包含的A和B之间的文字.
比如text中有以下内容：
ADDSDSDSDSDSDSDSDS
SDSDSDFDFDB
SDHFJSDFSJ
ASDFSDFFB
ASDASDAS
我想取出ASDFSDFFB这一段内容,如果没有就不取.

Answer 1

Private Sub Command1_Click()Dim s() As Strings = Split(Text1.Text,vbCrLf)For i = 0 To UBound(s)a = InStr(s(i),"A")b = InStr(s(i),"B")If a > 0 And b > a ThenMsgBox Mid(s(i),a,b - a + 1)End IfNe...