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

答案:3 悬赏:80 手机版

解决时间 2021-02-27 19:30

提问者网友：送舟行
2021-02-27 08:54

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）中啊

最佳答案

五星知识达人网友：杯酒困英雄
2021-02-27 09:11

我建议你掌握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个字符。

全部回答

1楼网友：佘樂
2021-02-27 10:47

dsfgfgcv cv

2楼网友：老鼠爱大米
2021-02-27 10:01

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息