Vb如何获取TXT中指定字符到另一指定字符之间的内容

Question

Da
230
Aa 如Da到Aa之前的内容
DA14 X25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
DB14 X25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
DA14 X25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
M30
END如何把DA后面，DB后面的内容一条条的放到TEXT6（I），TEXT7（I）中啊

Answer 1

我建议你掌握VB的Instr()函数:
我举个例子，你应该能体会并应用；
Dim s1 as strinh
Dim L as integer
s1 ="DA14 X25 TR25"
L = Instr(s1,"TR")

Print L
显示10
Instr(s1,"TR") --- 在字符串变量S1中，从左开始寻找“TR”，首先出现的位置。

有了这个函数，再利用VB的Left()、Mid()、Right()等函数，应该可以解决你的问题了。

注意，你的这个文本里有回车换行符号，通常一个换行符号算作2个字符。

Answer 2

Private Sub Command1_Click()
Dim TXT As String
Dim a, b
TXT = "Da" & vbNewLine & "230" & vbNewLine & "Aa" '因为示范，所以赋一下值，楼主可根据实际情况
a = InStr(TXT, "Da") + 2 '因为"Da"是两个字符，所以加2，此处可以根据字符串长度变化
b = InStr(a, TXT, "Aa")
MsgBox Mid(TXT, a, b - a) '返回中间的字符串
'MsgBox Replace(Mid(TXT, a, b - a), vbNewLine, "") '返回去掉回车的字符串，根据实际情况在这两句中选择一句即可
End Sub追问

DA14 X25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
DB14 X25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
DA14 X25 TR25
XI25 TR25
XI25 TR25
XI25 TR25
M30
END如何把DA后面，DB后面的内容一条条的放到TEXT6（I），TEXT7（I）中啊

追答

不懂，一条条是什么意思？按行？按字符串？要按空格的话DA14 X25 TR25是按14，X25，TR25分成3个？

追问

按行

Answer 3

dsfgfgcv cv