`
hereson
  • 浏览: 1450978 次
  • 性别: Icon_minigender_1
  • 来自: 苏州
社区版块
存档分类
最新评论

利用VB提取HTML文件中的EMAIL地址

阅读更多

电子邮件(EMAIL)是INTERNET上应用最广泛的一种服务之一。我们每天都在使用电子邮件,有时为了宣传我们的产品、网站等,更是离不开电子邮件,这就需要收集很多的EMAIL地址。下面我们将向大家介绍用VB自编一个EMAIL地址提取器,用来提取保存在我们硬盘中的HTML文件中所包含的EMAIL地址。 
一 设计界面 
进入VB,选择“标准EXE”新建一工程,选择“工程”菜单下的“引用”,选中Microsoft scripting Runtime”,然后再选择“工程”菜单中的“部件”,在弹出的对话框中选择“Microsoft common dialog control 6.0”,在工具箱中加入通用对话框控件。接下来在默认窗体FORM1上添加三个标签控件,一个文本框控件text1,一个列表框控件LIST1,并命名为lstemail,三个命令command1~command3,其Caption属性分别设置为“提取”、“整理”、“保存”,设置完成的界面如下图所示: 

 
 
二 输入源程序 
Dim X, Y, St1, St2, tmpY As Integer 
'提取EMAIL地址子程序 
Private Sub StripEmail(FilePath As String) 
Dim tmpEmail1, tmpEmail2 As String 
Open FilePath For Input As #1 
Do Until EOF(1) 
On Error Resume Next 
Input #1, tmpEmail1 
For X = 1 To Len(tmpEmail1) 
tmpEmail2 = Mid(tmpEmail1, X, 7) 
'查找EMAIL标志 
If tmpEmail2 = "mailto:" Then 
St1 = X 
tmpY = X + 1 
For Y = 1 To Len(tmpEmail1) 
tmpEmail2 = Mid(tmpEmail1, tmpY, 1) 
If tmpEmail2 = Chr(34) Or tmpEmail2 = "?" Then 
St2 = tmpY 
tmpEmail2 = Mid(tmpEmail1, St1 + 7, ((St2 - St1) - 7)) 
If (Left(tmpEmail2, 2) <> "//") And (Left(tmpEmail2, 1) <> " ") Then 
lstEmail.AddItem tmpEmail2 
Exit For 
End If 
End If 
tmpY = tmpY + 1 
Next Y 
End If 
Next X 
Loop 
Close #1 
End Sub 
Private Sub Command1_Click() 
Dim fs As New FileSystemObject ' 建立 FileSystemObject 
Dim fd As Folder ' 定义 Folder 对象 
Dim sfd As Folder 
Set fd = fs.GetFolder(Text1) 
Command1.Enabled = False 
Screen.MousePointer = vbHourglass 
FindFile fd, "*.htm" 'Text1.Text 
Command1.Enabled = True 
Screen.MousePointer = vbDefault 
End Sub 
Sub FindFile(fd As Folder, FileName As String) 
Dim sfd As Folder, f As File 
' Part I查找该文件夹的所有文件 
For Each f In fd.Files 
If UCase(f.Name) Like UCase(FileName) Then 
Label2 = f.Path 
StripEmail (f.Path) 
lblEmail = "已查找到的地址数为: " & lstEmail.ListCount 
End If 
DoEvents 
Next 
' Part II循环查找所有子文件夹 
For Each sfd In fd.SubFolders 
FindFile sfd, FileName ' 循环查找 
Next 
End Sub 
 
Private Sub Command2_Click() 
'去掉重复的EMAIL地址 
For i = 0 To lstEmail.ListCount - 1 
For X = 0 To lstEmail.ListCount - 1 
If i = X Then GoTo Nextx 
If LCase(lstEmail.List(X)) = LCase(lstEmail.List(i)) Then 
On Error Resume Next 
lstEmail.RemoveItem X 
End If 
Nextx: 
Next X 
Next i 
lblEmail = "共有" & lstEmail.ListCount & "个地址" 
End Sub 
'保存 
Private Sub Command3_Click() 
'设置文件名 
Dim strname As String 
commondialog1.Filter = "文本文件(*.txt)|*.txt" 
commondialog1.ShowSave 
If commondialog1.FileName <> "" Then 
strname = commondialog1.FileName 
Else 
strname = App.Path & "\emailaddress.txt" 
End If 
'保存文件 
Open strname For Output As #1 
On Error Resume Next 
For i = 0 To lstEmail.ListCount - 1 
Print #1, lstEmail.List(i) 
Next 
Close #1 
End Sub 
本程序在WINDOWS ME、VB6.0中文企业版中运行通过。以上程序稍加修改即可实现提取其他类型文件中的EMAIL地址。 

分享到:
评论

相关推荐

    VB编程源代码 29提取可执行文件内部所有图标

    VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部所有图标VB编程源代码 29提取可执行文件内部...

    VB提取frx、ctl、ctx等二进制文件中的图片资源

    最后,值得注意的是,虽然VB6及之前的版本提供了直接操作二进制文件的API,但在VB.NET中,我们可以利用.NET Framework的强大功能,如`System.IO`和`System.Drawing`命名空间,来简化这个过程,使代码更加简洁和高效...

    VB提取FLV 流媒体音频文件.rar

    标题中的“VB提取FLV流媒体音频文件”指的是使用Visual Basic(VB)编程语言来从FLV(Flash Video)格式的流媒体文件中提取音频数据。FLV是一种常见的网络视频格式,尤其在早期的网页视频中广泛应用。VB作为微软开发...

    VB提取DLL,EXE文件中的图标

    在VB中,我们可以利用API(Application Programming Interface)函数来实现对其他文件的操作,比如DLL(Dynamic Link Library)和EXE(可执行文件)。在给定的标题和描述中,提到的是如何使用VB来提取这些文件中的...

    vb读取dat文件内容

    在VB(Visual Basic)编程中,读取DAT文件是一种常见的数据操作任务。DAT文件本身并不是一种特定格式,它通常被用作存储各种类型的数据,如文本、二进制或结构化数据。VB提供了多种方法来处理这些文件,下面将详细...

    vb提取查看thumbs.db文件中的图像内容.rar

    vb提取查看thumbs.db文件中的图像内容,VB6.0编写开发的Windows XP缩略图缓存文件查看提取工具,把有图片的文件夹中的Thumbs.db拖到下面的列表框中(在资源管理器的文件夹选项设置中要取消“隐藏受保护的系统文件...

    VB6.0从一串字符中只提取数字

    在VB6.0(Visual Basic 6.0)中,我们经常遇到需要从一串混合的字符中提取出数字的情况。这可能涉及到处理用户输入、数据解析或是从文本文件中提取有用信息等任务。本教程将详细介绍如何在VB6.0中实现这个功能。 ...

    vb资源文件RES用法

    通过合理利用RES资源文件,可以显著提升VB6.0程序的开发效率和用户体验。 #### 五、注意事项 在使用RES资源文件时,还需要注意以下几点: - **资源ID唯一性**:每个资源必须有一个唯一的ID,以便在加载时正确区分...

    VB在二进制文件中提取图像.rar

    VB在二进制文件中提取图像文件,提取VB源码中二进制文件中的所有图片资源ReadFrxRes,程序将最先分析一些二进制文件,诸如frm/frx,ctl/ctx等文件内的图像文件存储方式,然后把图像文件的Byte数组转换成StdPicture...

    利用VB从字库中提取汉字字模代码

    在IT领域,编程语言Visual ...总之,利用VB从字库中提取汉字字模代码是一项技术含量较高的任务,涉及到字体处理、API调用、文件操作以及数据编码等多个方面。掌握这项技能将使你在处理汉字相关应用时更加得心应手。

    利用vb和注册表,在文件的系统右键菜单中增加制定功能,

    本教程将深入探讨如何利用Visual Basic (VB)编程语言和Windows注册表来为特定类型的文件或任意文件在系统右键菜单中添加自定义功能。 首先,我们需要了解注册表在其中的作用。注册表是Windows操作系统用来存储系统...

    随机文件的读写(VB)

    本教程将深入探讨如何利用VB进行随机文件的读写操作,帮助你理解并掌握这一核心概念。 随机文件,也称为顺序文件,是一种非结构化的数据存储方式,数据在文件中的位置不是固定的,可以根据需要随时插入或删除。这种...

    totxt从 HTML 文档中提取 TEXT 文件.zip_VB HTML_totxt_vb html to text_数据库

    【标题】"totxt从 HTML 文档中提取 TEXT 文件.zip" 涉及的主要知识点是使用VB(Visual Basic)编程语言来实现从HTML文档中提取纯文本内容,并将其转化为TXT文件。这一过程对于数据处理、网页抓取或者文本分析等场景...

    VB6提取文本数据,生成EXCEL

    在VB6(Visual Basic 6)环境中,我们可以利用其强大的编程能力来处理各种数据操作,如从文本文件中提取数据并生成Excel报表。这个过程通常包括以下步骤: 1. **读取文本文件**:VB6提供了`OpenTextFile`函数,通过...

    vb读dxf的文件,坐标

    在VB(Visual Basic)编程环境中,读取DXF(Drawing Exchange Format)文件是AUTOCAD二...通过理解DXF文件格式和VB的编程语法,我们可以构建出能够有效提取和利用坐标信息的程序,为AUTOCAD的二次开发提供强大的支持。

    vb url下载文件

    在VB(Visual Basic)编程环境中,我们可以利用内置的控件和功能来实现从网页上下载文件。这个过程通常涉及到HTTP协议的理解以及VB中的Winsock控件或者MSXML库的使用。接下来,我们将深入探讨如何利用VB进行URL下载...

    利用VB传输文件的例子.rar

    在VB(Visual Basic)编程环境中,我们可以利用Winsock控件来实现文件的传输,这是一个基于TCP/IP协议的通信工具。本示例中的“利用VB传输文件的例子.rar”提供了一个具体的VB应用实例,它展示了如何在局域网内进行...

    利用vb读取ini文件

    VB 读写 ini文件 相当使用的一个类,建议大家看以下

    vb, 获取临时文件,临时文件提取

    在VB中获取临时文件,我们可以利用内置的`System.IO`命名空间中的类,特别是`Path`和`TempFileName`方法。`Path.GetTempPath()`方法用于获取系统的临时文件夹路径,这是存放临时文件的默认位置。`TempFileName`方法...

    VB封装提取字符串中数字的DLL文件

    在VB6.0编程环境中,有时我们需要从复杂的字符串中提取出数字部分,这在处理数据、解析用户输入或分析文本时非常常见。本教程将详细介绍如何利用VB封装一个DLL动态链接库来实现这一功能。DLL文件是一种可重用的代码...

Global site tag (gtag.js) - Google Analytics