Dim dlg As new OpenFileDialog dlg.Filter = "文本文件|*.txt" If dlg.ShowDialog = DialogResult.OK Then Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default) Dim mc = System.Text.RegularExpressions.Regex.Matches(strs,"(?is)(?<=此邮件来自智通人才网).*?(?=编号)") If mc.count >= 1 Then msgbox(mc(0).value) End If End If
加好友 
发短信
Post By：2019/4/19 19:25:00 [显示全部帖子]
