VB编程，查找TXT中特定的字符串

Question

如某txt中有:a"&&&&&",b"#####",a"@@",c"!!!",a"%%%"
我想实现从这个txt中把含有a“其中内容”提取出来，要怎么实现？
（#@等符号代表任意长度不一的字符串）

Answer 1

方法一：用richtextbox的查找方法
代码如下，你先把查找的内容赋值于FindTxt变量
RichTextBox1.Find (FindTxt)
If RichTextBox1.Find(FindTxt) = -1 Then
MsgBox "没有找到相关的字符！", 48, "查找"
End If
这样找到之后自动选中文字

方法二：用字符串操作，自定义一个函数

追问

那a""里面的字符怎么查找出来？

参考资料：http://zhidao.baidu.com/question/84502762.html

Answer 2

'未作错误处理，假设你的文件存在且格式正确
Private Sub Command1_Click()
Dim mark, arr, i, out(), n
mark = "a"""
Open "c:\a.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), mark)
Close #1
For i = 0 To UBound(arr)
If InStr(arr(i), """") > 1 Then
n = n + 1
ReDim Preserve out(1 To n)
out(n) = Split(arr(i), """")(0)
End If
Next
MsgBox Join(out, vbNewLine) '这里是输出结果，你可以写入文件
End Sub

Answer 3

复制。粘贴