Question

vb怎么过滤重复写入.txt的内容？

我的代码：
Dim url
Dim ma
Dim str As String, mc As MatchCollection
url = WebBrowser1.LocationURL
str = GetText(url)
Set mc = RegExpTest("\b[A-Za-z\d\.\_\-]{1,50}@[^.]+\.[A-Za-z\d]{2,4}\b", str)

Open "C:\tianyamail.txt" For Append As #1 'Append追加写入
For Each ma In mc
Print #1, ma.Value
Next
Close #1
比如：
72248756@qq.com;
72248756@qq.com;
72248756@qq.com;
72248756@qq.com;
643543543556@qq.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
lsy21wangli@163.com;
369387500@qq.com;
369387500@qq.com;
sheng8214169@163.com;

我只想保留一个！

Answer 1

你的重复标准是什么？不明确
看代码，是否是重复的网址？

Open "C:\tianyamail.txt" For Append As #1 'Append追加写入
For Each ma In mc
aa=ma '加个标志对比,每一次都对比自然就不同了
If aa<>ma Then Print #1, ma.Value,

Next